library(extBatchMarking)
theta <- c(0.1, 0.1, 7, -1.5)
res3 <- batchMarkUnmarkHmmLL(par = theta,
data = WeatherLoach,
choiceModel = "model4",
Umax = 1800,
nBins = 600,
covariate_phi = NULL,
covariate_p = NULL)
res3
Run the code above in your browser using DataLab