R/make.patyline.R

Defines functions make.patyline

Documented in make.patyline

make.patyline <-
function(df)
# make.patyline  -  make a paternal Y-chromosome line code
{
  yrel <- am.pyrel(df)
  m <- nrow(yrel)
  lineno <- rep(0,m)
  nextlineno <- 0
  for(i in 1:m) {
    nextlineno <- nextlineno + 1
    if(lineno[i] == 0) {
      lineno[i] <- nextlineno
    }

    for(j in i:m) {
      if(yrel[i,j] == 1) {
        if(lineno[j] == 0){
          lineno[j] <- nextlineno
        }
      }
    }
  }
  return(lineno)
}

Try the dmm package in your browser

Any scripts or data that you put into this service are public.

dmm documentation built on July 26, 2023, 5:23 p.m.