library(tealeaves)
cs <- make_constants()
ep <- make_enviropar()
lp <- make_leafpar()
T_leaf <- set_units(298.15, K)
p <- ep$RH * tealeaves:::.get_ps(T_leaf, ep$P, FALSE)
tealeaves:::.get_Tv(T_leaf, p, ep$P, cs$epsilon, FALSE)
Run the code above in your browser using DataLab