object to model

helske · Jan 18, 2025 · ac0a014 · ac0a014
1 parent 556ca03
commit ac0a014
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/get_probs.R b/R/get_probs.R
@@ -374,7 +374,7 @@ get_probs.nhmm <- function(model, probs, newdata = NULL, remove_voids = TRUE, ..
       !is.null(newdata[[time]]),
       "Can't find time index variable {.var {time}} in {.arg newdata}."
     )
-    object <- update(object, newdata = newdata)
+    object <- update(model, newdata = newdata)
   }
   S <- model$n_states
   M <- model$n_symbols