R函数错误：选择了未定义的列

我正在尝试编写一个函数，该函数将为

列表

对象中的

data.frame

的每一列提供异常值的位置。因此，我在本文中采用了@timothyjgraham建议的函数

---

当我在函数外部使用相同的数据集运行代码时，一切正常。

请提供一个数据集进行测试…在我向函数添加

return（result）

后，它与我的数据集的工作非常正常。添加

return（result）

并重新启动R修复了问题。谢谢@mzuba

FindOutliers <- function(data) {
  lowerq = apply(data, 2, quantile)[2,]
  upperq = apply(data, 2, quantile)[4,]
  iqr = upperq - lowerq
  #identify extreme outliers
  extreme.threshold.upper = (iqr * 3) + upperq
  extreme.threshold.lower = lowerq - (iqr * 3)
  result <- list()
  for (i in 1:ncol(data)) {
    result[[i]]<-which(data[,i] > extreme.threshold.upper[i] | data[,i] < extreme.threshold.lower[i])
  }
}

Error in `[.data.frame`(x, order(x, na.last = na.last, decreasing = decreasing)) : 
  undefined columns selected