R语言与数据模型(1)-平均,方差,中位数,分位数,极差

1.求平均数。

> x<-c(1,10,20,30,40,50,NA,60)

> xm<-mean(x)
> xm
[1] NA
#na.rm表示允许缺失数据NA

> xm<-mean(x,na.rm=TRUE)

> xm
[1] 30.14286
>> x<-c(1,10,20,30,40,50,60)
> xm<-mean(x)
> xm
[1] 30.14286

#trim表示去两端数据的百分比
> mean(x,trim=0.5)
[1] 30

2.样本方差与标准差
注意,不是总体方差
> x<-c(11,22,33,44,55,66)
> var(x)
[1] 423.5
> sd(x)
[1] 20.57912

3.中位数,分位数,极差
> x<-c(1,10,20,30,40,50,NA,60)
> xmd<-median(x,na.rm=TRUE)
> xmd

[1] 30

probs可以指定分位

> quantile(x,na.rm=TRUE)
  0%  25%  50%  75% 100% 
   1   15   30   45   60
> quantile(x,probs=c(0.1,0.8),na.rm=TRUE)

 10%  80% 
 6.4 48.0 

极差

> x=c(123,124,11,90,20,19,26,51)
> max(x)-min(x)

[1] 113

> r=range(x)
> r
[1]  11 124
> r[2]-r[1]
[1] 113

半极差

> r=quantile(x,c(1/4,3/4),names=FALSE)
> r
[1] 19.75 98.25
> r[2]-r[1]
[1] 78.5

  • 2
    点赞
  • 37
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值