r语言第五章作业

第五章课后习题 1 程序如下 x c 220 188 162 230 145 160 238 188 247 113 126 245 164 231 256 183 190 158 224 175 t test x alternative two sided mu 225 输入 R 软件后得出结果为 原假设 油漆工人的血小板计数与正常成年男子无差异 备择假设 油漆工人的血小板计数与正常成年男子有差异 由上图可以知道 P 值 0 002516 0 05 拒绝原假设 我们可以认为油漆工人的血小板计数 与正常成年男子有差异 2 程序如下 x0 05 故接受原假设 即这个星期生产出的灯泡能使用 1000h 以上 的概率为 0 4912059 3 程序如下 x c 113 120 138 120 100 118 138 123 y0 05 故接受原假设 即两种方法无差异 4 程序如下 x1 c 0 70 5 6 2 0 2 8 0 7 3 5 4 0 5 8 7 1 0 5 2 5 1 6 1 7 3 0 0 4 4 5 4 6 2 5 6 0 1 4 x2 c 3 7 6 5 5 0 5 5 0 8 0 2 0 6 3 4 6 6 1 1 6 0 3 8 2 0 1 6 2 0 2 2 1 2 3 1 1 7 2 0 1 shapiro test x1 shapiro test x2 实验组和对照组的 P 值均大于 0 05 故接受原假设 即实验组和对照组的数据是来之正态 分布 Ks 检验 ks test x1 pnorm mean x1 sd x1 ks test x2 pnorm Pearson拟合优度检验 breaks seq from min x1 0 5 to max x1 0 5 by max x1 min x1 1 4 z1 table cut x1 br breaks p pnorm breaks mean x1 sd x1 p c p 2 p 3 p 2 p 4 p 3 1 p 4 chisq test z1 p p breaks seq from min x2 0 5 to max x2 0 5 by max x2 min x2 1 4 z2 table cut x2 br breaks p pnorm breaks mean x2 sd x2 p0 05 接受原假设 认为两组数据的方差相同 5 x c 125 136 128 123 138 142 116 110 108 115 140 y c 162 172 177 170 175 152 157 159 160 162 1 shapiro test x shapiro test y x 和 y 的 P 值均大于 0 05 接受原假设 认为两组数据服从正态分布 2 方差齐性检验 var test x y P 值大于 0 05 接受原假设 即 x 和 y 的方差相同 3 wilcox test x y al l exact F paired F P 值小于 0 05 拒绝原假设 x 和 y 两者有差别 6 binom test 57 n 400 p 0 147 al l P 值大于 0 05 接受原假设 表示调查结果支持该市老年人口的看法 7 binom test 178 328 p 0 5 alternative greater 不能认为这种处理能增加母鸡的比例 8 chisq test c 315 101 108 32 p c 9 3 3 1 16 P 值大于 0 05 故接受原假设 符合自由组合定律 9 x 0 4 y c 92 68 28 11 1 q ppois x mean rep x y n length y p numeric n p 1 q 1 p n 1 q n 1 for i in 2 n 1 p i q i q i 1 chisq test y p p Warning 是因为有 cell 的数目小于 5 z c 92 68 28 12 n length z p p 1 n 1 p n 1 q n 1 chisq test z p p P 值大于 0 05 接受原假设 那么我们可以认为数据服从泊松分布 10 x c 2 36 3 14 7 52 3 48 2 76 5 43 6 54 7 41 y c 4 38 4 25 6 53 3 28 7 21 6 55 ks test x y P 值大于 0 05 接受原假设 可以认为两样本来之同一个总体 11 x c 358 2492 229 2745 dim x c 2 2 chisq test x correct TRUE P 值小于 0 05 拒绝原假设 即有影响 12 x c 45 46 28 11 12 20 23 12 10 28 30 35 dim x c 4 3 chisq test x correct TRUE P 值小于 0 05 拒绝原假设 B 和 C 不独立 13 x c 3 6 4 4 dim x c 2 2 fisher test x P 值大于 0 05 接受原假设 两变量独立 两种工艺对产品的质量没有影响 14 x c 58 1 8 2 42 9 3 7 17 dim x c 3 3 mcnemar test x correct F P 值大于 0 05 接受原假设 不能认定两种方法测定结果不同 15 x14 6 length x al l 结果显示 P 值小于 0 05 拒绝原假设 故认为鱼的长度在中位数之下 Wilcoxon 符号秩检验 wilcox test x mu 14 6 al l exact F correct F conf int T P 值小于 0 05 故拒绝原假设 中位数小于 14 6 16 x scan 48 0 33 0 37 5 48 0 42 5 40 0 42 0 36 0 11 3 22 0 36 0 27 3 14 2 32 1 52 0 38 0 17 3 20 0 21 0 46 1 y scan 37 0 41 0 23 4 17 0 31 5 40 0 31 0 36 0 5 7 11 5 21 0 6 1 26 5 21 3 44 5 28 0 22 6 20 0 11 0 22 3 1 符号检验法 binom test sum x y length x P 值小于 0 05 拒绝原假设 故认为两种方法有差别 2 Wilcoxon 符号秩检验 wilcox test x y paired TRUE exact FALSE P 值小于 0 05 拒绝原假设 故认为两种方法有差别 3 Wilcoxon 秩和检验 wilcox test x y exact FALSE P 值小于 0 05 拒绝原假设 故认为两种方法有差别 4 方差齐性检验 var test x y P 值大于 0 05 故接受原假设 认为两种方法的方差相同 正态性检验 shapiro test x P 值大于 0 05 故不能拒绝原假设 我们可以认为数据来之正态分布 t 检验 t test x y paired TRUE P 值小于 0 05 拒绝原假设 故认为两者有差别 5 综上所述 Wilcoxon 符号秩检验的差异检出能力最强 符号检验的差异检出最弱 17 x c 24 17 20 41 52 23 46 18 15 29 y c 8 1 4 7 9 5 10 3 2 6 spearman 秩相关检验 cor test x y method spearman kendall 秩相关