# NOT RUN {
lineNames <- paste0("L", 1:10)
mother <- c(0, 0, 1, rep(3, 7))
father <- c(0, 0, 2, rep(2, 7))
initial <- 1:2
lineNames <- paste0("L", 1:10)
observed <- c(rep(FALSE, 3), rep(TRUE, 7))
detailedPedigreeObj <- detailedPedigree(mother = mother, father = father, initial = initial,
observed = observed, lineNames = lineNames, selfing = "finite")
# }
Run the code above in your browser using DataLab