#load allele frequencies
library(forensim)
data(ngm)
#create vector of allele frequencies
d10<-ngm$tab$D10
#single dropout parameter for all contributors
LR2(list(12,13,14),Tp='12/13',Td=NULL,Vp=NULL,Vd=NULL,xd=2,xp=1,theta=0,prDHet=0.2,prDHom=0.1,prC=0,freq=d10)
#different dropout probabilities for contributor 1 in T and the unknown contributor: 0.2 for the first one (heterozygote, corresponding value is 0 in the homozygote vector), 0.7 for the second one if it is a heterozygote and 0.3 if its is a homozygote.
LR2(list(12,13,14),Tp='12/13',Td=NULL,Vp=NULL,Vd=NULL,xd=2,xp=1,theta=0,prDHet=c(0.2,0.70),prDHom=c(0,0.3),prC=0,freq=d10)
Run the code above in your browser using DataLab