Bug in simdata()

[lkjamison]

Hello Phil,

I wanted to learn more about how to simulate IRT data with different models. I went into the simdata() function to run it line by line and see how it was handling different arguments, parameters, calculations, etc. I noticed that I get an error where the code reads

iif (length(gpcm_mats)) { stopifnot(length(gpcm_mats) == nitems) use_gpcm_mats <- sapply(gpcm_mats, is.matrix) }

I believe this is because the if(length(gpcm_mats)) statement is missing a value to compare the length to (e.g., if(length(gpcm_mats) == 1L)).

Please let me know if my assessment is incorrect. Thank you for all your work on this amazing package.

Best,
Laura

[philchalmers]

Hi Laura,

Thanks for the report; simdata() is long overdue for a reworking, so finding bugs at this point is welcome. However, would you mind providing a brief, reproducible script so that I can see the issue firsthand? That will save me time in making a patch. Thanks!

Phil