Difference between revisions of "Test variable C"
From Testiwiki
(instruction) |
m (→Formula: road) |
||
| Line 27: | Line 27: | ||
<rcode showcode="1" | <rcode showcode="1" | ||
| − | name=" | + | name="ERF_road_Lden_HA" |
> | > | ||
| − | + | ERF_road_Lden_HA <- function(Lden) { | |
PercentHighlyAnnoyedByRoadNoise <- | PercentHighlyAnnoyedByRoadNoise <- | ||
9.868 * 10^-4 * (Lden - 42)^3 - 1.436 * 10^-2 * (Lden-42)^2 + 0.5118 * (Lden - 42) | 9.868 * 10^-4 * (Lden - 42)^3 - 1.436 * 10^-2 * (Lden-42)^2 + 0.5118 * (Lden - 42) | ||
| Line 38: | Line 38: | ||
| − | # debug | + | # debug ERF_road_Lden_HA(60) |
</rcode> | </rcode> | ||
Latest revision as of 12:45, 21 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_road_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_road_Lden_HA(60)
|
See also
Keywords
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>
