1、引子
x=c(171,175,159,155,152,158,154,164,168,166,159,164) #身高
y=c(57,64,41,38,35,44,41,51,57,49,47,46) #体重
par(mar=c(5,4,2,1)) #设定图距离画布边缘的距离:下5,左4,上2,右1
plot(x,y)
2、相关系数假设检验
3、简单回归分析
4、案例
代码
install.packages("openxlsx")
library(openxlsx)
d4.3=read.xlsx('adstats.xlsx','d4.3',rowNames=T);d4.3 #读取adstats.xlsx表格d4.3数据
fm=lm(y~x,data=d4.3) #一元线性回归模型
fm #显示回归结果
summary(lm(x2~x1)) #左回归检验和系数检验
plot(y~x,data=d4.3) #做散点图
abline(fm) #添加回归线
anova(fm) #模型方差分析