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