加快AUC计算

Question

我想加快这个循环。

library(MESS)

integrate<-function(y){
  x=1:length(y)
  lst<-c()
  for (i in 1:length(y)){
    lst=c(lst,auc( x[0:i],y[0:i]))
  }
  return(lst)
}

编辑; AUC功能可能需要重写，也许已经有了可以在内部完成的替代方案？