Date sulfate nitrate ID

pollutantmean <- function(directory,pollutant,id = 1:332){
        means <- c()
        for(i in id){
                x <- paste(getwd(), "/", directory, "/", sprintf("%03d", i), ".csv", sep = "")
                freem <- read.csv(x)
                inte <- freem$pollutant
                print(class(frame$pollutant))
                means[i] <- mean(inte, na.rm = TRUE)


        }
        mean(means)
}