mtcars"/>
溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

R語言筆記 自定義峰度 和 偏度 函數(shù)

發(fā)布時間：2020-07-05 04:05:55 來源：網(wǎng)絡(luò) 閱讀：5204 作者：jackwxh 欄目：編程語言

> mtcars<- function(x,na.omit=FALSE){

+ if(na.omit)

+ x<-x[!is.na(x)]

+ m<-mean(x)

+ n<-length(x)

+ s<-sd(x)

+ skew<-sum((x-m)^3/s^3)/n

+ kurt<-sum((x-m)^4/s^4)/n-3

+ return(c(n=n,mean=m,stdev=s,skew=skew,kurtosis=kurt))

+ }


vars<- c("mpg","hp","wt")


> sapply(mtcars[vars],mtstat)

               mpg          hp          wt

n        32.000000  32.0000000 32.00000000

mean     20.090625 146.6875000  3.21725000

stdev     6.026948  68.5628685  0.97845744

skew      0.610655   0.7260237  0.42314646

kurtosis -0.372766  -0.1355511 -0.02271075

> 


向AI問一下細(xì)節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進(jìn)行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手