[Coursera]R Programming #2 加分贴

再吼一遍求回应，Roger Peng的双眼皮是不是后天的啊啊啊啊。。。看视频一直在想啊好困扰

编程作业part2卡了半天总是说哥结果不对（明明跟example结果数字一样好不啦），第二天发现column name要求是nobs我写成了nods

part3也遇到了困难，求教@nibuxing同学，非常感谢~~我学会了paste()，果断不用把wd改来改去了


大家加油呀~~~有什么问题一起讨论~~~

corr <- function(directory, threshold = 0) {
      j <- 1
      cr <- numeric()
      for (i in 1:332) {
            file <- paste(directory,"/", sprintf("%03.0f",i),".csv",sep="")
            monitors <-read.csv(file, head=T)
            good <- complete.cases(monitors)
            comp_monitor <- monitors[good, ]
            if ( nrow(comp_monitor) > threshold )  {
                  cr[j] <- cor(comp_monitor$sulfate, comp_monitor$nitrate, use="complete.obs")
                  j <- j+1
            }
      }
      return(cr)
}

这是我第三题的code，output和正确答案完全一样，但却不能通过测试（我很疑惑测试并没给出correct 或者 incorrect 信息，而是直接跳到之前的界面）

想问下 part1 里面 pollutantmean编好了 也没有显示错误 为什么总是显示：
> result <- pollutantmean("specdata", "sulfate", 1:10)
错误于file(file, "rt") : 无法打开链结
此外: 警告信息：
In file(file, "rt") :
  无法打开文件'specdata/001.csv': No such file or directory
>
我第一部分的代码：
pollutantmean <- function(directory,pollutant,id=1:332 ){
data <- read.csv(directory)
data_subset <- subset(data,data$ID<=max(id)&data$ID>=min(id))
if (pollutant=="sulfate"){
result <- mean(data_subset$sulfate,na.rm=T)}
if (pollutant=="nitrate"){
result <- mean(data_subset$nitrateate,na.rm=T)}
return (result)
}
麻烦各位大神指教！！

想问下楼主我现在被困住在ｓｗｉｒｌ里面了。。想请教下
# Hints: This exercise is a little tricky so I'll provide a few example of how
# evaluate() should act:
#    1. evaluate(sum, c(2, 4, 6)) should evaluate to 12
#    2. evaluate(median, c(7, 40, 9)) should evaluate to 9
#    3. evaluate(floor, 11.1) should evaluate to 11

evaluate <- function(func,dat){
        func(dat)
       
}
sum <- function(num){
        dat = sum(num)
}
median <- function(num){
        dat = median(num)
}
floor <- function(num){
        dat = floor(num)
}
这题我怎么总是弄不出来呢。。到底是哪里出了问题呢。。。求指导！

我在make.power遇到了error。当我type cube <- make.power(3)之后遇到了
> cube
function(x){
x^n
}
<environment: 0x0000000011751900>
lz，有遇到这种问题吗？

sky420 发表于 2014-4-16 10:38
我在make.power遇到了error。当我type cube  cube
function(x){
x^n

没用到make.power呢

最好Deadline之后大家把作业贴在这里交流一下，coursera的论坛会被关掉，这对我们**很有帮助啊。

我只想吐槽他讲课我好想睡觉啊，同样是选了duke的那个data anaylsis听课效果完全不同啊

好多function都没学过，就用，shit!

边查function用法边写作业。。。不过觉得这种学习模式还不错。

part3程序测试了好久才正确 擦汗 感觉把以前的一些不懂的地方逐渐补回来了

每次编个程总能被自己蠢CRY