如何检测和删除R循环内的异常值？

Question

希望有人可以为绝望的学生提供帮助 :-) 我有一组程序代码，我有不同数量的手术（这里：程序）以及它们各自的持续时间。我想获得一些关于持续时间的描述性统计数据。为此，我希望我的循环已经通过 IQR 函数检测和删除异常值。这是没有异常检测和删除的代码：

# 输出变量 - 在每个循环之前运行 计数器0TimeIn_2_S) { Start_Time

这是我希望通过特定过程添加到循环中的内容：

Q<-quantile(Duration, probs=c(.25,.75), na.rm=FALSE)
iqr<-IQR(Duration)
up<-Q[2]+1.5*iqr
low<-Q[1]-1.5*iqr
remove<-Duration>(Q[1]-1.5*iqr) & Durations<(Q[1]-1.5*iqr)
setdiff(Duration, remove)

有人知道我该怎么做吗？

非常感谢您！

Answer 1

让它成为一个函数？

f.remove_outliers_IQR <- function(Duration)
{
Q <- quantile(Duration, probs=c(.25,.75), na.rm=FALSE)
iqr <- IQR(Duration)
up <- Q[2]+1.5*iqr
low <- Q[1]-1.5*iqr
remove <- Duration>(Q[1]-1.5*iqr) & Durations<(Q[1]-1.5*iqr)
Duration_out <- setdiff(Duration, remove)
return(Duration_out)
}

并在主循环中调用它，可能就在Counter1<-Counter1+1之前？