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

我想返回在

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)
)

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

你可以做：

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

timepoint1谢谢，我不太确定它是如何工作的，但通过反复试验，我得到了它。