powered by
kinship
makekinship(famid, id, father.id, mother.id, unrelated=0)
> ped <- read.csv("ped.csv") > names(ped) [1] "id" "famid" "fa" "mo" "sex" > kmat<-makekinship(ped$famid,ped$id,ped$fa,ped$mo)
Run the code above in your browser using DataLab