全部版块 我的主页
论坛 数据科学与人工智能 数据分析与数据科学 R语言论坛
12918 39
2014-05-18

大家好~这里有个很简单的小问题~需要计算下这些csv文件中污染值的平均值,代码如下:
pollutantmean <- function(directory,pollutant,id=1:332){
    files_list <- dir(directory, full.names=T)
    data <- data.frame()
    for (i in 1:332){
      data <- rbind(data, read.csv(files_list))
    }
    if(pollutant=="sulfate"){
      data_subset1 <- subset(data, data$ID==id)
      mean(data_subset1$sulfate, na.rm=T)
    }
    if(pollutant=="nitrate"){
      data_subset2 <- subset(data, data$ID==id)
      mean(data_subset1$nitrate, na.rm=T)
    }
}

在RStudio上运行:pollutantmean("specdata","sulfate",20) 为什么一点反应都没有??也没有提示错误,希望得到大家帮助!谢谢~
二维码

扫码加我 拉你入群

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

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

全部回复
2014-5-18 14:00:11
这不是R program上的作业么,今天截止那。
二维码

扫码加我 拉你入群

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

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

2014-5-18 14:17:15
复制代码
二维码

扫码加我 拉你入群

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

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

2014-5-18 14:40:36
复制代码

二维码

扫码加我 拉你入群

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

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

2014-5-18 14:42:29
复制代码


二维码

扫码加我 拉你入群

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

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

2014-5-18 15:16:13
asprine 发表于 2014-5-18 14:00
这不是R program上的作业么,今天截止那。
对!感觉你好厉害~我改了一下,终于可以了,话说为什么我在RStudio上运算差不多1分钟才会出结果?
二维码

扫码加我 拉你入群

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

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

点击查看更多内容…
相关推荐
栏目导航
热门文章
推荐文章

分享

扫码加好友,拉您进群
各岗位、行业、专业交流群