From 8d7e044e8ab46ab784f960a0b5c22a9f2916c46e Mon Sep 17 00:00:00 2001 From: philchalmers Date: Wed, 13 Nov 2024 14:36:18 -0500 Subject: [PATCH] bad match --- R/mirt.R | 2 +- R/multipleGroup.R | 2 +- R/utils.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/mirt.R b/R/mirt.R index 266c2806..c4b4faed 100644 --- 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 index 59f7ecb8..6e715c48 100644 --- 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 index 849c2e2e..ce8a562b 100644 --- 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' =