# Calculate temperature (Temp) at 50% relative humidity (RH) and dew point 15°C (DewP)
# Using Magnus method
calcTemp(50, 15)
# Using Buck method
calcTemp(50, 15, method = "Buck")
calcTemp(50, calcDP(20, 50))
# 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),
Temp_default = calcTemp(RH, DewPoint),
Temp_Buck = calcTemp(RH, DewPoint))
Run the code above in your browser using DataLab