# Deafult example
  ped <- generatePedigree(5)
  nIndividual(ped)
  # Other id columns
  nIndividual(ped, col="father")
  nIndividual(ped, col="mother")
  # Remove individuals with unknown fathers - FIXME
  # ped <- ped[!is.na(ped, col="father"), ]
  # nIndividual(ped)
  # nIndividual(ped, extend=FALSE)
Run the code above in your browser using DataLab