Null hypothesis: data follows a time series model using auto.arima from the forecast package
null_ts(var, modelfn)
variable to model as a time series
method for simulating from ts model.
null_model
require(forecast)
#> Loading required package: forecast
#> Registered S3 method overwritten by 'quantmod':
#> method from
#> as.zoo.data.frame zoo
require(ggplot2)
require(dplyr)
data(aud)
l <- lineup(null_ts("rate", auto.arima), aud)
#> decrypt("k4ZV xo3o Nm QPuN3NPm CA")
ggplot(l, aes(x=date, y=rate)) + geom_line() +
facet_wrap(~.sample, scales="free_y") +
theme(axis.text = element_blank()) +
xlab("") + ylab("")
l_dif <- l %>%
group_by(.sample) %>%
mutate(d=c(NA,diff(rate))) %>%
ggplot(aes(x=d)) + geom_density() +
facet_wrap(~.sample)