# NOT RUN {
data(longley)
longley.lm <- lm( Employed ~ . , data=longley, x=TRUE, y=TRUE)
residual.plots.lattice(longley.lm)
# }
# NOT RUN {
longleyResid <- tempfile("longleyResid", fileext = ".pdf")
pdf(longleyResid, height=9, width=14)
print(residual.plots.lattice(longley.lm, pch=19),
A4.left=.0125, panel.width=list(5,"cm"))
dev.off()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab