require(forecast)
require(ggplot2)
require(dplyr)
data(aud)
l <- lineup(null_ts("rate", auto.arima), aud)
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)
Run the code above in your browser using DataLab