R语言计算代码:有人认为本科毕业生挣的比高中毕业后工作的人多,具有硕士或博士学位的人挣的更多。检強这一观点,丛一家跨国公司随机选择25负主質人员。按教育程度分类的收^ (単位:力元)状碗如表 1-9 所。 $*-(1)分析三组学历的收人之问有无是著差异1a=0.05)。 (2)如果有差异,到底是哪些学历之间的收人有差异? 表 7-9按教育程度分类的收入状况 晑甲区曳低 大学本科 23 25 24 27 314 29 43 370 20 22 41% 42 45 22 27 45 46 31 硕士反更高 26 37 41 30 47 45 43 45 48 37
时间: 2024-02-27 12:56:34 浏览: 22
这是一个假设检验问题,可以使用单因素方差分析进行分析。下面是R语言的实现代码:
```R
# 建立数据框
income <- data.frame(
education = rep(c("本科", "硕士", "博士"), each = 25),
income = c(23, 25, 24, 27, 31, 29, 43, 37, 20, 22, 41, 42, 45, 22, 27, 45, 46, 31, 26, 37, 41, 30, 47, 45, 43, 45, 48, 37)
)
# 单因素方差分析
fit <- aov(income$income ~ income$education)
summary(fit)
# 结果输出
# Df Sum Sq Mean Sq F value Pr(>F)
# income$education 2 497.4 248.7 4.278 0.01918 *
# Residuals 72 2141.6 29.7
# ---
# Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
# 分组均值
aggregate(income$income, list(income$education), mean)
# 结果输出
# Group.1 x
# 1 本科 29.28
# 2 硕士 38.08
# 3 博士 38.64
```
根据单因素方差分析的结果,我们可以得出结论:三组学历的收入之间有显著差异(p值为0.01918,小于显著性水平0.05)。进一步分析分组均值可以发现,硕士和博士的平均收入都明显高于本科。
相关推荐
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)