求取连续截尾值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

各位大神好：
请教个问题--
已知一个向量
x<-c(1,2,3,0.2,0.034,23,2,4,2,45,767,897,2,1,64,16,19,54,0.9,0,76,3,2,33,45,65,7,87,100，1324,,654,0.00543)
如何求得向量c截去小于（均值-3*标准偏差）和大于（均值+3*标准偏差）之后的值？如果连续截取10次呢？用R语言代码如何实现？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

急求，麻烦看到的大神帮助一下，可有偿

x<-c(1,2,3,0.2,0.034,23,2,4,2,45,767,897,2,1,64,16,19,54,0.9,0,76,3,2,33,45,65,7,87,101324,654,0.00543)

for (i in c(1:10)){
  x_new=x[x>mean(x)-3*sd(x)]
  x_new=x[x<mean(x)+3*sd(x)]
  x=x_new
}

x

rainningpoet 发表于 2018-11-16 11:25
xmean(x)-3*sd(x)]
  x_new=x[x

谢谢您嘞，但是好像和截尾一次的结果是一样的呀

trim <- function(x,n) {
  nsd <- n*sd(x)
  return(x[(x < mean(x)-nsd) & (x > mean(x)+nsd)])
  }
x
trim(x,3)

你的例子跑不出来是因为你的标准差太大了。如果要跑10次，就x %>% trim(3) %>% trim(3) %>% trim(3)这样下去10次，或者用reduce

https://www.r-bloggers.com/repeatedly-applying-a-function/
关于如何连续截取10次，看看这个文章

zerofung 发表于 2018-11-16 14:37
trim % trim(3) %>% trim(3) %>% trim(3)这样下去10次，或者用reduce

谢谢您嘞

zerofung 发表于 2018-11-16 14:54
https://www.r-bloggers.com/repeatedly-applying-a-function/
关于如何连续截取10次，看看这个文章

好的，谢谢您

LYTW 发表于 2018-11-16 12:19
谢谢您嘞，但是好像和截尾一次的结果是一样的呀

那就是  你的数据点 都在 平均数的 3个标准差之内啊。再截不到新的数据点了

rainningpoet 发表于 2018-11-16 15:23
那就是  你的数据点 都在 平均数的 3个标准差之内啊。再截不到新的数据点了

用其他数据也实现不了截尾十次的结果