如何在R中的dataframe上循环optim

# 准备数据
df1 <- data.frame(x = c(1, 2, 3), y = c(4, 5, 6))
df2 <- data.frame(x = c(7, 8, 9), y = c(10, 11, 12))

# 创建函数
target_function <- function(params, data) {
  # 参数 params 是要优化的参数
  # 数据 data 是输入数据框
  
  # 在这里定义目标函数
  # 返回你想要最小化或最大化的值
}

# 使用循环
results <- list() # 用于保存结果的列表

for (i in 1:2) { # 假设有两个数据框
  if (i == 1) {
    data <- df1
  } else {
    data <- df2
  }
  
  result <- optim(par = c(0, 0), fn = target_function, data = data)
  
  results[[i]] <- list(params = result$par, min_value = result$value)
}

# 输出结果
for (i in 1:length(results)) {
  cat("Dataframe", i, "optimization results:\n")
  cat("Optimized parameters:", results[[i]]$params, "\n")
  cat("Minimum value of target function:", results[[i]]$min_value, "\n\n")
}