我相信我已经适当地读取了文件,但是,在计算均值时,我收到一条警告消息,表示我的均值函数中的参数不是数字。但是,当我访问文件时,它们显然是数字类。我还删除了所有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)
}
}