R/countnotna.R

In dmm: Dyadic Mixed Model for Pedigree Data

Defines functions countnotna

Documented in countnotna

countnotna <-
function(x)
# countnotna()  - find no of non-na elements in a vector
{
  l <- length(x[!is.na(x)])
  return(l)
}

Try the dmm package in your browser