# Simulierte Zero-Inflated Zaehldaten
set.seed(123)
df <- data.frame(
datum = seq.Date(from = as.Date("2023-01-01"), by = "day", length.out = 100),
value = rbinom(100, 1, 0.3) * rpois(100, lambda = 4)
)
# Automatische Auswahl zwischen ZIP und ZINB
explore_zinb_trend(df, datum_col = "datum", value_col = "value", family = "auto")
# Nur ZIP-Modell erzwingen
explore_zinb_trend(df, datum_col = "datum", value_col = "value", family = "zip", k_spline = 3)
Run the code above in your browser using DataLab