ped <- FamiliasPedigree(id = c("child", "AF"),
momid = c(NA, NA),
dadid = c("AF", NA),
sex = c("male", "male"))
plot(ped)
dev.new()
plot(ped, symbolsize = 2, cex = 2, family = "mono")
Run the code above in your browser using DataLab