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