data(longley)
longley.lm <- lm( Employed ~ . , data=longley, x=TRUE, y=TRUE)
residual.plots.lattice(longley.lm)
## Not run:
# pdf("longley-resid.pdf", height=9, width=14)
# print(residual.plots.lattice(longley.lm, pch=19),
# A4.left=.0125, panel.width=list(5,"cm"))
# dev.off()
# ## End(Not run)
Run the code above in your browser using DataLab