LL_pairs <- CalcPairLL(data.frame(ID1='i042_2003_F',
ID2=c('i015_2001_F', 'i022_2002_F', 'i035_2002_F')),
GenoM = Geno_griffin, Complex='simp', Err=1e-3, Plot=FALSE)
prob_pairs <- plyr::aaply(as.matrix(LL_pairs[,10:16]), .margin=1, LLtoProb)
round(prob_pairs, 3)
# i035_2002_F is MHS of i042_2003_F, but when not conditioning on any other
# relatives has a higher LL to be 3rd degree relative (HA)
# (possibly genotyping errors, or just randomness of Mendelian inheritance)
Run the code above in your browser using DataLab