r - 绑定多个 csv 文件并对其执行逻辑回归

Question

我在一个文件夹中有 13000 个 CSV 文件，我想将它们作为 R 中的一个文件读取，然后对该文件执行逻辑回归。另外，我需要将风扇列设为二进制（对于大于零的风扇值，值应更改为 1。我正在尝试使用以下代码，但它不起作用。

library("data.table")
library(dplyr) 

files <- list.files("E:/WSU/Research/NN/try", pattern="\\.csv$", full.names=TRUE)
united <- bind_rows(lapply(files, read))

results <- lapply(united,  function(x) {
  DT <- fread(x, sep=",")
  set(DT, j="fan", value=as.numeric(DT[, fan] > 0))
  result <- glm(
    fan ~ T_ctrl + T_out + RH_out + T_stp_cool + T_stp_heat + Humidity,
    data=DT, family=binomial(link="logit")
  )
  return(result)
}

标签： r