y<-c(1,2,3,4,5,6,7,NA,NA)
class(y)
## [1] "numeric"
is.na(y)
## [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE
sum(is.na(y))
## [1] 2
na.omit(y)
## [1] 1 2 3 4 5 6 7
## attr(,"na.action")
## [1] 8 9
## attr(,"class")
## [1] "omit"
datos2<-na.omit(y)
head(datos2,n=10)
## [1] 1 2 3 4 5 6 7
class(datos2)
## [1] "numeric"