R 语言中的简单线性回归

。。。

sessionInfo()  #  查询版本及系统和库等信息
getwd()
path <- "E:/RSpace/R_in_Action"
setwd(path)

rm(list=ls()) # 清空内存中搞得变量

women # 基础安装中的 women 数据集
str(women) # 查看 women 的数据结构
summary(women) # 查看 women 的摘要统计量

# 简单线性回归
fit <- lm(weight ~ height, data=women)
fit # 查看模型的结果对象列表

summary(fit) # 展示模拟模型的详细结果

women$height
fitted(fit) # 列出拟合模型的预测值
residuals(fit) # # 列出拟合模型的残差值

# 绘制身高体重的散点图
plot(women$height, women$weight,
     xlab="Height (in inches)",
     ylab="Weight (in pounds)")

abline(fit) # 添加回归线