Test variable C: Difference between revisions
Jump to navigation
Jump to search
(for defining a function that is to be called from another variable) |
m (→Formula: road) |
||
(8 intermediate revisions by the same user not shown) | |||
Line 1: | Line 1: | ||
{{variable|moderator=Erkki Kuusisto|stub=Yes}} | {{variable|moderator=Erkki Kuusisto|stub=Yes}} | ||
== 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 44: | Line 25: | ||
=== Formula === | === Formula === | ||
<rcode showcode="1" | |||
name="ERF_road_Lden_HA" | |||
> | |||
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) | |||
</rcode> | |||
==See also== | ==See also== |
Latest revision as of 12:45, 21 May 2012
Moderator:Erkki Kuusisto (see all) |
This page is a stub. You may improve it into a full page. |
Upload data
|
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>