Location : Home > Languages > Perl > Package Title : Statistics::Simpson |
![]() |
Statistics::KruskalWallis - 異なる3つ以上の集団における変数の差が有意であるか否かを検定するクルスカル−ウォリス検定(Kruskall-Wallis test)を行う Perl モジュール。
被検定集団の任意の対の間の差が有意であるか否かを検定する事後的ノイマン−ケウルス検定(post-hoc Newman-Keuls test)も含まれている。
オブジェクト指向のインタフェースを持つ:
use Statistics::KruskalWallis; use strict; my @group_1 = (6.4,6.8,7.2,8.3,8.4,9.1,9.4,9.7); my @group_2 = (2.5,3.7,4.9,5.4,5.9,8.1,8.2); my @group_3 = (1.3,4.1,4.9,5.2,5.5,8.2); my $kw = new Statistics::KruskalWallis; $kw->load_data('group 1',@group_1); $kw->load_data('group 2',@group_2); $kw->load_data('group 3',@group_3); my ($H,$p_value) = $kw->perform_kruskal_wallis_test; print "Kruskal Wallis statistic is $H\n"; print "p value for test is $p_value\n"; #post hoc my ($q,$p) = $kw->post_hoc('Newman-Keuls','group 1','group 3'); print "Newman-Keuls statistic for groups 1,3 is $q, p value $p\n"; ($q,$p) = $kw->post_hoc('Newman-Keuls','group 1','group 2'); print "Newman-Keuls statistic for groups 1,2 is $q, p value $p\n"; ($q,$p) = $kw->post_hoc('Newman-Keuls','group 2','group 3'); print "Newman-Keuls statistic for groups 2,3 is $q, p value $p\n";
本モジュールはデータに対してクルスカル−ウォリス検定を行う。
同一の大きさの独立した3以上の群データを入力とし、「それらの群の平均順位(mean rank)に差がない」ことを帰無仮説とした検定を行う。
群に含まれる対の間の差の有意さを検定する事後的検定も実装している。現在はノイマン−ケウルス検定だけであるがさらに他の検定を組み込むつもりである。
JMartin Lee, Star Technology Group, <mlee@startechgroup.co.uk>,
copyright (c) 2003 Star Technology Group Ltd.
![]() |
Updated : 2006/07/21 |