通过综合案例,使学生掌握基本统计分析的各种指标的,掌握统计分析结果的可视化方法。

1.调查某大学学生每周学习时间与得分的平均等级之间的关系,现抽查10个学生的资料如student.data文件所示。其中等级10表示最好,1表示最差,试用秩相关检验(Spearman检验和Kendall检验)分析学习时间和学习等级有无关系。(相关性检验)

读取并查看文件

R语言实现maermse r语言实现BH检验_中位数

提出假设:

H0:学习时间和学习等级无关系

H1:学习时间和学习等级有关系

再进行假设检验

使用spearman方法:

R语言实现maermse r语言实现BH检验_R语言实现maermse_02

P=0.09279>0.05,接受原假设,学习时间和学习等级无关系

使用Kendall方法

R语言实现maermse r语言实现BH检验_中位数_03

P=0.03114<0.05,拒绝原假设,学习时间和学习等级有关系

2.文件score.data中的数据列出某高中18名学生某门课程的高考成绩和模拟考试成绩,这组数据能否说明高考成绩与模拟考试成绩是相关的?(相关性检验)

先读取文件:

R语言实现maermse r语言实现BH检验_蓝桥杯_04

查看数据:

R语言实现maermse r语言实现BH检验_R语言实现maermse_05

再提出假设:

H0:不能说明高考成绩与模拟考试成绩是相关的

H1:能说明高考成绩与模拟考试成绩是相关的

进行检验

R语言实现maermse r语言实现BH检验_中位数_06

P=0.02817<0.05,拒绝原假设,说明高考成绩与模拟考试成绩是相关的

3.为比较两种工艺对产品的质量是否有影响,对其产品进行抽样检查,其结果如表所示,试分析两种工艺对产品质量是否有显著差异?

R语言实现maermse r语言实现BH检验_R语言实现maermse_07

先提出假设:

H0:两种工艺对产品的质量没有影响

H1:两种工艺对产品的质量有影响

再进行检验

R语言实现maermse r语言实现BH检验_中位数_08

P=0.6372>0.05

所以接受原假设,两种工艺对产品的质量有影响

4.为研究分娩过程中使用胎儿电子检测仪对剖妇产率有无影响,对5824例分娩的产妇进行回顾性调查,结果如表所示,试分析。

先提出假设:

H0:分娩过程中使用胎儿电子监测仪对剖腹产率无影响

H1:分娩过程中使用胎儿电子监测仪对剖腹产率有影响

再进行假设检验:

R语言实现maermse r语言实现BH检验_r语言_09

P=9.552e-10<0.05,所以拒绝原假设,分娩过程中使用胎儿电子监测仪对剖腹产率有影响

5.Mendel用豌豆的两对相对性状进行杂交实验,黄色圆滑种子与绿色皱缩种子的豌豆杂交后,第二代根据自由组合规律,理论分离比为:

黄圆:黄皱:绿圆:绿皱=9/16:3/16:3/16:1/16

实际实验值为:黄圆315  黄皱 101  绿圆 108 绿皱 32 ,共556粒。问此结果是否符合自由组合规律?

先建立假设:

      H0:结果符合自由组合规律

      H1:结果不符合自由组合规律

使用卡方检验是否符合特定分布

R语言实现maermse r语言实现BH检验_中位数_10

P=0.2381>0.05,所以接受原假设,即结果符合自由组合规律

6.在某养鱼塘中,根据过去经验,鱼的长度的中位数为14.6cm,现对鱼塘中鱼的长度进行一次估测,随机地从鱼塘中取出10条鱼,长度数据保存在fish.data中,用Wilcoxon符号秩检验,试分析该鱼塘中鱼的长度是在中位数之上,还是在中位数之下?

先读取数据:

R语言实现maermse r语言实现BH检验_中位数_11

由于读取出来的是数据框,先将其转换为向量

R语言实现maermse r语言实现BH检验_蓝桥杯_12

再提出假设:

H0:中位数大于或者等于14.6

H1:中位数小于14.6

再进行符号秩检验

R语言实现maermse r语言实现BH检验_r语言_13

P=0.01087<0.05,所以拒绝原假设,即中位数小于14.6。