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

熱線(xiàn)電話(huà)：13121318867

登錄
首頁(yè)精彩閱讀使用R進(jìn)行統(tǒng)計(jì)分析--假設(shè)檢驗(yàn)
使用R進(jìn)行統(tǒng)計(jì)分析--假設(shè)檢驗(yàn)
2017-02-24
收藏

使用R進(jìn)行統(tǒng)計(jì)分析--假設(shè)檢驗(yàn)

假設(shè)檢驗(yàn)是統(tǒng)計(jì)學(xué)中的一種推斷方法，用來(lái)判斷兩個(gè)樣本或總體間的差異是由于抽樣誤差引起的還是本質(zhì)差別造成的。R語(yǔ)言中提供了很多假設(shè)檢驗(yàn)函數(shù)，如F檢驗(yàn)，t檢驗(yàn)和卡方檢驗(yàn)等等。本篇文章介紹如何使用R語(yǔ)言中的這些函數(shù)進(jìn)行假設(shè)檢驗(yàn)。

二項(xiàng)分布檢驗(yàn)

假設(shè)一個(gè)廣告的點(diǎn)擊率為0.02，更換新的廣告創(chuàng)意后1000次曝光獲得了23次點(diǎn)擊，新廣告在點(diǎn)擊率上是否明顯優(yōu)于老廣告？

H0：新廣告與老廣告效果無(wú)差異

H1：新廣告效果優(yōu)于老廣告

#老廣告點(diǎn)擊率0.02，新廣告1000次廣告曝光獲得23次點(diǎn)擊是否明顯優(yōu)于老廣告
binom.test(x =23,n = 1000,p = 0.02,alternative = "greater",conf.level = 0.95 )

p-value = 0.2778>0.05，在0.95的置信區(qū)間下接受原假設(shè)H0。新廣告與老廣告在點(diǎn)擊率上沒(méi)有顯著差異。

#1000次訪(fǎng)問(wèn)0.02點(diǎn)擊率下差異顯著的臨界值
qbinom(p = 0.95,size = 1000,prob = 0.02)

[1] 28

新廣告在1000次廣告曝光中點(diǎn)擊量需要提升到28次以上才能明顯優(yōu)于老廣告的效果。

泊松分布檢驗(yàn)

假設(shè)一次市場(chǎng)推廣活動(dòng)中前一個(gè)小時(shí)有50人注冊(cè)，后一個(gè)小時(shí)有60人注冊(cè)，后一小時(shí)的注冊(cè)人數(shù)是否明顯高于前一小時(shí)？

H0：前一小時(shí)與后一小時(shí)注冊(cè)人數(shù)無(wú)差異

H1：后一小時(shí)注冊(cè)用戶(hù)數(shù)量高于前一小時(shí)

#上一小時(shí)50人注冊(cè)，下一小時(shí)60人注冊(cè)，后一小時(shí)是否顯著高于前一小時(shí)
poisson.test(x = 60,T = 50,alternative = "greater",conf.level = 0.95)

p-value = 0.09227>0.05，在0.95的置信區(qū)間下接受原假設(shè)H0，后一小時(shí)注冊(cè)人數(shù)與前一小時(shí)無(wú)差異。

#將過(guò)去一周咨詢(xún)用戶(hù)數(shù)量賦給X
X=c(229,164,121,137,155,127,143)
#計(jì)算過(guò)去一周咨詢(xún)量的均值
mean(X)
[1] 153.7143
#過(guò)去一周咨詢(xún)用戶(hù)數(shù)量是否達(dá)到目標(biāo)
t.test(X,alternative = "greater",mu=153,conf.level = 0.95)

[1] 62

后一小時(shí)的注冊(cè)用戶(hù)數(shù)需要提升到62以上才能明顯高于前一小時(shí)的注冊(cè)用戶(hù)數(shù)。

單樣本t檢驗(yàn)

假設(shè)某流量渠道的目標(biāo)是每日帶來(lái)150個(gè)咨詢(xún)，在過(guò)去的一周帶來(lái)的咨詢(xún)用戶(hù)數(shù)量分別為229,164,121,137,145,127,123，我們是否能認(rèn)為該渠道已經(jīng)達(dá)到目標(biāo)，即每日的平均咨詢(xún)量大于150？

這里使用單樣本t檢驗(yàn)，首先建立假設(shè)。

H0：每日平均咨詢(xún)量不大于153，未達(dá)到目標(biāo)。

H1：每日平均咨詢(xún)量大于153，達(dá)到目標(biāo)。

#將過(guò)去一周咨詢(xún)用戶(hù)數(shù)量賦給X
X=c(229,164,121,137,155,127,143)
#計(jì)算過(guò)去一周咨詢(xún)量的均值
mean(X)
[1] 153.7143

#過(guò)去一周咨詢(xún)用戶(hù)數(shù)量是否達(dá)到目標(biāo)
t.test(X,alternative = "greater",mu=153,conf.level = 0.95)


p-value = 0.4801>0.05，在0.95的置信區(qū)間下接受原假設(shè)H0，流量渠道的咨詢(xún)量沒(méi)有達(dá)到目標(biāo)。

雙樣本t檢驗(yàn)

假設(shè)兩個(gè)流量渠道在過(guò)去的一周分布為網(wǎng)站帶來(lái)咨詢(xún)用戶(hù)，這兩個(gè)流量渠道帶來(lái)的咨詢(xún)用戶(hù)數(shù)量是否有顯著差異？

這里使用雙樣本t檢驗(yàn)，首先建立假設(shè)。

