R/TD.R

TD <-
function (Temp, RH){
  lv <- 17.625
  Rv <- 243.04
  Rv*((log(RH/100)+((lv*Temp)/(Rv+Temp)))/(lv-log(RH/100)-((lv*Temp)/(Rv+Temp))))
}
Iavalos/Comfort documentation built on May 8, 2019, 10:59 a.m.