R 非常简单函数中的错误

我想制作一个简单的函数，通过删除所有小于0.95的值来过滤数组中的所有值

刚刚编辑。。为了教育目的想知道答案吗

以下是我所拥有的：

significance <- function(x){
i<- 1
 while(i <= 345){

   if(x[i] < 0.95){
     x <- x[-i]
     i<- i+1

   }else{
     i<- i+1

   }

 }
  return(x)
}

---

显著性您得到的是
长度（x）
，然后缩短
x
，这将导致问题

也就是说，这不是编写这样的函数的好方法。您应该使用
R
的矢量化属性来更快地执行此操作

fun <- function(x) {
  x[x >= 0.95]
}

fun=0.95]
}
您将获得
长度（x）
，然后缩短
x
，这将导致问题

也就是说，这不是编写这样的函数的好方法。您应该使用
R
的矢量化属性来更快地执行此操作

fun <- function(x) {
  x[x >= 0.95]
}

fun=0.95]
}
啊，我明白了！非常感谢你的帮助。啊，我明白了！非常感谢你的帮助。