powered by
data(heights)
Husband
Wife
data(heights) plot(Husband~Wife, data=heights, pch=19) abline(lm(Husband~Wife, data=heights), col="red") abline(lm(Husband~Wife-1, data=heights), col="blue")
Run the code above in your browser using DataLab