data(longley)
longley.lm <- lm( Employed ~ . , data=longley, x=TRUE, y=TRUE)
residual.plots.lattice(longley.lm)
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()
Run the code above in your browser using DataCamp Workspace