data(singlecell)
mle.sim <- mlePath(singlecell, tol=1e-4, tol.nr=1e-4, n.lambda = 2, n.cores = 1)
n <- NROW(singlecell)
logLik(mle.sim$est.min$v,
singlecell,
n,
cov(mle.sim$est.min$v),
mle.sim$est.min$Sigma.inv)
Run the code above in your browser using DataLab