Difference between revisions of "Test variable C"
From Testiwiki
(→Question) |
(instruction) |
||
Line 3: | Line 3: | ||
== Question == | == Question == | ||
− | + | For test purposes, a simple exposure-response function (ERF) that can be called from another variable? | |
== Answer == | == Answer == | ||
+ | Use Miedema's ERF for the prevalence of high annoyance as a function of road noise exposure (Lden). | ||
+ | |||
+ | To use this function, include the R code named "ERF_Lden_HA" from this page as follows... | ||
+ | |||
+ | <nowiki><</nowiki>rcode | ||
+ | include="page:Test_variable_C|name:ERF_Lden_HA" | ||
+ | <nowiki>></nowiki> | ||
+ | |||
+ | ...and using the input variable "Lden" call the function as follows: | ||
+ | |||
+ | PercentHighlyAnnoyedByRoadNoise <- ERF_Lden_HA(Lden) | ||
== Rationale == | == Rationale == | ||
− | |||
Line 21: | Line 31: | ||
ERF_Lden_HA <- function(Lden) { | ERF_Lden_HA <- function(Lden) { | ||
− | PercentHighlyAnnoyedByRoadNoise <- 9.868 * 10^-4 * (Lden - 42)^3 - 1.436 * 10^-2 * (Lden-42)^2 + 0.5118 * (Lden - 42) | + | PercentHighlyAnnoyedByRoadNoise <- |
+ | 9.868 * 10^-4 * (Lden - 42)^3 - 1.436 * 10^-2 * (Lden-42)^2 + 0.5118 * (Lden - 42) | ||
return(PercentHighlyAnnoyedByRoadNoise) | return(PercentHighlyAnnoyedByRoadNoise) |
Revision as of 13:12, 16 May 2012
This page is a variable.
The page identifier is Op_en5684 |
---|
Moderator:Erkki Kuusisto (see all) |
This page is a stub. You may improve it into a full page, and then a rating bar will appear here. |
Upload data
|
Contents
Question
For test purposes, a simple exposure-response function (ERF) that can be called from another variable?
Answer
Use Miedema's ERF for the prevalence of high annoyance as a function of road noise exposure (Lden).
To use this function, include the R code named "ERF_Lden_HA" from this page as follows...
<rcode include="page:Test_variable_C|name:ERF_Lden_HA" >
...and using the input variable "Lden" call the function as follows:
PercentHighlyAnnoyedByRoadNoise <- ERF_Lden_HA(Lden)
Rationale
Dependencies
Formula
ERF_Lden_HA <- function(Lden) { PercentHighlyAnnoyedByRoadNoise <- 9.868 * 10^-4 * (Lden - 42)^3 - 1.436 * 10^-2 * (Lden-42)^2 + 0.5118 * (Lden - 42) return(PercentHighlyAnnoyedByRoadNoise) } # debug ERF_Lden_HA(60) |
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>