在R中创建一个函数

Question

Carsmean<-function(directory,id=1:432)  {
    files_list <- list.files(directory, full.names=TRUE)   
    dat <- data.frame()                             
    for (i in 1:432) {dat <- rbind(dat, read.csv(files_list[i]))}

   dat_subset <- dat[which(dat[, "ID"] == id),]  
    mean(dat_subset[, "smoke"], na.rm=TRUE) 
  }

（1）我正在使用R来执行计算测试车间汽车烟雾输出的功能。每辆车都有一个指定的ID，我有432辆汽车的csv文件。当我为汽车70到72运行功能时，我收到了一条错误消息

Carsmean("carsdata", 70:72) 

  

错误消息：在dat [，＆＃34; ID＆＃34;] == id：较长的对象长度不是   多个较短的物体长度

（2）我还需要包括其他污染物，如CO和NOx。如何使功能指定这些污染物。我试图添加if命令但无济于事。