View source: R/esqc_Wet_Bulb_Calculator.R
1 | SVPwater(Ta)
|
Ta |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | ##---- 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)
{
est = 1013
Ts = 373.16
a = -7.90298
b = 5.02808
c = -1.3816e-07
d = 11.344
f = 0.0081328
h = -3.49149
TsT = Ts/(Ta + 273.15)
Z = a * (TsT - 1) + b * log10(TsT) + c * (10^(d * (1 - TsT)) -
1) + f * (10^(h * (TsT - 1)) - 1)
SvPw = est * 10^Z
return(SvPw)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.