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