library(Familias) persons <- c("Child","Thore","Daniel","Mother","A","B") ped1 <- FamiliasPedigree(id=persons, dadid=c("Thore","A","A",NA,NA,NA), momid=c("Mother","B","B", NA, NA, NA), sex=c("male", "male", "male","female","male","female")) pedigrees <- list(ped1)