计算不同起点和终点的曲线下面积答案

【问题标题】：Calculate the area under the curve with different starting and end points计算不同起点和终点的曲线下面积
【发布时间】：2015-04-23 10:06:35
【问题描述】：

我想计算大数据框每一列的曲线下面积，其中每一列的积分限制不同，并存储在不同的数据框 (df2) 中。其中df2表示积分的起点和终点的位置。

n = 1:100

s = 52:151

b = 68:167

df = data.frame(n, s, b) 


start = c(45,50,38)

end = c(68,70,72)

df2 = data.frame(start, end)

我使用了 MESS 库中的函数 auc，以便从一列计算 auc，但我已经堆叠为所有的人做这件事

任何人都可以提供一些建议，我可以如何做到这一点？还有另一个更适合我的问题的包吗？

提前谢谢你

【问题讨论】：

标签： r auc

【解决方案1】：

生成向量：

x <- 1:100 #I guess

setNames(
  sapply(seq_len(ncol(df)), 
         function(i) auc(x, df[[i]], df2$start[i], df2$end[i]) ),
  names(df)
  )

或作为数据框：

df3 <- as.data.frame( setNames(
  lapply(seq_len(ncol(df)),
         function(i) auc(x, df[[i]], df2$start[i], df2$end[i]) ),
  names(df)
  ))

【讨论】：