powered by
lenuniq(vec, na.rm = TRUE)
TRUE
length(unique(vec))
na.rm=TRUE
length(unique(vec[!is.na(vec)]))
x <- c(1, 2, 1, 3, 1, 1, 2, 2, 3, NA, NA, 1) lenuniq(x) lenuniq(x, na.rm=FALSE)
Run the code above in your browser using DataLab