if (FALSE) {
library(zoo)
data(bartlett2009.filtered)
fitted <- greenProcess(bartlett2009.filtered, 'klosterman',
'klosterman', plot=FALSE)
plot(fitted$data, type='p')
lines(index(fitted$data), fitted(fitted), col='red')
}
Run the code above in your browser using DataLab