.old <- data.table::setDTthreads(2)
x <- data.frame(
dates = Sys.Date() + c(1,3,4),
groups = c("grp1","grp2", "grp1"),
counts = 1:3
)
i <- incidence(x, date_index = "dates", groups = "groups", counts = "counts")
complete_dates(i)
data.table::setDTthreads(.old)
Run the code above in your browser using DataLab