Boxplot Stats Out和DataFrame

Question

也许问一个简单的问题。但发现很难解决。请查看以下代码：

DataFrame = FBF_Variance_Pivot 它有三列：DateKey，Concat，Units

unique_Concats<-unique(FBF_Variance_Pivot$Concat)
return_DF<-integer()
for(i in 1:length(unique_Concats)) {
  temp_DF<-FBF_Variance_Pivot[FBF_Variance_Pivot$Concat==unique_Concats[i],]
  if(length(boxplot.stats(temp_DF$Units)$out)>0) {
    rem_dates<-temp_DF$DateKey[which(temp_DF$Units %in% unique(boxplot.stats(temp_DF$Units)$out))]
    return_DF<-rbind(return_DF,
                     cbind(rem_dates,unique_Concats[i]))
  }
}

我试图在这里做的就是将DateKey和Concats作为异常值保存到我打算用于交叉验证的另一个DataFrame中。

结果DF = return_DF

问题：由于循环，这运行了6-7个小时。

任何建议？