The goal of surveillanceExt is to …
remotes::install_github("hoxo-m/surveillanceExt")
This is a basic example which shows you how to solve a common problem:
library(surveillanceExt)
data("salmNewport")
salmNewportGermany <- aggregate(salmNewport, by = "unit")
covariates <- ifelse(observed(salmNewportGermany) >= 40, 1, 0)
colnames(salmNewportGermany@observed) <- "y"
colnames(covariates) <- "x"
control <- list(noPeriods = 10, b = 4, w = 3, thresholdMethod = "nbPlugin")
fit <- farringtonFlexibleWithFormula(salmNewportGermany, y ~ x, covariates, control)
autoplot(fit)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.