if (FALSE) {
# data is a momentuHMMData object (as returned by prepData), automatically loaded with the package
data <- example$m$data
m<-example$m
Par <- getPar(m)
nbStates <- length(m$stateNames)
inputs <- momentuHMM:::checkInputs(nbStates,m$conditions$dist,Par$Par,m$conditions$estAngleMean,
m$conditions$circularAngleMean,m$conditions$zeroInflation,m$conditions$oneInflation,
m$conditions$DM,m$conditions$userBounds,
m$stateNames)
wpar <- momentuHMM:::n2w(Par$Par,m$conditions$bounds,list(beta=Par$beta),
log(Par$delta[-1]/Par$delta[1]),nbStates,m$conditions$estAngleMean,
m$conditions$DM,m$conditions$Bndind,
m$conditions$dist)
l <- momentuHMM:::nLogLike(wpar,nbStates,m$conditions$formula,m$conditions$bounds,
inputs$p$parSize,data,inputs$dist,model.matrix(m$conditions$formula,data),
m$conditions$estAngleMean,m$conditions$circularAngleMean,inputs$consensus,
m$conditions$zeroInflation,m$conditions$oneInflation,m$conditions$stationary,
m$conditions$fullDM,m$conditions$DMind,
m$conditions$Bndind,m$knownStates,unlist(m$conditions$fixPar),
m$conditions$wparIndex,covsDelta=m$covsDelta,workBounds=m$conditions$workBounds,
betaRef=m$conditions$betaRef,covsPi=m$covsPi)
}
Run the code above in your browser using DataLab