R語言組間差異的非參數(shù)檢驗

若兩組數(shù)據(jù)獨立,可以使用wilcoxon秩和檢驗(mann-whitney U檢驗),來評估觀測是否是從相同的概率分布中抽取的(即,在一個總體中獲得更高得分的概率是否比另一個總體要大)

wilcox.test(y~x, data),其中,y是一個數(shù)值型變量,x是一個二分變量蕉汪。

> with(UScrime, by(Prob, So, median))

So: 0

[1] 0.038201

----------------------------------------------------------------------

So: 1

[1] 0.055552

> wilcox.test(Prob ~ So, data=UScrime)

? ? ? ? Wilcoxon rank sum test

data:? Prob by So

W = 81, p-value = 8.488e-05

alternative hypothesis: true location shift is not equal to 0

> sapply(UScrime[c("U1","U2")],median)

U1 U2

92 34

> with(UScrime, wilcox.test(U1,U2,paried=TRUE))

? ? ? ? Wilcoxon rank sum test with continuity correction

data:? U1 and U2

W = 2209, p-value < 2.2e-16

alternative hypothesis: true location shift is not equal to 0

Warning message:

In wilcox.test.default(U1, U2, paried = TRUE) :

? cannot compute exact p-value with ties

> states <- data.frame(state.region, state.x77)

> kruskal.test(Illiteracy~state.region, data=states)

? ? ? ? Kruskal-Wallis rank sum test

data:? Illiteracy by state.region

Kruskal-Wallis chi-squared = 22.672, df = 3, p-value = 4.726e-05

> #顯然,結(jié)果表明逞怨,美國各個地區(qū)的文盲率是各不相同的(p<0.001)

> source("http://www.statmethods.net/RiA/wmc.txt")

> states<- data.frame(state.region, state.x77)

> wmc(Illiteracy ~ state.region, data=states, method="holm")

Descriptive Statistics

? ? ? ? ? West North Central Northeast? ? South

n? ? ? 13.00000? ? ? 12.00000? 9.00000 16.00000

median? 0.60000? ? ? 0.70000? 1.10000? 1.75000

mad? ? 0.14826? ? ? 0.14826? 0.29652? 0.59304

Multiple Comparisons (Wilcoxon Rank Sum Tests)

Probability Adjustment = holm

? ? ? ? Group.1? ? ? Group.2? ? W? ? ? ? ? ? p? ?

1? ? ? ? ? West North Central 88.0 8.665618e-01? ?

2? ? ? ? ? West? ? Northeast 46.5 8.665618e-01? ?

3? ? ? ? ? West? ? ? ? South 39.0 1.788186e-02? *

4 North Central? ? Northeast 20.5 5.359707e-02? .

5 North Central? ? ? ? South? 2.0 8.051509e-05 ***

6? ? Northeast? ? ? ? South 18.0 1.187644e-02? *

---

Signif. codes:? 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

>#source()函數(shù)下載并執(zhí)行了定義wmc()函數(shù)的R腳本者疤。函數(shù)的形式wmc(y~A, data, method),其中叠赦,y是數(shù)值輸出變量驹马,A是分組變量, data是包含這些變量的數(shù)據(jù)框眯搭,method指定限制I類誤差的方法窥翩。代碼清單7.17使用的是基于holm提出的調(diào)整方法,可以很大程度上控制總體I類誤差率鳞仙。

wmc()函數(shù)首先給出了樣本量寇蚊、樣本中位數(shù)、每組的絕對中位數(shù)棍好,其中仗岸,西部地區(qū)文盲率最低,南部地區(qū)文盲率最高借笙。然后扒怖,函數(shù)生成了六組統(tǒng)計比較∫导冢可以從雙側(cè)P看到盗痒,南部與其他三個區(qū)域有明顯差別,但當顯著性水平p<0.05時低散,其他三個區(qū)域間并沒有統(tǒng)計顯著的差別俯邓。


