ped <- generatePedigree(3)
summary(ped)
removeIndividual(ped, individual=c(1, 3, 4), remove="father")
removeIndividual(ped, individual=c(1, 3, 4), remove=c("mother", "father"))
(ped <- removeIndividual(ped, individual=c(1, 3, 4), remove=c("all")))
summary(ped)
Run the code above in your browser using DataLab