powered by
wright
data(wright) plot(wright) abline(0,1)
Run the code above in your browser using DataLab