R语言笔记 自定义峰度 和 偏度 函数
admin
2023-02-16 05:40:04
0次

> 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

> 


上一篇：R语言笔记 计算描述性统计量的函数

下一篇：go语言的循环语句

相关内容

热门资讯

重磅消息“中至江西麻将开挂器？... 重磅消息“中至江西麻将开挂器？”(详细开挂教程)您好，中至江西麻将这个游戏其实有挂的，确实是有挂的，...
终于了解“贪玩互娱怎么开挂？”... 您好：贪玩互娱这款游戏可以开挂，确实是有挂的，需要了解加客服微信【9784099】很多玩家在这款游戏...
终于明白“欢喜麻将是不是有挂？... 网上科普关于“欢喜麻将有没有挂”话题很是火热，小编也是针对欢喜麻将作*弊开挂的方法以及开挂对应的知识...
玩家攻略科普“卡农牛牛开挂神器... 您好：卡农牛牛这款游戏可以开挂，确实是有挂的，需要了解加客服微信【9752949】很多玩家在这款游戏...
最新引进“钱柜手游辅助器？”(... 网上科普关于“钱柜手游有没有挂”话题很是火热，小编也是针对钱柜手游作*弊开挂的方法以及开挂对应的知识...
【第一财经】“万人玩麻将到底是... 有 亲，根据资深记者爆料万人玩麻将是可以开挂的，确实有挂（咨询软件无需打...
我来教教您“点点四川长牌开挂器... 家人们！今天小编来为大家解答点点四川长牌透视挂怎么安装这个问题咨询软件客服徽9784099的挂在哪里...
玩家攻略科普“微乐三打一开挂器... 您好：微乐三打一这款游戏可以开挂，确实是有挂的，需要了解加客服微信【4282891】很多玩家在这款游...
【第一资讯】“闽悦麻将开挂器？... 家人们！今天小编来为大家解答闽悦麻将透视挂怎么安装这个问题咨询软件客服徽9784099的挂在哪里买很...
玩家攻略科普“大玩家十三水开挂... 有 亲，根据资深记者爆料大玩家十三水是可以开挂的，确实有挂（咨询软件无需...