H0：兩個(gè)流量渠道帶來(lái)的咨詢(xún)用戶(hù)數(shù)量沒(méi)有顯著差異。

H1：兩個(gè)流量渠道帶來(lái)的咨詢(xún)用戶(hù)數(shù)量存在有顯著差異。

#流量渠道1帶來(lái)的咨詢(xún)用戶(hù)數(shù)量賦值給X
X=c(229,164,121,137,155,127,143)
#流量渠道2帶來(lái)的咨詢(xún)用戶(hù)數(shù)量賦值給Y
Y=c(175,120,187,144,117,184,135)

進(jìn)行雙樣本t檢驗(yàn)之前先進(jìn)行方差檢驗(yàn)，確定兩組樣本方差是否相同。 H0：兩個(gè)總體方差相同 H1：兩個(gè)總體方差不同

#等方差t檢驗(yàn)，兩個(gè)流量渠道帶來(lái)的咨詢(xún)用戶(hù)數(shù)量是否有差異
t.test(X,Y,var.equal=TRUE,alternative = "two.sided")

p-value = 0.6469>0.05，在0.95的置信區(qū)間下接受原假設(shè)H0，兩個(gè)總體方差相同。進(jìn)行等方差t檢驗(yàn)。

#等方差t檢驗(yàn)，兩個(gè)流量渠道帶來(lái)的咨詢(xún)用戶(hù)數(shù)量是否有差異
t.test(X,Y,var.equal=TRUE,alternative = "two.sided")

p-value = 0.9125>0.05，接受原假設(shè)H0，在0.95的置信區(qū)間下兩個(gè)流量渠道的咨詢(xún)用戶(hù)量沒(méi)有顯著差異。

成對(duì)樣本t檢驗(yàn)

假設(shè)網(wǎng)站對(duì)咨詢(xún)流程進(jìn)行了優(yōu)化并進(jìn)行了測(cè)試，那么改版后的效果是否明顯優(yōu)于改版前？

這里使用成對(duì)t檢驗(yàn)，首先建立假設(shè)。

H0：改版后的效果與改版前無(wú)差異

H1：改版后的效果明顯優(yōu)于改版前

#改版前注冊(cè)用戶(hù)量賦給before
before=c(229,164,121,137,155,127,143)
#改版后注冊(cè)用戶(hù)量賦給after
after=c(217,284,155,190,158,170,180)
#改版前的咨詢(xún)量是否小于改版后的咨詢(xún)量
t.test(before-after,alternative = "less",conf.level = 0.95)

 

p-value = 0.02362<0.05，拒絕原假設(shè)H0，接受備擇假設(shè)H1。在0.95的置信區(qū)間下改版后的效果明顯優(yōu)于改版前。

卡方檢驗(yàn)

假設(shè)廣告創(chuàng)意A1315次訪(fǎng)問(wèn)，65次轉(zhuǎn)化，轉(zhuǎn)化率4.94%，廣告創(chuàng)意B939次訪(fǎng)問(wèn)，54次轉(zhuǎn)化，轉(zhuǎn)化率5.75%。廣告創(chuàng)意B的效果是否優(yōu)于廣告創(chuàng)意A？數(shù)據(jù)分析師培訓(xùn)

這里使用卡方檢驗(yàn)，首先建立假設(shè)。

H0：兩個(gè)廣告創(chuàng)意的效果無(wú)差異

H1：廣告創(chuàng)意B的效果優(yōu)于廣告創(chuàng)意A

對(duì)源數(shù)據(jù)近整理，廣告創(chuàng)意A1250次未購(gòu)買(mǎi)，65次購(gòu)買(mǎi)，廣告創(chuàng)意B885次未購(gòu)買(mǎi)，54次購(gòu)買(mǎi)。以此建立列聯(lián)表。

#創(chuàng)建列聯(lián)表
X=c(1250,885,65,54)
dim(X)=c(2,2)
X

#使用卡方檢驗(yàn)
chisq.test(X,correct = FALSE)

p-value = 0.3978>0.05，在0.95的置信區(qū)間下接受原假設(shè)H0，兩個(gè)廣告創(chuàng)意效果沒(méi)有顯著差異。

數(shù)據(jù)分析咨詢(xún)請(qǐng)掃描二維碼

若不方便掃碼，搜微信號(hào)：CDAshujufenxi

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

OK
客服在線(xiàn)
立即咨詢(xún)
客服在線(xiàn)
立即咨詢(xún)
') } 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(), // 加隨機(jī)數(shù)防止緩存 type: "get", dataType: "json", success: function (data) { $('#text').hide(); $('#wait').show(); // 調(diào)用 initGeetest 進(jìn)行初始化 // 參數(shù)1：配置參數(shù) // 參數(shù)2：回調(diào)，回調(diào)的第一個(gè)參數(shù)驗(yàn)證碼對(duì)象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個(gè)配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶(hù)后臺(tái)檢測(cè)極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時(shí)表示是新驗(yàn)證碼的宕機(jī) product: "float", // 產(chǎn)品形式，包括：float，popup width: "280px", https: true // 更多配置參數(shù)說(shuō)明請(qǐng)參見(jiàn)：http://docs.geetest.com/install/client/web-front/ }, handler); } }); } function codeCutdown() { if(_wait == 0){ //倒計(jì)時(shí)完成 $(".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 = '請(qǐng)輸入'+oInput.attr('placeholder')+'！'; var errTxt = '請(qǐng)輸入正確的'+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); }