LLR-age from Ageprior Matrix
Get log10-likelihood ratios for a specific age difference from
matrix AgePriorExtra
.
GetLLRAge(AgePriorExtra, agedif, patmat)
AgePriorExtra |
matrix in |
agedif |
vector with age differences, in whole numbers. Must occur in
rownames of |
patmat |
numeric vector; choose maternal (1), paternal (2) relatives, or for each relationship the most-likely alternative (3). |
A matrix with nrow
equal to the length of agedif
, and 7
columns: PO-FS-HS-GP-FA-HA-U.
data(SeqOUT_griffin, package="sequoia") 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)))
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.