# Daily data with separate max/min
daily_data <- data.frame(
date = seq(as.Date("2000-01-01"), as.Date("2002-12-31"), by = "day"),
tmax = rnorm(1096, mean = 25, sd = 6)
)
calculate_TX25(
df = daily_data,
frequency = "daily",
time_col = "date",
tmax_col = "tmax"
)
# Hourly data
hourly_data <- data.frame(
datetime = seq(
as.POSIXct("2000-01-01 00:00", tz = "UTC"),
as.POSIXct("2000-01-31 23:00", tz = "UTC"),
by = "hour"
),
temperature = rnorm(31*24, mean = 22, sd = 4)
)
calculate_TX25(
df = hourly_data,
frequency = "hourly",
time_col = "datetime",
temp_col = "temperature",
threshold = 25
)
Run the code above in your browser using DataLab