set to M2* to avoid unnecessary error

Author: philchalmers

R/M2.R

@@ -353,10 +353,12 @@ M2 <- function(obj, type="M2*", calcNull = TRUE, quadpts = NULL, theta_lim = c(-
     #main
     if(residmat) type <- "M2*"
     stopifnot(type %in% c('M2*', 'M2', 'C2'))
-    if(type == "M2")
+    if(all(extract.mirt(obj, 'K') == 2)) type <- 'M2*'
+    if(type == "M2"){
         if(!all(extract.mirt(obj, 'K') == 2L))
             stop("M2 statistic currently not supported for polytomous data. Use M2* or C2 instead",
                  call.=FALSE)
+    }
     if(missing(obj)) missingMsg('obj')
     if(is(obj, 'MixedClass'))
         stop('MixedClass objects are not yet supported', call.=FALSE)