如何概括一个函数

Question

我想将此函数推广到更多数据，我可以复制该函数并将其称为GetCumDefaultProportion2，但它对程序来说很重要。 我怎么能这样做？

  GetCumDefaultProportion <- function (data){
  # Calcule la proportion cumulée de défaillants F 
  # Input: data.frame avec km et survivor
  # Output: data.frame avec km, survivor et F

  res <- data[order(data$km),]

  lambda <- 1/data$survivor
  H <- cumsum(lambda)
  res$F <- 1 - exp(-H) 

  return(res)
}

Answer 1

如果你有一个名为例如＆＃34; mydfs＆＃34; ：

lapply(mydfs,GetCumDefaultProportion)将为您提供输出列表（每个data.frame一个）。