File:Plot regression women.svg

Summary
Updated same figure (Image:Plot regression women.jpg), which was in JPEG format. This figure was created in R: library(women) n <- nrow(women) x <- women$height y <- women$weight X <- cbind(rep(1, n), x, x^3)

beta <- solve( t(X) %*% X ) %*% t(X) %*% y

library(RSvgDevice) devSVG("Plot_regression_women.svg",4,4) plot(weight ~ height, women, main="US women weight vs. height",     xlab="Height (in)", ylab="Weight (lbs)") lines(x, beta[1] + beta[2]*x + beta[3]*x^3, col=2) dev.off