J <- 2
Pi <- matrix(c(0.9, 0.1,
0.2, 0.8), nrow = 2, byrow = TRUE)
delta <- c(0.5, 0.5)
obspar <- list(lambda = c(2, 7))
sim_data <- generateHMM(n = 200, J = J, obsdist = "pois", obspar = obspar, Pi = Pi, delta = delta)
HMM_fit <- findmleHMM(x = sim_data$x, J = J, obsdist = "pois",
obspar = obspar, Pi = Pi, delta = delta)
# \donttest{
result <- residualsHMM(x = sim_data$x, HMM = HMM_fit, obsdist = "pois", lag.max = 30)
result_silent <- residualsHMM(x = sim_data$x, HMM = HMM_fit, obsdist = "pois",
lag.max = 30, verbose = FALSE)
# }
Run the code above in your browser using DataLab