組間差異的非參數(shù)檢驗的基本知識到這就結(jié)束了,咱們下期再見熔号!O(∩_∩)O哈哈~

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末稽鞭,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子引镊,更是在濱河造成了極大的恐慌朦蕴,老刑警劉巖篮条,帶你破解...
    沈念sama閱讀 211,290評論 6 491
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異吩抓,居然都是意外死亡涉茧,警方通過查閱死者的電腦和手機,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,107評論 2 385
  • 文/潘曉璐 我一進店門琴拧,熙熙樓的掌柜王于貴愁眉苦臉地迎上來降瞳,“玉大人,你說我怎么就攤上這事蚓胸≌跫ⅲ” “怎么了?”我有些...
    開封第一講書人閱讀 156,872評論 0 347
  • 文/不壞的土叔 我叫張陵沛膳,是天一觀的道長扔枫。 經(jīng)常有香客問我,道長锹安,這世上最難降的妖魔是什么短荐? 我笑而不...
    開封第一講書人閱讀 56,415評論 1 283
  • 正文 為了忘掉前任,我火速辦了婚禮叹哭,結(jié)果婚禮上忍宋,老公的妹妹穿的比我還像新娘。我一直安慰自己风罩,他們只是感情好糠排,可當我...
    茶點故事閱讀 65,453評論 6 385
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著超升,像睡著了一般入宦。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上室琢,一...
    開封第一講書人閱讀 49,784評論 1 290
  • 那天乾闰,我揣著相機與錄音,去河邊找鬼盈滴。 笑死涯肩,一個胖子當著我的面吹牛,可吹牛的內(nèi)容都是我干的巢钓。 我是一名探鬼主播病苗,決...
    沈念sama閱讀 38,927評論 3 406
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼竿报!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起继谚,我...
    開封第一講書人閱讀 37,691評論 0 266
  • 序言:老撾萬榮一對情侶失蹤烈菌,失蹤者是張志新(化名)和其女友劉穎阵幸,沒想到半個月后,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體芽世,經(jīng)...
    沈念sama閱讀 44,137評論 1 303
  • 正文 獨居荒郊野嶺守林人離奇死亡挚赊,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 36,472評論 2 326
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了济瓢。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片荠割。...
    茶點故事閱讀 38,622評論 1 340
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖旺矾,靈堂內(nèi)的尸體忽然破棺而出蔑鹦,到底是詐尸還是另有隱情,我是刑警寧澤箕宙,帶...
    沈念sama閱讀 34,289評論 4 329
  • 正文 年R本政府宣布嚎朽,位于F島的核電站,受9級特大地震影響柬帕,放射性物質(zhì)發(fā)生泄漏哟忍。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 39,887評論 3 312
  • 文/蒙蒙 一陷寝、第九天 我趴在偏房一處隱蔽的房頂上張望锅很。 院中可真熱鬧,春花似錦凤跑、人聲如沸爆安。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,741評論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽鹏控。三九已至,卻和暖如春肤寝,著一層夾襖步出監(jiān)牢的瞬間当辐,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 31,977評論 1 265
  • 我被黑心中介騙來泰國打工鲤看, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留缘揪,地道東北人。 一個月前我還...
    沈念sama閱讀 46,316評論 2 360
  • 正文 我出身青樓义桂,卻偏偏與公主長得像找筝,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子慷吊,可洞房花燭夜當晚...
    茶點故事閱讀 43,490評論 2 348

推薦閱讀更多精彩內(nèi)容

  • 你離開得很突然 我忘記得很簡單 沒有無心袖裕,也沒有刻意 只是突然浮現(xiàn)你的身影 我沒有找你,也沒有想你 只是偶爾會在夢...
    蝸牛夏天閱讀 185評論 0 0
  • 時間好無情 溉瓶,任我苦苦哀求急鳄,卻不肯說谤民,大海是怎樣遺忘鯊魚
    柳多多閱讀 207評論 0 0
  • 初夏的黃昏 安靜坐于海邊的沙灘 看落陽一點點沉于黛藍的海面 耳邊時有清風掠過 海的味道輕輕觸摸著鼻尖 緋紅的晚霞絲...
    片月生海閱讀 294評論 0 0
  • 文 | 爾東陳 2017 年 3 月份的時候參加了有一個有趣的活動 — AHA,認識了一些有趣的人疾宏,其中對我影響最...
    _爾東陳_閱讀 637評論 0 2