使用R提取每个回归系数(1104个线性回归)的p值列表

# 导入所需的库
library(stats)

# 假设你已经有了一个包含回归所需数据的数据框df，其中包含了1104个线性回归的自变量和因变量

# 创建一个空的列表，用于存储每个回归系数的p值
p_values <- list()

# 循环遍历每个回归模型
for (i in 1:1104) {
  # 构建线性回归模型
  model <- lm(df$dependent_variable ~ df$independent_variable1 + df$independent_variable2 + ... + df$independent_variableN)
  
  # 提取回归系数的p值
  p_values[[i]] <- summary(model)$coefficients[, "Pr(>|t|)"]
}

# 打印每个回归系数的p值列表
for (i in 1:1104) {
  print(p_values[[i]])
}