Fix handling of multistart fits with failures

1 files changed, 1 insertions, 1 deletions

diff --git a/R/mhmkin.R b/R/mhmkin.R
index b72ae318..a1475ef9 100644
--- a/R/mhmkin.R
+++ b/R/mhmkin.R
@@ -179,7 +179,7 @@ AIC.mhmkin <- function(object, ..., k = 2) {
 BIC.mhmkin <- function(object, ...) {
   res <- sapply(object, function(x) {
     if (inherits(x, "try-error")) return(NA)
-    else return(BIC(x$so, k = k))
+    else return(BIC(x$so))
   })
   dim(res) <- dim(object)
   dimnames(res) <- dimnames(object)