logL.UKX: Evaluates mixture log likelihood for unknown contributors...
In KinMixLite: Inference About Relationships from DNA Mixtures

logL.UKX

R Documentation

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 (P.J.Green@bristol.ac.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)

KinMixLite documentation built on Oct. 9, 2024, 9:07 a.m.