Ошибка в rep (xi, length.out = nvar): попытка реплицировать объект типа 'закрытие

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)