data(electrode)
## Not run: pairs(apply(electrode[,-1], 2, jitter, 2),
# lower.panel = function(x, y){ points(x, y,
# pch = unclass(electrode[,1]),
# col = as.numeric(electrode[,1]))},
# main = "Pairwise scatter plots for Electrode data")## End(Not run)
Run the code above in your browser using DataLab