Avoid duplicated coefficients in print method for mblogit objects

melff · Mar 2, 2024 · 1ad93f5 · 1ad93f5
1 parent c470121
commit 1ad93f5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pkg/R/mblogit.R b/pkg/R/mblogit.R
@@ -585,7 +585,7 @@ print.summary.mblogit <-
     for(i in 1:ncategs){
       cat <- categs[i]
       patn <- paste0(cat,"~")
-      ii <- grep(patn,rn.coefs,fixed=TRUE)
+      ii <- which(startsWith(rn.coefs,patn))
       coefs.cat <- coefs[ii,,drop=FALSE]
       rownames(coefs.cat) <- gsub(patn,"",rownames(coefs.cat))
       if(i>1) cat("\n")