# Generate simulated data of seasonal waves
sim_data <- generate_seasonal_data(
years = 5,
start_date = as.Date("2022-05-26"),
trend_rate = 1.002,
noise_overdispersion = 1.1
)
# Estimate seasonal onset
tsd_onset <- seasonal_onset(
tsd = sim_data,
disease_threshold = 20,
family = "quasipoisson",
season_start = 21,
season_end = 20,
only_current_season = FALSE
)
# Get historical summary
historical_summary(tsd_onset)
Run the code above in your browser using DataLab