pairscor.fnc(data, hist = TRUE, smooth = TRUE,
cex.points = 1, col.points = "darkgrey")
pairs
and panel.smooth
.data(lexicalMeasures)
pairscor.fnc(lexicalMeasures[,c("CelS", "Vf", "Ient", "NsyS", "Ncou")])
Run the code above in your browser using DataLab