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

熱線電話:13121318867

登錄
首頁(yè)精彩閱讀R語(yǔ)言與點(diǎn)估計(jì)學(xué)習(xí)筆記(刀切法與最小二乘估計(jì))
R語(yǔ)言與點(diǎn)估計(jì)學(xué)習(xí)筆記(刀切法與最小二乘估計(jì))
2017-07-20
收藏

R語(yǔ)言與點(diǎn)估計(jì)學(xué)習(xí)筆記(刀切法與最小二乘估計(jì))

一、       刀切法(jackknife)

        刀切法的提出,是基于點(diǎn)估計(jì)準(zhǔn)則無(wú)偏性。刀切法的作用就是不斷地壓縮偏差。但需要指出的是縮小偏差并不是一個(gè)好的辦法,因?yàn)?a href='/map/piancha/' style='color:#000;font-size:inherit;'>偏差趨于0時(shí),均方誤差會(huì)變得十分大。而且無(wú)偏性只有在大量重復(fù)時(shí)才會(huì)表現(xiàn)出與真值的偏差不大。Jackknife的想法在于:既然樣本是抽出來(lái)的,那我在作估計(jì)、推斷的時(shí)候“扔掉”幾個(gè)樣本點(diǎn)看看效果如何。

        例如我們來(lái)看使用刀切法估計(jì)正態(tài)分布N(2,25)的方差,我們認(rèn)為樣本的修正方差是關(guān)于總體方差的一個(gè)估計(jì)量使用刀切法:

>x<-rnorm(100,2,5)

>jack<-function(x){

+jackknife<-0

+for(i   in  1:length(x))     jackknife[i]=length(x)*var(x)-(length(x)-1)/length(x)*sum(var(x[-i]))

+ jackknife

+ }

>mean(jack(x))/length(x)

[1]26.07598

> var(x)

[1]26.33671

可以看出刀切法得到的估計(jì)量更接近總體方差。

關(guān)于刀切法,也不僅僅只是用來(lái)做參數(shù)估計(jì)的,他的用法與之前提到的bootstrap類似。

二、最小二乘估計(jì)

雖然MLe是很好的參數(shù)估計(jì)辦法,它過分依賴總體分布。在不知道總體分布的情況下,又只知道一組數(shù)據(jù),那么LSE將會(huì)是一個(gè)不錯(cuò)的選擇。關(guān)于LSE的相關(guān)理論你可以參考任意一本數(shù)理統(tǒng)計(jì)的教材,比如前面提到的王兆軍《數(shù)理統(tǒng)計(jì)講義》(這個(gè)百度文庫(kù)里有)

下面介紹一下R中的做回歸的函數(shù)lm,用法如下:

lm(formula, data, subset, weights, na.action,

  method = "qr", model = TRUE, x = FALSE, y = FALSE, qr = TRUE,

  singular.ok = TRUE, contrasts = NULL, offset, ...)

僅以R中給出的example中的數(shù)據(jù)作為例子:

> ctl <-c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)

> trt <-c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)

> group <- gl(2,10,20,labels=c("Ctl","Trt"))

> weight <- c(ctl, trt)

> lm.D9 <- lm(weight ~ group)

> lm.D9

 

Call:

lm(formula = weight ~ group)

 

Coefficients:

(Intercept)    groupTrt 

     5.032       -0.371 

 

> summary(lm.D9)

 

Call:

lm(formula = weight ~ group)

 

Residuals:

   Min      1Q  Median     3Q     Max

-1.0710 -0.4938  0.0685 0.2462  1.3690

 

Coefficients:

           Estimate Std. Error t value Pr(>|t|)   

(Intercept)  5.0320     0.2202  22.850 9.55e-15 ***

groupTrt    -0.3710     0.3114  -1.191   0.249   

---

Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

 

Residual standard error: 0.6964 on 18 degreesof freedom

Multiple R-squared: 0.07308,    Adjusted R-squared: 0.02158

F-statistic: 1.419 on 1 and 18 DF,  p-value: 0.249

可以得到常數(shù)項(xiàng)為5.0320,一次項(xiàng)系數(shù)為-0.3710

關(guān)于最小二乘估計(jì),在時(shí)間序列模型的參數(shù)估計(jì)中也有用,在時(shí)間序列分析的學(xué)習(xí)筆記中會(huì)提到


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

若不方便掃碼,搜微信號(hào):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(), // 加隨機(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, // 表示用戶后臺(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ù)說明請(qǐng)參見: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); }