。。。
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) # 添加回归线