data(galton)
describe(galton)
pairs.panels(galton,main="Galton's Parent child heights") #show the scatter plot and the lowess fit
pairs.panels(galton,lm=TRUE,main="Galton's Parent child heights") #but this makes the regression lines look the same
pairs.panels(galton,lm=TRUE,xlim=c(62,74),ylim=c(62,74),main="Galton's Parent child heights") #better is to scale them
Run the code above in your browser using DataLab