r - 如何从函数返回最后一个值

Question

我想返回data.frame中搜索的最后一个值，这是我的代码：

timepoint1 <- function(x) which(x < 1.1*min(x))[1]
timepoint2 <- function(x) which(x > 4.4*min(x))[1]

Final <- data.frame(
  Min = sapply(df,min,na.rm=1),
  Max = sapply(df,max,na.rm=1),
  T1 = sapply(df, timepoint1),
  T2 = sapply(df, timepoint2)
)

在data.frame df中，有多个值在1.1 * min以下但是我找不到能够将最后一个值追加到data.frame Final的方法。

感谢您的任何见解。

Answer 1

因为它总是返回与输入x相同数量的元素

你可以这样做：

timepoint1 <- function(x) which(x < 1.1*min(x))[length(x)]