# Create a tibble object from sample data
tsd_data <- tsd(
observation = c(100, 120, 150, 180, 220, 270),
time = as.Date(c(
"2023-01-01",
"2023-01-02",
"2023-01-03",
"2023-01-04",
"2023-01-05",
"2023-01-06"
)),
time_interval = "day"
)
# Estimate seasonal onset with a 3-day window and a Poisson family model
seasonal_onset(
tsd = tsd_data,
k = 3,
level = 0.95,
disease_threshold = 20,
family = "poisson",
na_fraction_allowed = 0.4,
season_start = NULL,
season_end = NULL,
only_current_season = NULL
)
Run the code above in your browser using DataLab