R/RH.R

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