View source: R/esqc_Wet_Bulb_Calculator.R
1 | SVPice(Ta)
|
Ta |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ##---- 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.