PairsG <- data.frame(ID1="i122_2007_M",
ID2 = c("i124_2007_M", "i042_2003_F", "i083_2005_M"),
AgeDif = c(0,4,2))
cbind(PairsG,
GetLLRAge(SeqOUT_griffin$AgePriorExtra,
agedif = PairsG$AgeDif, patmat=rep(2,3)))
Run the code above in your browser using DataLab