想把NA从结果的向量中去掉

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

f <- function(directory,threshold){
  files_list <- list.files(directory, full.names=T)
  u<-numeric()
  for (i in 1:332){

    dat <- read.csv(files_list[i])
    m   <- na.omit(dat)
    c   <- nrow(m)
    if (c>threshold){
      x<-m["nitrate"]
      y<-m["sulfate"]

      u[i]<-cor(x,y)
    }
    i<-i+1
  }
  u
}


这是求cor的一个函数，输入f("specdata",150)，显示结果为
[1]           NA -0.018957541 -0.140512544 -0.043897372 -0.068159562 -0.123506666
  [7] -0.075888144 -0.159673652 -0.086841940           NA  0.763128837           NA
[13]           NA           NA           NA           NA -0.157828603           N A
[19] -0.156998919           NA -0.044898818           NA  0.117249264  0.259057178

想把里面的NA去掉，当c<threshold的时候，不出现NA，直接进行下一个计算，不知道怎么改

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：function

b<-a[-which(is.na(a))]

na.omit()

如果是NA出现if and only if  c<threshold， 那么源程序这部分这样试一下呗
if (c>threshold){...} else {i <- i + 1; next}