# Humidity ratio at 20°C (Temp) and 50% relative humidity (RH)
calcHR(20, 50)
# mydata file
filepath <- data_file_path("mydata.xlsx")
mydata <- readxl::read_excel(filepath, sheet = "mydata", n_max = 5)
mydata |> dplyr::mutate(HumidityRatio = calcHR(Temp, RH))
Run the code above in your browser using DataLab