99999久久久久久亚洲,欧美人与禽猛交狂配,高清日韩av在线影院,一个人在线高清免费观看,啦啦啦在线视频免费观看www

熱線電話:13121318867

登錄
首頁精彩閱讀R語言-組間差異的非參數(shù)檢驗
R語言-組間差異的非參數(shù)檢驗
2017-05-31
收藏

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

7.5 組間差異的非參數(shù)檢驗
如果數(shù)據(jù)無法滿足t檢驗或ANOVA的參數(shù)假設(shè),可以轉(zhuǎn)而使用非參數(shù)方法。舉例來說,若結(jié)果變量在本質(zhì)上就嚴(yán)重偏倚或呈現(xiàn)有序關(guān)系,那么你可能會希望使用本節(jié)中的方法。

7.5.1 兩組的比較
若兩組數(shù)據(jù)獨立,可以使用Wilcoxon秩和檢驗(更廣為人知的名字是Mann–Whitney U檢驗)來評估觀測是否是從相同的概率分布中抽得的(即,在一個總體中獲得更高得分的概率是否比另一個總體要大)。調(diào)用格式為:

其中的y是數(shù)值型變量,而x是一個二分變量。調(diào)用格式或為:

其中的y1和y2為各組的結(jié)果變量。 可選參數(shù)data的取值為一個包含了這些變量的矩陣或數(shù)據(jù)框。 默認(rèn)進行一個雙側(cè)檢驗。你可以添加參數(shù)exact來進行精確檢驗,指定alternative="less"或alternative="greater"進行有方向的檢驗。
如果你使用Mann–Whitney U檢驗回答上一節(jié)中關(guān)于監(jiān)禁率的問題,將得到這些結(jié)果:

你可以再次拒絕南方各州和非南方各州監(jiān)禁率相同的假設(shè)(p < 0.001)。Wilcoxon符號秩檢驗是非獨立樣本t檢驗的一種非參數(shù)替代方法。它適用于兩組成對數(shù)據(jù)和無法保證正態(tài)性假設(shè)的情境。調(diào)用格式與Mann–Whitney U檢驗完全相同,不過還可以添加參數(shù)paired=TRUE。讓我們用它解答上一節(jié)中的失業(yè)率問題:

你再次得到了與配對t檢驗相同的結(jié)論。在本例中,含參的t檢驗和與其作用相同的非參數(shù)檢驗得到了相同的結(jié)論。當(dāng)t檢驗的假設(shè)合理時,參數(shù)檢驗的功效更強(更容易發(fā)現(xiàn)存在的差異)。而非參數(shù)檢驗在假設(shè)非常不合理時(如對于等級有序數(shù)據(jù))更適用。

7.5.2 多于兩組的比較
在要比較的組數(shù)多于兩個時,必須轉(zhuǎn)而尋求其他方法。考慮7.4節(jié)中的state.x77數(shù)據(jù)集。它包含了美國各州的人口、收入、文盲率、預(yù)期壽命、謀殺率和高中畢業(yè)率數(shù)據(jù)。如果你想比較美國四個地區(qū)(東北部、南部、中北部和西部)的文盲率,應(yīng)該怎么做呢?這稱為單向設(shè)計(one-way design),我們可以使用參數(shù)或非參數(shù)的方法來解決這個問題。如果無法滿足ANOVA設(shè)計的假設(shè),那么可以使用非參數(shù)方法來評估組間的差異。如果各組獨立,則Kruskal—Wallis檢驗將是一種實用的方法。如果各組不獨立(如重復(fù)測量設(shè)計或隨機區(qū)組設(shè)計),那么Friedman檢驗會更合適。

Kruskal–Wallis檢驗的調(diào)用格式為:

其中的y是一個數(shù)值型結(jié)果變量, A是一個擁有兩個或更多水平的分組變量(grouping variable)。(若有兩個水平,則它與Mann–Whitney U檢驗等價。)而Friedman檢驗的調(diào)用格式為:

其中的y是數(shù)值型結(jié)果變量, A是一個分組變量, 而B是一個用以認(rèn)定匹配觀測的區(qū)組變量 (blocking variable) 。在以上兩例中, data皆為可選參數(shù),它指定了包含這些變量的矩陣或數(shù)據(jù)框。
讓我們利用Kruskal–Wallis檢驗回答文盲率的問題。首先,你必須將地區(qū)的名稱添加到數(shù)據(jù)集中。這些信息包含在隨R基礎(chǔ)安裝分發(fā)的state.region數(shù)據(jù)集中。
現(xiàn)在就可以進行檢驗了:

