{"id":1484,"date":"2023-07-26T05:15:37","date_gmt":"2023-07-26T05:15:37","guid":{"rendered":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%b7%b4%e7%89%b9%e5%88%a9%e8%8c%a8%e6%b5%8b%e8%af%95\/"},"modified":"2023-07-26T05:15:37","modified_gmt":"2023-07-26T05:15:37","slug":"r-%e4%b8%ad%e7%9a%84%e5%b7%b4%e7%89%b9%e5%88%a9%e8%8c%a8%e6%b5%8b%e8%af%95","status":"publish","type":"post","link":"https:\/\/statorials.org\/cn\/r-%e4%b8%ad%e7%9a%84%e5%b7%b4%e7%89%b9%e5%88%a9%e8%8c%a8%e6%b5%8b%e8%af%95\/","title":{"rendered":"\u5982\u4f55\u5728 r \u4e2d\u6267\u884c bartlett \u6d4b\u8bd5\uff08\u9010\u6b65\uff09"},"content":{"rendered":"

<\/p>\n

\n

Bartlett \u68c0\u9a8c<\/a>\u662f<\/span>\u4e00\u79cd\u7edf\u8ba1\u68c0\u9a8c\uff0c\u7528\u4e8e\u786e\u5b9a\u591a\u4e2a\u7ec4\u4e4b\u95f4\u7684\u65b9\u5dee\u662f\u5426\u76f8\u7b49\u3002<\/span><\/p>\n

\u8bb8\u591a\u7edf\u8ba1\u68c0\u9a8c\uff08\u4f8b\u5982\u5355\u5411\u65b9\u5dee\u5206\u6790<\/a>\uff09\u5047\u8bbe\u6837\u672c\u4e4b\u95f4\u7684\u65b9\u5dee\u76f8\u7b49\u3002 Bartlett \u68c0\u9a8c\u53ef\u7528\u4e8e\u9a8c\u8bc1\u8fd9\u4e00\u5047\u8bbe\u3002<\/span><\/p>\n

\u8be5\u68c0\u9a8c\u4f7f\u7528\u4ee5\u4e0b\u539f\u5047\u8bbe\u548c\u5907\u62e9\u5047\u8bbe<\/a>\uff1a<\/span><\/p>\n

H 0<\/sub> \uff1a<\/strong>\u5404\u7ec4\u4e4b\u95f4\u7684\u65b9\u5dee\u76f8\u7b49\u3002<\/span><\/p>\n

H A<\/sub> \uff1a<\/strong>\u81f3\u5c11\u4e00\u7ec4\u7684\u65b9\u5dee\u4e0d\u7b49\u4e8e\u5176\u4ed6\u7ec4\u3002<\/span><\/p>\n

\u68c0\u9a8c\u7edf\u8ba1\u91cf\u9075\u5faa\u81ea\u7531\u5ea6\u4e3ak-1 \u7684<\/em>\u5361\u65b9\u5206\u5e03\uff0c\u5176\u4e2dk<\/em>\u662f\u7ec4\u6570\u3002<\/span><\/p>\n

\u5982\u679c\u68c0\u9a8c\u7edf\u8ba1\u91cf\u7684\u76f8\u5e94p \u503c<\/a>\u4f4e\u4e8e\u4e00\u5b9a\u7684\u663e\u7740\u6027\u6c34\u5e73\uff08\u4f8b\u5982 \u03b1 = 0.05\uff09\uff0c\u90a3\u4e48\u6211\u4eec\u53ef\u4ee5\u62d2\u7edd\u539f\u5047\u8bbe\u5e76\u5f97\u51fa\u7ed3\u8bba\uff1a\u5e76\u975e\u6240\u6709\u7ec4\u90fd\u5177\u6709\u76f8\u540c\u7684\u65b9\u5dee\u3002<\/span><\/p>\n

\u4ee5\u4e0b\u5206\u6b65\u793a\u4f8b\u5c55\u793a\u4e86\u5982\u4f55\u5728 R \u4e2d\u6267\u884c Bartlett \u6d4b\u8bd5\u3002<\/span><\/p>\n

\u7b2c 1 \u6b65\uff1a\u521b\u5efa\u6570\u636e<\/strong><\/span><\/h3>\n

\u4e3a\u4e86\u786e\u5b9a\u4e09\u79cd\u4e0d\u540c\u7684\u5b66\u4e60\u6280\u5de7\u662f\u5426\u4f1a\u5bfc\u81f4\u4e0d\u540c\u7684\u8003\u8bd5\u7ed3\u679c\uff0c\u6559\u6388\u968f\u673a\u5206\u914d 10 \u540d\u5b66\u751f\u4f7f\u7528\u6bcf\u79cd\u6280\u5de7\uff08\u6280\u5de7 A\u3001B \u6216 C\uff09\u4e00\u5468\uff0c\u7136\u540e\u5bf9\u6bcf\u4e2a\u5b66\u751f\u8fdb\u884c\u6d4b\u8bd5\u3002\u540c\u7b49\u96be\u5ea6\u3002<\/span><\/p>\n

30\u540d\u540c\u5b66\u7684\u8003\u8bd5\u6210\u7ee9\u5982\u4e0b\uff1a<\/span><\/p>\n

 #create data frame<\/span>\ndf <-data. frame<\/span> (group = rep<\/span> (c(' A<\/span> ', ' B<\/span> ', ' C<\/span> '), each<\/span> =10),\n                score = c(85, 86, 88, 75, 78, 94, 98, 79, 71, 80,\n                          91, 92, 93, 85, 87, 84, 82, 88, 95, 96,\n                          79, 78, 88, 94, 92, 85, 83, 85, 82, 81))\n\n#view data frame\n<\/span>df\n\n   group score\n1 to 85\n2 To 86\n3 to 88\n4 to 75\n5 to 78\n6 to 94\n7 to 98\n8 to 79\n9 to 71\n10 to 80\n11 B 91\n12 B 92\n13 B 93\n14 B 85\n15 B 87\n16 B 84\n17 B 82\n18 B 88\n19 B 95\n20 B 96\n21 C 79\n22 C 78\n23 C 88\n24 C 94\n25 C 92\n26 C 85\n27 C 83\n28 C 85\n29 C 82\n30 C 81<\/strong><\/pre>\n
\u7b2c 2 \u6b65\uff1a\u6267\u884c Bartlett \u6d4b\u8bd5<\/strong><\/span><\/h3>\n
\u8981\u6267\u884c Bartlett \u6d4b\u8bd5\uff0c\u60a8\u53ef\u4ee5\u4f7f\u7528\u57fa\u672c R \u4e2d\u7684bartlett.test<\/strong>\u51fd\u6570\uff0c\u8be5\u51fd\u6570\u4f7f\u7528\u4ee5\u4e0b\u8bed\u6cd5\uff1a<\/span><\/p>\n
 bartlett.test\uff08\u516c\u5f0f\uff0c\u6570\u636e\uff09<\/strong><\/span><\/p>\n
\u4ee5\u4e0b\u662f\u5728\u6211\u4eec\u7684\u793a\u4f8b\u4e2d\u4f7f\u7528\u6b64\u51fd\u6570\u7684\u65b9\u6cd5\uff1a<\/span><\/p>\n
 #perform Bartlett's test\n<\/span>bartlett. test<\/span> (score ~ group, data = df)\n\n\tBartlett test of homogeneity of variances\n\ndata: score by group\nBartlett's K-squared = 3.3024, df = 2, p-value = 0.1918<\/strong><\/pre>\n
\u6d4b\u8bd5\u8fd4\u56de\u4ee5\u4e0b\u7ed3\u679c\uff1a<\/span><\/p>\n