R/Tn_Humphreys.R
In Iavalos/Comfort: Thermal comfort methods
Tn_Humphreys <-
function(To, TB=c("NVB", "ACB", "CB")){
if(TB=="NVB") {11.9+0.534+To}
else{if (TB=="ACB") {23.9+0.295*(To-22)*exp(-((To-22)/(24*sqrt(2)))^2)}
else{if(TB=="CB"){24.2+0.430*(To-22)*exp(-((To-22)/(20*sqrt(2)))^2)}
else{NULL}}}}
Iavalos/Comfort documentation built on May 8, 2019, 10:59 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Tn_Humphreys <-
function(To, TB=c("NVB", "ACB", "CB")){
if(TB=="NVB") {11.9+0.534+To}
else{if (TB=="ACB") {23.9+0.295*(To-22)*exp(-((To-22)/(24*sqrt(2)))^2)}
else{if(TB=="CB"){24.2+0.430*(To-22)*exp(-((To-22)/(20*sqrt(2)))^2)}
else{NULL}}}}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.