# Relative humidity (RH) at tempertaure of 20°C (Temp) and dew point of 15°C (DewP)
calcRH_DP(20, 15)
calcRH_DP(20, 15, method = "Buck")
calcRH_DP(20, calcDP(20, 50))
calcRH_DP(20, calcDP(20, 50, method = "Buck"), method = "Buck")
# mydata file
filepath <- data_file_path("mydata.xlsx")
mydata <- readxl::read_excel(filepath, sheet = "mydata", n_max = 5)
mydata |>
dplyr::mutate(
DewPoint = calcDP(Temp, RH),
RH_default = calcRH_DP(Temp, DewPoint),
RH_Buck = calcRH_DP(Temp, DewPoint, method = "Buck"))
Run the code above in your browser using DataLab