1 简单线性回归 fit = lm(weight~height, data=women) summary(fit) women$weight fitted(fit) residuals(fit) par(mar=rep( 0 , 4 )) plot(women$height, women$weight, xlab= "Height" , ylab= "Weight" )