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