wlr {KinMixLite}

Computes paternity LR using WLR method

Description

Computes overall LR from Ugt-specific LR's using estimated Ugt genotype profile in sep corresponding to contributor i in the mixture as Father; uses Child genotype information in Cgt data.frame and optionally Mother's genotype in Mgt. Implements method WLR.

Usage

wlr(sep, Cgt, db, ind=1, Mgt=NULL)

Arguments

sep

Separation, a list of configurations of genotypes for some or all unknown contributors, output by map.genotypes.

Cgt

Child's genotype profile as a data frame containing variables marker, allele1 and allele2

db

Allele frequency database

ind

Index of contributor regarded as Father

Mgt

(optionally) Mother's genotype profile as a data frame containing variables marker, allele1 and allele2

Value

Returns LR for paternity

Author(s)

Peter Green ([e-mail])

See Also

See also map.genotypes.

Examples

data(test2data)
data(NGMDyes)

# set threshold C
C<-0.001

pars<-mixpar(rho=list(2),eta=list(100),xi=list(0.1),phi=list(c(U1=0.9,U2=0.1)))

mixWLR<-DNAmixture(list(epg),k=2,C=list(C),database=db,dyes=list(NGMDyes))
setPeakInfo(mixWLR,pars)
sepWLR<-map.genotypes(mixWLR,type="all",pmin=0.0001,U=1)
LR<-wlr(sepWLR,Cgt,db)
cat('\nWLR LR:',LR,'; log10(LR):',log10(LR),'\n')