Learn R Programming

KinMixLite (version 2.2.0)

logL.UKX: 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)

Value

The log likelihood.

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

Author

Peter Green (P.J.Green@bristol.ac.uk)

See Also

See also logL.UK.

Examples

Run this code
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)

Run the code above in your browser using DataLab