R: Warning: get NA when I try to use my function -


i brand new programming , trying write function in r calculates mean of pollutant (nitrate or sulfate) across specified list of monitors (each monitor has own .csv file in folder "specdata"). have constructed following function:

pollutantmean <- function(directory="specdata", pollutant="sulfate", id=1:332) {     files_f<-list.files(directory,full.names=true)     d <- data.frame()      for(i in 1:332){          d <- rbind(d,read.csv(files_f[i]))      }     if(pollutant=="sulfate"){          mean(d$sulfate[which(d$id==id)], na.rm=true)      }     else{          mean(d$nitrate[which(d$id==id)], na.rm=true)      } }

and tried test function with: pollutantmean(directory="specdata",pollutant="sulfate", id=1:10)

i following error:

[1] na warning messages: 1: in d$id == id : longer object length not multiple of shorter object length 2: in mean.default(d$sulfate[which(d$id == id)], na.rm = true) : argument not numeric or logical: returning na

what mean? i've gone through code many times can't identify problem is.

thank you.

here think i've implemented suggestions in comments, shortened code, , generalized function in case ever want investigate other pollutants (just sure spell them same in csv's, including capitalization): 

   pollutantmean <- function(directory="specdata",                                pollutant="sulfate",                                id=1:332){       files_f <- list.files(directory,full.names=true)       d <- do.call(rbind, lapply(files_f, read.csv, stringsasfactors=false))       mean(d[[pollutant]][which(d$id %in% id)], na.rm=true)     }

hope works, luck pollutant monitoring


Comments

Post a Comment

Popular posts from this blog

php - Vagrant up error - Uncaught Reflection Exception: Class DOMDocument does not exist -

i've set bento/ubuntu-16.04 vagrant box using php 5.6, , getting following error quite few times when try , run shell script: "uncaught reflection exception: class domdocument not exist". i've tried adding following top of script (not together), each no success: "sudo apt-get install php5.6-xml", "sudo apt-get install php5-xml", "sudo apt-get install php-dom" i've tried resetting server "sudo service apache2 restart". does have suggestions?
Read more

vue.js - Create hooks for automated testing -

Image
qa guys complained can't automate frontend testing. because our html looks same outside. lazy hack did this <template> <div :role="$options.name"> ... </div> </template> <script> export default { name: 'vmcomponentname' } </script> which takes name script , applies html. in browser get: <div role="vmcomponentname"> ... </div> line :role="$options.name" goes in every component. is there dry er solutions? please share. additional details i'll explain in details looking for. imagine have vmusercreate form creates user. test case can create user . to automatically test without role, have use following selector: .wrapper > .wrapper > .wrapper > .submit-button the test extremely brittle (will break lot). if use roles can use [role="vmusercreateform"] .submit-button selector. many folds less brittle. so basically, i'm ...
Read more

Add new key value to json node in java -

i have json file : { "id":1, "name":"abc", "addressdetails": { "city":"newyork" } } i wanted add 1 more key-value ("pincode" : "414141") node 'addressdetails'. i tried using : objectmapper mapper = new objectmapper(); jsonnode root = mapper.readtree(new file("d://test.json")); objectnode node = mapper.createobjectnode(); node.with("addressdetails").put("pincode", "414141"); but it's not getting added, there way can ? you can try you should modify file path objectmapper mapper = new objectmapper(); objectnode nodes = mapper.readvalue(new file("d:\\test.txt"), objectnode.class); nodes.with("addressdetails").put("pincode", "414141"); mapper.writer().writevalue(new file("d:\\test.txt"), nodes);
Read more