R/VPDtoRH.R

VPDtoRH <- function(VPD, TdegC, Pa=101){
	esatval <- esat(TdegC)
	e <- pmax(0, esatval - VPD*1000)
	RH <- 100 * e/esatval
return(RH)
}

Try the YplantQMC package in your browser

Any scripts or data that you put into this service are public.

YplantQMC documentation built on May 2, 2019, 5:50 p.m.