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

熱線電話：13121318867

登錄
首頁精彩閱讀R語言-統(tǒng)計(jì)學(xué) 描述性統(tǒng)計(jì)
R語言-統(tǒng)計(jì)學(xué) 描述性統(tǒng)計(jì)
2018-02-26
收藏

R語言-統(tǒng)計(jì)學(xué) 描述性統(tǒng)計(jì)

描述定量數(shù)據(jù)的數(shù)值方法：中心趨勢(shì)度量   變異的度量   相對(duì)位置的度量。

1.中心趨勢(shì)度量 ： 算數(shù)平均 中位數(shù)   眾數(shù)

1.1  在R中計(jì)算平均數(shù)的函數(shù)  mean( )
常規(guī)的mean() 函數(shù)用法                
mean(x, trim = 0, na.rm = FALSE, ...) 
參數(shù)說明： x 對(duì)象名稱
trim  過濾掉異常值 ，按照距離平均值的遠(yuǎn)近距離排除，如對(duì)象中含有10個(gè)數(shù)據(jù)，排除最高和最低值，trim=0.2
na.rm  默認(rèn)為F   表示是否計(jì)入空值
實(shí)例1： 做一個(gè)稍微復(fù)雜點(diǎn)的操作，用r做數(shù)據(jù)透視表并把結(jié)果轉(zhuǎn)換為matrix ，對(duì)行列求和。(僅娛樂，無實(shí)用價(jià)值)

         demo <- mtcars[1:6,] # 調(diào)用R自帶函數(shù)集，并去前6行
         toushi <- aggregate(mtcars[,5:6] ,by = list(cyl = mtcars$cyl),sum) # 數(shù)據(jù)透視表求和
         toushi <- as.matrix(toushi)  # 將結(jié)果的數(shù)據(jù)框轉(zhuǎn)化成矩陣
         #(toushi <- apply(toushi,c(1,2),sum))
         (rowSums(toushi))  # 行求和
         (colSums(toushi))  # 列求和
         toushi <- rbind(toushi,rowSums(toushi))  #將行求和結(jié)果并入最后一行
         toushi <- cbind(toushi,colSums(toushi))  #將列求和結(jié)果并入最后一列
  1.2 中位數(shù)和眾數(shù) 
        對(duì)于偏度極大的數(shù)據(jù)集，中位數(shù)能更好的描述數(shù)據(jù)分布的中心。
       很少用眾數(shù)作為數(shù)據(jù)數(shù)據(jù)趨勢(shì)的度量，只有當(dāng)對(duì)y出現(xiàn)的相對(duì)頻率感興趣時(shí)，才會(huì)考慮到眾數(shù)。
       R實(shí)現(xiàn)中位數(shù)  ： 
        median(x, na.rm = FALSE)
       R中沒有直接插找眾數(shù)的命令
       which.max(table(x))
2.變異的度量 ： 極差  方差  標(biāo)準(zhǔn)差
    2.1 .極差 = max（）- min（）
    2.2  方差和標(biāo)準(zhǔn)差
       對(duì)一個(gè)有n個(gè)測量值的有限總體來說，方差計(jì)算公式的分母為n。關(guān)于樣本方差和總體方差分母的差異原因，可自行百度搜索。
       R語言計(jì)算方差的函數(shù)： var(x,)
       w<-c(75.0,64.0,47.4,66.9,62.2,62.2,58.7,63,5,66.6,64.0,57.0,69.0,56.9,50.0,72.0)
       var(w)
       # 附加指數(shù)點(diǎn)：標(biāo)準(zhǔn)差的兩個(gè)有用法則：經(jīng)驗(yàn)法則 和 切比雪夫法則，共同說明一個(gè)問題，對(duì)于任意大于1的正數(shù)k，至少有（1-1/k^2）的測試值落在平均值的k個(gè)標(biāo)準(zhǔn)值范圍內(nèi)。
3.變異的度量 ： 百分位數(shù)  Z得分
 3.1 .最常見的四分位數(shù)（一般從大到?。?br />       quantile(x, probs = seq(0, 1, 0.25), na.rm = FALSE,names = TRUE, type = 7, ...)

數(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)檢測極驗(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); }