R/VPDtoRH.R

Defines functions VPDtoRH

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 29, 2017, 7:02 p.m.