应用回归分析，第3章，多元线性回归，思考与练习,答案，R语言代码，重点代码总结

3.11

(1)

cor3<-cor(book[,-1])
round(cor3,digits=3)

       y    x1    x2    x3
y  1.000 0.556 0.731 0.724
x1 0.556 1.000 0.113 0.398
x2 0.731 0.113 1.000 0.547
x3 0.724 0.398 0.547 1.000

（2）y=-348.280+3.754x1+7.101x2+12.447x3

lm3<-lm(y~x1+x2+x3,data=book)
summary(lm3)

Call:
lm(formula = y ~ x1 + x2 + x3, data = book)

Residuals:
    Min      1Q  Median      3Q     Max 
-25.198 -17.035   2.627  11.677  33.225 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)  
(Intercept) -348.280    176.459  -1.974   0.0959 .
x1             3.754      1.933   1.942   0.1002  
x2             7.101      2.880   2.465   0.0488 *
x3            12.447     10.569   1.178   0.2835  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard err