R/duplicated_first.R

In dmm: Dyadic Mixed Model for Pedigree Data

Defines functions duplicated_first

Documented in duplicated_first

duplicated_first <-
function(x){
# duplicated_first() - sets T for the first of each set of duplicate entries
  y <- rep(F,length(x))
  y[match(x[duplicated(x)],x)] <- T
  return(y)
}

Try the dmm package in your browser