View source: R/esqc_Wet_Bulb_Calculator.R
SVPice | R Documentation |
SVPice(Ta)
Ta |
##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (Ta)
{
e0 = 6.1071
T0 = 273.16
i = -9.09718
j = -3.56654
k = 0.876793
T0T = T0/(Ta + 273.15)
X = i * (T0T - 1) + j * log10(T0T) + k * (1 - 1/T0T)
SvPi = e0 * 10^X
return(SvPi)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.