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 DataLab