rm(list=ls()) vetor <- c(1,2,NA,NA,4,NA,5,NA,NA,12);vetor bad <- is.na(vetor);bad miss <- c[bad];miss