compareDefineModelObjects: Compares two 'defineModel' objects

In weirichs/eatModel: Educational Assessment Tools for IRT Modeling using Conquest or TAM

Compares two defineModel objects

Description

Function facilitates quality checks by comparing two objects returned by defineModel whether there are functionally equivalent.

Usage

compareDefineModelObjects (ref, tar, round = TRUE, digits = 3)

Arguments

ref	The reference object returned by defineModel.
tar	The target object returned by defineModel.
round	Logical. Round decimal values before the comparison?
digits	Only necessary if round = TRUE. Number of digits for rounding

Value

No value is returned. Function prints messages to the console if inequalities occur.

Examples

data(trends)

# first reshape the data for the first time of measurement set into wide format
datW <- reshape2::dcast(trends[which(trends[,"year"] == 2010),],
                        idstud+sex+ses+language~item, value.var="value")
                        
# second, create the q matrix from the long format data frame
qMat <- unique(trends[ ,c("item","domain")])
qMat <- data.frame ( qMat[,"item", drop=FALSE], model.matrix(~domain-1, data = qMat))

# model 1
def1 <- defineModel(datW, items = -c(1:4), id="idstud", qMatrix = qMat, software="tam",
        HG.var = c("sex", "ses"), method="gauss")

# model 2 (misspecified)
def2 <- defineModel(datW, items = -c(1:6), id="idstud", qMatrix = qMat[-c(20,35,40),],
        software="tam", HG.var = c("sex", "ses", "language"), method="quadrature", nodes = 30)

# compare both outputs
compareDefineModelObjects (def1, def2)

weirichs/eatModel documentation built on Jan. 26, 2025, 4:01 p.m.