顯著性檢驗的結(jié)果意味著美國四個地區(qū)的文盲率各不相同(p <0.001)。雖然你可以拒絕不存在差異的原假設(shè),但這個檢驗并沒有告訴你哪些地區(qū)顯著地與其他地區(qū)不同。要回答這個問題,你可以使用Mann–Whitney U檢驗每次比較兩組數(shù)據(jù)。一種更為優(yōu)雅的方法是在控制犯第一類錯誤的概率(發(fā)現(xiàn)一個事實上并不存在的差異的概率)的前提下,執(zhí)行可以同步進行的多組比較,這樣可以直接完成所有組之間的成對比較。 npmc包提供了所需要的非參數(shù)多組比較程序。
說實話,我將本章標(biāo)題中基本的定義拓展了不止一點點,但由于在這里講非常合適,所以希望你能夠容忍我的做法。第一步,請先安裝npmc包。此包中的npmc()函數(shù)接受的輸入為一個兩列的數(shù)據(jù)框,其中一列名為var(因變量),另一列名為class(分組變量)。代碼清單7-20中包含了可以用來完成計算的代碼。

調(diào)用了npmc的語句生成了六對統(tǒng)計比較結(jié)果(東北部對南部、東北部對中北部、東北部對西部、南部對中北部、南部對西部,以及中北部對西部) ??梢詮碾p側(cè)的p值(p.value.2s)看出南部與其他三個地區(qū)顯著不同,而其他三個地區(qū)之間并沒有什么不同。在 處可以看到南部的文盲率中間值更高。注意, npmc在計算積分時使用了隨機數(shù),所以每次計算的結(jié)果會有輕微的不同。

數(shù)據(jù)分析咨詢請掃描二維碼

若不方便掃碼,搜微信號:CDAshujufenxi

數(shù)據(jù)分析師資訊
更多

OK
客服在線
立即咨詢
客服在線
立即咨詢
') } function initGt() { var handler = function (captchaObj) { captchaObj.appendTo('#captcha'); captchaObj.onReady(function () { $("#wait").hide(); }).onSuccess(function(){ $('.getcheckcode').removeClass('dis'); $('.getcheckcode').trigger('click'); }); window.captchaObj = captchaObj; }; $('#captcha').show(); $.ajax({ url: "/login/gtstart?t=" + (new Date()).getTime(), // 加隨機數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進行初始化 // 參數(shù)1:配置參數(shù) // 參數(shù)2:回調(diào),回調(diào)的第一個參數(shù)驗證碼對象,之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須,不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗服務(wù)器是否宕機 new_captcha: data.new_captcha, // 用于宕機時表示是新驗證碼的宕機 product: "float", // 產(chǎn)品形式,包括:float,popup width: "280px", https: true // 更多配置參數(shù)說明請參見:http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計時完成 $(".getcheckcode").removeClass('dis').html("重新獲取"); }else{ $(".getcheckcode").addClass('dis').html("重新獲取("+_wait+"s)"); _wait--; setTimeout(function () { codeCutdown(); },1000); } } function inputValidate(ele,telInput) { var oInput = ele; var inputVal = oInput.val(); var oType = ele.attr('data-type'); var oEtag = $('#etag').val(); var oErr = oInput.closest('.form_box').next('.err_txt'); var empTxt = '請輸入'+oInput.attr('placeholder')+'!'; var errTxt = '請輸入正確的'+oInput.attr('placeholder')+'!'; var pattern; if(inputVal==""){ if(!telInput){ errFun(oErr,empTxt); } return false; }else { switch (oType){ case 'login_mobile': pattern = /^1[3456789]\d{9}$/; if(inputVal.length==11) { $.ajax({ url: '/login/checkmobile', type: "post", dataType: "json", data: { mobile: inputVal, etag: oEtag, page_ur: window.location.href, page_referer: document.referrer }, success: function (data) { } }); } break; case 'login_yzm': pattern = /^\d{6}$/; break; } if(oType=='login_mobile'){ } if(!!validateFun(pattern,inputVal)){ errFun(oErr,'') if(telInput){ $('.getcheckcode').removeClass('dis'); } }else { if(!telInput) { errFun(oErr, errTxt); }else { $('.getcheckcode').addClass('dis'); } return false; } } return true; } function errFun(obj,msg) { obj.html(msg); if(msg==''){ $('.login_submit').removeClass('dis'); }else { $('.login_submit').addClass('dis'); } } function validateFun(pat,val) { return pat.test(val); }