nmiss <- function(x) {
  sum(is.na(x))
}