rep（xi，length.out = nvar）中的错误：尝试复制类型为'closure'的对象

Question

我正在尝试计算R中多个数据集的变量平均值。但是，我一直遇到这个错误，而且似乎无法克服它。有什么建议吗？

mymean <- function(directory, observation, id = 1:400){
    all_files <- list.files(directory, pattern = "*.csv", full.names = TRUE)
    dat <- data.frame
    for(i in id) {
        dat <-rbind(dat, read.csv(all_files[i]))
    }
    mean(dat[observation], na.rm=TRUE)