# Lowest Isoline for Mould at 20°C (Temp) and 75% relative humidity (RH)
calcMould_Zeng(20, 75)
calcMould_Zeng(20, 75, LIM = 0)
calcMould_Zeng(20, 75, label = TRUE)
calcMould_Zeng(20, 85)
calcMould_Zeng(20, 85, LIM = 2)
calcMould_Zeng(20, 85, label = TRUE)
# mydata file
filepath <- data_file_path("mydata.xlsx")
mydata <- readxl::read_excel(filepath, sheet = "mydata", n_max = 5)
mydata |>
dplyr::mutate(
RH_LIM0 = calcMould_Zeng(Temp, RH),
RH_LIM1 = calcMould_Zeng(Temp, RH, LIM = 1),
LIM = calcMould_Zeng(Temp, RH, label = TRUE)
)
Run the code above in your browser using DataLab