对data.frame的每一行执行lm()，其中预测器的长度不同

# 创建一个示例的data.frame
df <- data.frame(x1 = c(1, 2, 3),
                 x2 = c(4, 5),
                 y = c(6, 7, 8))

# 创建一个空的列表，用于存储每一行的lm()结果
lm_results <- list()

# 循环遍历每一行
for (i in 1:nrow(df)) {
  # 提取当前行的自变量和因变量
  predictors <- df[i, 1:(ncol(df)-1)]
  response <- df[i, ncol(df)]
  
  # 执行lm()函数
  lm_model <- lm(response ~ predictors)
  
  # 将lm()结果存储到列表中
  lm_results[[i]] <- lm_model
}

# 打印每一行的lm()结果
for (i in 1:length(lm_results)) {
  cat("lm()结果 - 行", i, ":\n")
  print(lm_results[[i]])
  cat("\n")
}