# NOT RUN {
if.R(s={
longley <- data.frame(longley.x, Employed = longley.y)
},r={
data(longley)
})
if.R(s=
splom( ~ longley, pch=16, cex=.55,
superpanel=panel.pairs.hh, subpanel.scales=list(cex=.8),
pscales=2,
panel.cex=.8)
,r=
splom( ~ longley, pch=16,
pscales=2,
varname.cex=.8,
axis.text.cex=.5)
)
# }
Run the code above in your browser using DataLab