Rcalc_hum.R