# NOT RUN {
models <- c("ppl","fdp","fgn")
lag <- 100
z <- lapply(models, function(x, models, lag)
{ lmACF(lmModel(x), lag=lag)@data},
models=models, lag=lag)
names(z) <- paste(upperCase(models), "ACF")
stackPlot(seq(0,lag), z, xlab="lag")
title("Stochastic Fractal Model ACFs")
# }
Run the code above in your browser using DataLab