在具有purrr map2函数的线性模型中使用多个预测器

install.packages("purrr")

library(purrr)

# 导入数据集
data <- read.csv("data.csv")

# 创建线性模型函数
create_lm <- function(predictors) {
  lm(formula = outcome ~ predictors, data = data)
}

# 定义预测器
predictors <- c("predictor1", "predictor2", "predictor3")

# 应用线性模型函数
models <- map2(predictors, predictors, create_lm)

# 提取系数
coefficients <- map(models, coef)

# 计算拟合优度
r_squared <- map(models, summary) %>% map_dbl(~.$r.squared)