# calcFP is unstable and is under development
# Frost point at 20°C (Temp) and 50% relative humidity (RH)
calcFP(20, 50)
calcFP(0, 50)
# mydata file
filepath <- data_file_path("mydata.xlsx")
mydata <- readxl::read_excel(filepath, sheet = "mydata", n_max = 5)
mydata |> dplyr::mutate(FrostPoint = calcFP(Temp, RH))
Run the code above in your browser using DataLab