[Coursera]R Programming #2 加分贴

这只兔子很rock 发表于 2015-3-13 23:14
那个在R里面交
https://class.coursera.org/rprog-011/assignment/view?assignment_id=3
你看看这个

对对，就是输入那个。submission email, password是不是就是coursera的登录邮箱和密码呢？我每次输入之后就说 无法verify username and password。。。 是不是那些xx.R的文件都应该放在working directory里面？我也放了啊......

这只兔子很rock 发表于 2015-3-13 23:15
楼上..我忘记点回复了 sorry

啊，我知道了！密码是一堆乱码那个是吧！多谢多谢，已搞定！！

第二周的作业，刚刚搞定编程作业的上传！
求给学分~~

交作业

自己毫无编程基础，还是几乎花了一天时间把project搞定了，好幸福的说~~~~
高兴一下

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 信息，而是直接跳到之前的界面）

完成！其实第一周的还没做完，比大家都晚了一年。。

想问下楼主我现在被困住在ｓｗｉｒｌ里面了。。想请教下
# 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)
}
这题我怎么总是弄不出来呢。。到底是哪里出了问题呢。。。求指导！

来加分了！