bad match

philchalmers · Nov 13, 2024 · 8d7e044 · 8d7e044
1 parent 9d7ec9a
commit 8d7e044
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/mirt.R b/R/mirt.R
@@ -1439,7 +1439,7 @@ mirt <- function(data, model = 1, itemtype = NULL, guess = 0, upper = 1, SE = FA
     if(!is.null(latent.regression$data))
         data <- latent.regression$data
     mixed.design <- make.mixed.design(item.formula=item.formula,
-                                      item.design=item.design, data=data)
+                                      itemdesign=itemdesign, data=data)
     mod <- ESTIMATION(data=data, model=model, group=rep('all', nrow(data)),
                       itemtype=itemtype, guess=guess, upper=upper, grsm.block=grsm.block,
                       pars=pars, method=method, constrain=constrain, SE=SE, TOL=TOL,

diff --git a/R/multipleGroup.R b/R/multipleGroup.R
@@ -541,7 +541,7 @@ multipleGroup <- function(data, model = 1, group, itemtype = NULL,
     Call <- match.call()
     dots <- list(...)
     mixed.design <- make.mixed.design(item.formula=item.formula,
-                                      item.design=item.design, data=data)
+                                      itemdesign=itemdesign, data=data)
     if(is.character(model)) model <- mirt.model(model)
     if(!is.null(dots$formula))
         stop('latent regression models not supported for multiple group yet', call.=FALSE) #TODO

diff --git a/R/utils.R b/R/utils.R
@@ -1903,7 +1903,7 @@ loadESTIMATEinfo <- function(info, ESTIMATE, constrain, warn){
     return(ESTIMATE)
 }
 
-make.mixed.design <- function(item.formula, item.design, data){
+make.mixed.design <- function(item.formula, itemdesign, data){
     mixed.design <- NULL
     if(!is.null(itemdesign)){
         stopifnot('itemdesign only supported for dichotmous item tests' =