Function 如何在函数上循环'；谁的身体在R？

我有一个函数

function(data) {
  mod_bc <- lm(BC ~ 1 + Year, data = data) }

功能（数据）{
公元前
mod <- list()
Cmpts <- c("BC", "DU", "OM", "SS")
for(i in seq_along(Cmpts)) {
  mod[[i]] <- as.formula(paste0(Cmpts[i],  " ~ ", "1 + Year"))
  
}

Tmpmod_lst <- list()
mod_lm_lst <- list()
for (i in seq_along(Cmpts)) {
  Tmpmod_lst[[i]] <- function(data) {
      mod_lm_lst[[i]] <- lm(mod[[i]], data = data)
       
  }
}


[[1]]
function(data) {
      i
      mod_lm_lst[[i]] <- lm(mod[[i]], data = data)
   }
<bytecode: 0x7fdac747dc78>