R的mean()函数的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

我在做coursea的作业的时候发现如果我用mean求的答案跟用普通的数学公式求的均值不同，大神能帮我看看哪里出错了吗，以下是两个程序：红色部分就是有疑问的地方，根据答案来看，第二个程序的答案才是对的
pollutantmean<- function(directory, pollutant, id=1:332) {

        total=0
        observations=0
        for (i in id){
        if (i<10){
                data<-read.csv(paste("0","0",as.character(i),".csv",sep=""),
                         header =TRUE,
                         na.strings=c("NA","NaN","")
                )
        }
        else if (i>=10 & i<100) {
                data<-read.csv(paste("0",as.character(i),".csv",sep=""),
                         header =TRUE,
                         na.strings=c("NA","NaN","")
                )
        }

        else {
                data<-read.csv(paste(as.character(i),".csv",sep=""),
                         header =TRUE,
                         na.strings=c("NA","NaN",""))
        }
data=na.omit(data)
observations = observations + nrow(data)
if (pollutant == "sulfate") { return(mean(data$sulfate))}
else {return(mean(data$nitrate))}
}

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


        total = 0                        
        observations = 0                  

        for (i in id)
        ｛
                if (i <10) {
                        data <- read.csv(paste("0","0", as.character(i), ".csv", sep=""),  ## for example, if 'id' =7, we get 007.csv
                                         header = T,
                                         na.strings=c("NA","NaN", " "))
                }

                else if (i>=10 & i<100) {
                        data <- read.csv(paste("0", as.character(i), ".csv", sep=""),  ## for example, if 'id' = 17, we get 017.csv
                                         header = T,
                                         na.strings=c("NA","NaN", " ")
                        )
                }



                else       {
                        data <- read.csv(paste(as.character(i), ".csv", sep=""),     ## Normal
                                         header = T,
                                         na.strings=c("NA","NaN", " ")
                        )
                }

                data = na.omit(data)   
                observations = observations + nrow(data)
                if (pollutant == "sulfate") {total = total + sum(data$sulfate)}
                else {total = total + sum(data$nitrate)}
        }
       return(total/observations)

}

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：mean Course 哪里出错了 tmean 红色部分 R语言

结果应该是一样的，如果你能把数据放上来，或者发消息给我，就可以试一下，从表面上看不出来有什么不同

cmwei333 发表于 2016-3-29 07:22
结果应该是一样的，如果你能把数据放上来，或者发消息给我，就可以试一下，从表面上看不出来有什么不同

我把那个用到的数据都放到上面去了，答案是这样的
pollutantmean("specdata", "sulfate", 1:10)
## [1] 4.064
pollutantmean("specdata", "nitrate", 70:72)
## [1] 1.706
麻烦您了

应该这样写mean(c(93,62,51,93,75,82,93,62,65,51))