library(extBatchMarking)
# Initial parameter
theta <- c(0, -1)
res1 <- batchMarkHmmLL(par = theta,
data = WeatherLoach,
choiceModel = "model4",
covariate_phi = NULL,
covariate_p = NULL)
res1
Run the code above in your browser using DataLab