#install.packages('psychrolib')
library(psychrolib)
SetUnitSystem("SI")

Tr=24
RHr=0.5
P=101325
g=GetHumRatioFromRelHum(Tr, RHr, P)
print(g)

v=GetMoistAirVolume(Tr, g, P)
print(v)
rh=GetRelHumFromHumRatio(14, 0.00916,101325)
print(rh)

SetUnitSystem("SI")
h=GetMoistAirEnthalpy(14, 0.00916)
print(h)