# NOT RUN {
old.plt <- par("plt")
models <- c("ppl","fdp","fgn","dfbm")
for (i in seq(along=models)){
splitplot(2,2,i)
plot(lmSDF(lmModel(models[i])),
reference.grid=FALSE, log.axes="xy")
}
par(plt=old.plt)
# }
Run the code above in your browser using DataLab