# NOT RUN {
pairs(bei.extra,
panel = panel.contour,
diag.panel = panel.histogram)
with(bei.extra,
pairs(grad, elev,
panel = panel.image,
diag.panel = panel.histogram))
pairs(marks(finpines), panel=panel.contour, diag.panel=panel.histogram)
# }
Run the code above in your browser using DataLab