Time variable in fluserf()

[jrgant]

I might be missing something, but I think the documentation on the fluserf() function might need to be updated.

The parameter description for the time argument says this variable should be a non-repeating integer/numeric variable. Based on this description, it seems fluserf() should be able to work with week_in_order from the fludta dataset. However, I get very strange predictions when I use this variable.

Using the date-formatted yrweek_dt works just fine.

Here's a minimal example:

library(flumodelr)

flufit_good <- fluserf(fludta, outc = fludeaths, time = yrweek_dt, period = 52)
sapply(flufit_good, class)

flufit_bad <- fluserf(fludta, outc = fludeaths, time = week_in_order, period = 52)
sapply(flufit_bad, class)

pfun <- function(data, xvar) {
  data %>%
    filter(year > 2008) %>%
    ggplot(aes_string(x = xvar)) +
    geom_line(aes(y = fludeaths, color = "red")) +
    geom_line(aes(y = y0))
}

pfun(flufit_good, xvar = "yrweek_dt")
pfun(flufit_bad, xvar = "yrweek_dt")