R/SatVaporDensity.R

SatVaporDensity <- function(T_C){
	#	T_C	= Temperature [C]
	VP <- SatVaporPressure(T_C)
	return(round(VP/(0.462 * (T_C+273.15)), 4))
}

Try the EcoHydRology package in your browser

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

EcoHydRology documentation built on May 2, 2019, 4:47 p.m.