Question

我正在尝试从课程中的R编程课程做作业，但我的功能不起作用，我不知道为什么。我发现它没有任何问题，Rstudio也没有报告任何错误。

这是函数

pollutantmean<- function(id, polutant) {

    files<- list.files("specdata", full.names = T)
    table<-data.frame()
    for(id in head(id,n=1):tail(id,n=1)){
            loc<-read.csv(files[id])
            table<- rbind(table,loc)
    }     
    if(polutant=="nitrate") {
            mean(table[,"nitrate"],na.rm = T )
    }
    if(polutant=="sulfate") {
            mean(table[,"sulfate"],na.rm = T )
    }
}

但是当我尝试运行时

pollutantmean(8,"nitrate")

或类似的，没有任何反应。我看不到全球环境中的输出或变化。

但是当我运行语句而不将它们放在函数中时，行换行，它可以正常工作

如果我这样做：

 id<- 5

然后

  polutant<-"nitrate"

然后

files<- list.files("specdata", full.names = T)

然后

table<-data.frame()

然后

 for(id in head(id,n=1):tail(id,n=1)){
        loc<-read.csv(files[id])
        table<- rbind(table,loc)
}

（这里，我已经看到在全球环境中合并表格和文档）

if(polutant=="nitrate") {
        mean(table[,"nitrate"],na.rm = T )
}

在这里，我会得到一个与asignment提供的示例输出相匹配的答案。

我的功能什么都没做

0 个答案: