第4章 多元相关与线性回归分析
本文用到的数据可以去这个网址下下载多元统计分析及R语言建模(第5版)数据
练习题
1)一家保险公司想了解其总公司营业部加班时间与签发的新保单数目之间的关系,经过10周时间,收集了每周加班工作时间x(小时)和签发的新保单数目y的数据(张),…
(1)绘制散点图,并以此判断x与y之间是否大致呈线性关系
x = c(3.5,1,4,2,1,3,4.5,1.5,3,5)
y = c(825,215,1070,550,480,920,1350,325,670,1215)
z = data.frame(x,y)
z
plot(x,y,main = '散点图',xlab = '每周加班时间(小时)',ylab = '每周签发的新保单数目(张)') #绘制散点图
根据散点图可知,x与y之间大致呈线性关系
(2)计算x与y的相关系数
cor(x,y) #计算相关系数,相关系数计算函数cor()
(3)用最小二乘估计法求回归方程
lm4.1 <- lm(y ~ x)
lm4.1
由结果可知回归方程为:y = 251.17x + 46.15
(4)求随机误差ε的方差σ^2的估计值
x_hat <- 46.15 + 251.17*x
square_sigma <- t(x_hat - y)%*%(x_hat - y)/(10-1-1)
square_sigma
(summary(lm4.1) $ sigma)^2
(5)计算x与y的决定系数
SSR <- t