# Daily data with minimum temperature
set.seed(123)
daily_data <- data.frame(
date = seq(as.Date("2000-01-01"), as.Date("2002-12-31"), by = "day"),
tmin = 15 + 8 * sin(seq(0, 4*pi, length.out = 1096)) + rnorm(1096, 0, 3)
)
calculate_CSDI(
df = daily_data,
frequency = "daily",
time_col = "date",
tmin_col = "tmin"
)
# With custom window and consecutive days
calculate_CSDI(
df = daily_data,
frequency = "daily",
time_col = "date",
tmin_col = "tmin",
window_days = 15,
min_consecutive = 5
)
Run the code above in your browser using DataLab