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

我在一个文件夹中有13000个CSV文件，我想在R中将它们作为一个文件读取，然后在此文件上执行逻辑回归。此外，我需要将fan列设置为二进制（对于大于零的fan值，值应更改为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)
}

库（“data.table”）
图书馆（dplyr）
文件您没有提供可复制的示例，因此很难知道发生了什么。请定义“不工作”。1）Lappy（文件，读取）

在做什么？函数

read

来自哪里？2） 如果

united

已经是data.frame，

lappy（united，function（x）等）

正在对每个列应用匿名函数。你为什么要再读一遍呢？