Я пытаюсь построить довольно сложные родословные, используя пакет Kinship2 R.Большинство семей показывают высокий уровень кровного родства и многократные супруги, как я могу показать это на моей родословной.
Это мой текущий сюжет
##data
df <- data.frame(id=c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29),
sex=c(1,2,1,2,2,2,1,2,2,1,1,1,2,2,2,2,2,2,2,2,2,1,2,2,1,2,1,1,1),
dadid=c(0,0,1,1,1,1,1,0,0,0,0,0,0,3,3,10,10,10,11,11,11,11,12,12,7,7,7,0,28),
momid=c(0,0,2,2,2,2,2,0,0,0,0,0,0,8,8,4,4,4,5,5,5,5,6,6,13,13,13,0,16),
status=c(0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0))
ped <- pedigree(id = df$id, dadid = df$dadid, momid = df$momid, sex = df$sex, status=df$status)
plot(ped)
Я бы хотел добавить двойных лайков от 28 до 16, второго супруга к 3, а также добавить супруга к 14.
Как я могу это сделать?
