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