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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言學(xué)習(xí)之決策樹
R語言學(xué)習(xí)之決策樹
2015-12-10
收藏

R語言學(xué)習(xí)之決策樹


決策樹最重要的2個問題：決策樹的生長問題，決策樹的剪枝問題。

    生長問題又包括了2個子問題：從分組變量的眾多取值中選擇一個最佳分割點(diǎn)和從眾多輸入變量中選擇當(dāng)前最佳分組變量；
    剪枝問題包括2個子問題：預(yù)修剪（事先指定樹的最大深度，葉子的最小樣本量等）和后修剪（先讓樹充分生長，然后邊修剪邊檢驗(yàn)）。
在R中，實(shí)現(xiàn)決策樹需要加載包library(rpart)，如果想把分類圖畫的漂亮點(diǎn)，還可以加載這個包：library(rpart.plot)
## rpart.control對樹進(jìn)行一些設(shè)置
## xval是10折交叉驗(yàn)證
## minsplit是最小分支節(jié)點(diǎn)數(shù)，這里指大于等于20，那么該節(jié)點(diǎn)會繼續(xù)分劃下去，否則停止
## minbucket：葉子節(jié)點(diǎn)最小樣本數(shù)
## maxdepth：樹的深度
## cp全稱為complexity parameter，指某個點(diǎn)的復(fù)雜度，對每一步拆分,模型的擬合優(yōu)度必須提高的程度，用來節(jié)省剪枝浪費(fèi)的不必要的時間，R內(nèi)部是怎么計(jì)算的還真不知道唉
ct <- rpart.control(xval=10, minsplit=20, cp=0.1)
## kyphosis是rpart這個包自帶的數(shù)據(jù)集
## na.action：缺失數(shù)據(jù)的處理辦法，默認(rèn)為刪除因變量缺失的觀測而保留自變量缺失的觀測。         
## method：樹的末端數(shù)據(jù)類型選擇相應(yīng)的變量分割方法:
## 連續(xù)性method=“anova”,離散型method=“class”,計(jì)數(shù)型method=“poisson”,生存分析型method=“exp”
## parms用來設(shè)置三個參數(shù):先驗(yàn)概率、損失矩陣、分類純度的度量方法（gini和information）
## cost我覺得是損失矩陣，在剪枝的時候，葉子節(jié)點(diǎn)的加權(quán)誤差與父節(jié)點(diǎn)的誤差進(jìn)行比較，考慮損失矩陣的時候，從將“減少-誤差”調(diào)整為“減少-損失”
fit <- rpart(Kyphosis~Age + Number + Start, 
     data=kyphosis, method="class",control=ct，
             parms = list(prior = c(0.65,0.35), split = "information"));
## 作圖有2種方法
## 第一種：
par(mfrow=c(1,3));plot(fit); text(fit,use.n=T,all=T,cex=0.9)
## 第二種，這種會更漂亮一些：
rpart.plot(fit, branch=1, branch.type=2, type=1, extra=102,
           shadow.col="gray", box.col="green",
           border.col="blue", split.col="red",
           split.cex=1.2, main="Kyphosis決策樹");
## rpart包提供了復(fù)雜度損失修剪的修剪方法，printcp會告訴分裂到每一層，cp是多少，平均相對誤差是多少
## 交叉驗(yàn)證的估計(jì)誤差（“xerror”列），以及標(biāo)準(zhǔn)誤差(“xstd”列)，平均相對誤差=xerror±xstd
printcp(fit)
## 通過上面的分析來確定cp的值
## 我們可以用下面的辦法選擇具有最小xerror的cp的辦法：
## prune(fit, cp= fit$cptable[which.min(fit$cptable[,"xerror"]),"CP"])
fit2 <- prune(fit, cp=0.01)
待續(xù)。。。。。。

注：
1.在預(yù)測分類目標(biāo)字段時為類別指定先驗(yàn)概率。先驗(yàn)概率是對總體（從中可提取訓(xùn)練數(shù)據(jù)）中的每個目標(biāo)分類的總相對頻率的估計(jì)。換句話說，先驗(yàn)概率是對預(yù)測值有任何了解之前對每個可能的目標(biāo)值的概率估計(jì)。確定決策樹分支準(zhǔn)則的時候會用到，具體內(nèi)部算法，我暫時還沒有查到。

數(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(), // 加隨機(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)的第一個參數(shù)驗(yàn)證碼對象，之后可以使用它調(diào)用相應(yīng)的接口 initGeetest({ // 以下 4 個配置參數(shù)為必須，不能缺少 gt: data.gt, challenge: data.challenge, offline: !data.success, // 表示用戶后臺檢測極驗(yàn)服務(wù)器是否宕機(jī) new_captcha: data.new_captcha, // 用于宕機(jī)時表示是新驗(yàn)證碼的宕機(jī) 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){ //倒計(jì)時完成 $(".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); }