商业协会收集了最近一年来20个城市的5项指数指标(20个城市的5项指数.xls),我已经根据这些数据建立回归模型,用房屋、公用设施、交通运输和保健指数来预测生活日用品指数,现在需要对结果进行讨论,并指出显著和不显著的解释变量。
运行结果如下:
# 输出模型摘要> summary(model)
Call:
lm(formula = 日用品 ~ 房.屋 + 公用设施 + 交通运输 +
保.健, data = data)
Residuals:
Min 1Q Median 3Q Max
-8.1164 -2.7201 0.0434 2.6223 7.0632
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 99.67799 19.56412 5.095 0.000132 ***
房.屋 0.07643 0.06709 1.139 0.272440
公用设施 0.13976 0.06415 2.179 0.045715 *
交通运输 -0.26380 0.16798 -1.570 0.137181
保.健 0.03471 0.07455 0.466 0.648171
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 4.395 on 15 degrees of freedom
Multiple R-squared: 0.4065, Adjusted R-squared: 0.2483
F-statistic: 2.569 on 4 and 15 DF, p-value: 0.08088
# 输出显著和不显著的变量> cat("显著的解释变量有:")显著的解释变量有:> names(significant_vars)[1] "(Intercept)" "公用设施" > cat("\n不显著的解释变量有:")
不显著的解释变量有:> names(not_significant_vars)character(0)