logL.UKX {KinMixLite}

Evaluates mixture log likelihood for unknown contributors with extra findings

Description

Replacement for logL.UK in DNAmixtures that calls extra.findings immediately before propagating all findings and returning the normalising constant for the network.

Usage

logL.UKX(mixture, expr.extra.findings, initialize = FALSE)

Arguments

mixture

Compiled DNAmixture object.

expr.extra.findings

expression containing the extra findings

initialize

should all entered evidence be removed from the networks in mixture

Value

The log likelihood.

Author(s)

Peter Green ([e-mail])

See Also

See also logL.UK.

Examples

data(test2data)

# 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)))

mixMBN<-DNAmixture(list(epg),k=2,C=list(C),database=db,triangulate=FALSE,compile=FALSE)
cgtcaca<-gt2aca(mixMBN,Cgt)
add.child.meiosis.nodes(mixMBN,cgtcaca,1)
logL.UKX(mixMBN,
	expr.make.findings(list(
	list('Male',ind=1),
	list('Caca',aca='cgtcaca')
	)))(pars)