不断收到警告消息:参数不是数字或逻辑:返回NA

时间:2019-05-13 16:45:53

标签: r

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

0 个答案:

没有答案