Продолжайте получать предупреждение: аргумент не является числовым или логическим: возвращает NA

Question

Я считаю, что я правильно прочитал файлы, однако при вычислении среднего значения я получаю предупреждение о том, что аргументы в моей средней функции не являются числовыми. Тем не менее, когда я размещаю файлы, они явно являются числовым классом. Я также удалил все NA, чтобы вычислить среднее. Я искал повсюду возможные решения, но пока не нашел. Любая помощь будет принята с благодарностью.

Вот мой код:

pollutantmean <- function(specdata, pollutant, id=1:332) {

    ## set up the directory
    specdata <- setwd("~/Programming Exercise/specdata")

    ## read the files
    listfile <- dir(pattern = "*.csv")
    for (i in 1:length(listfile)) {
            temp[[i]] <- read.csv(listfile[i], header=TRUE)
    }

    ## calculate the mean function
    pollutant <- if(pollutant=="nitrate") {
            mean(temp[["nitrate"]], na.rm=TRUE)
    } else {
            mean(temp[["sulfate"]], na.rm=TRUE)
    }
}