摘要： rm(list = ls()) fit <- lm(weight ~ height, women) summary(fit) women$weight fitted(fit) confint(fit) residuals(fit) with(women,plot(height,weight, xlab = "height (in inches)", ylab = "weight (in pound 阅读全文