Title: | CUSUM Person Fit Statistics |
---|---|
Description: | Person fit statistics based on Quality Control measures are provided for questionnaires and tests given a specified IRT model. Statistics based on Cumulative Sum (CUSUM) charts are provided. Options are given for banks with polytomous and dichotomous data. |
Authors: | Maxwell Hong [aut, cre], Shao Can [ctb] |
Maintainer: | Maxwell Hong <[email protected]> |
License: | GPL-2 |
Version: | 1.0.0.0 |
Built: | 2025-03-13 03:30:19 UTC |
Source: | https://github.com/cran/PsyControl |
Generates CUSUM values for Rasch, 2PL and 3PL IRT model based on the Van Krimpen-Stoop & Meijer, (2002).
cusum(dat, ipar = NULL, abi = NULL, IRTmodel = "2PL")
cusum(dat, ipar = NULL, abi = NULL, IRTmodel = "2PL")
dat |
a nxp matrix with n participants and p items. Responses are in 0 1 format. |
ipar |
a pxk matrix with given item parameters p items and k item parameters. ipar[,1] discrimination; ipar[,2] item difficulty; ipar[,3] guessing-parameter. |
abi |
a vector n ability. If not provided, estimated using Expected a Posteriori method. |
IRTmodel |
specify the IRT model ("1PL", "2PL", "3PL"). Default is "2PL" |
Returns matrix with with lower and upper cusum statistics for dat
.
Van Krimpen-Stoop, E. M., & Meijer, R. R. (2002). Detection of person misfit in computerized adaptive tests with polytomous items. Applied Psychological Measurement, 26(2), 164-180.
data(ex2PL) cusum(dat = ex2PL)
data(ex2PL) cusum(dat = ex2PL)
cusum.cutoff
Generates a bootstrap sample for cut-off scores.
cusum.cutoff(cusum.obj, upp = 0.975, low = 0.025, Breps = 1000)
cusum.cutoff(cusum.obj, upp = 0.975, low = 0.025, Breps = 1000)
cusum.obj |
an object returned from cusum or cusum.poly |
upp |
user specified upper tail cut off. Default is .975 |
low |
user specified lower tail cut off. Default is .025 |
Breps |
number of bootstrap samples |
Returns a matrix of lower and upper cut off values and corresponding standard deviations based on bootstrap sample.
Flags aberrant participants based on CUSUM statistics.
cusum.flag(cusum.obj, cutoff.obj, cut = NULL)
cusum.flag(cusum.obj, cutoff.obj, cut = NULL)
cusum.obj |
an object returned from cusum or cusum.poly |
cutoff.obj |
an object returned from cusum.cutoff |
cut |
a vector for user specified cut offs (e.g c(1,1)). The first value is the upper limit. The second value is the lower limit. |
Returns a true or false matrix whether a person is aberrantly responding.
Generates CUSUM plot for specified IDs.
cusum.plot(cu.object, ID)
cusum.plot(cu.object, ID)
cu.object |
an object returned from cusum or cusum.poly |
ID |
a numeric ID. |
Returns a plot for specified cusum person chart.
Generates CUSUM values for polytomous IRT model based on Van Krimpen-Stoop & Meijer, (2002).
cusum.poly(dat, NCat, ipar = NULL, abi = NULL, IRTmodel = "GRM")
cusum.poly(dat, NCat, ipar = NULL, abi = NULL, IRTmodel = "GRM")
dat |
a nxp matrix with n participants and p items. Responses are in 0 as the lowest scores format. |
NCat |
number of categories for each item. |
ipar |
a pxk matrix with given item parameters p items and k item parameters. Item difficulty under the "GRM" or item steps under "PCM" or "GPCM" are in the first columns. The last column is the discrimination parameter. |
abi |
a vector n ability |
IRTmodel |
specify the IRT model ("GRM","PCM","GPCM"). Default is "GRM". |
Returns matrix with with lower and upper cusum statistics for dat
.
Van Krimpen-Stoop, E. M., & Meijer, R. R. (2002). Detection of person misfit in computerized adaptive tests with polytomous items. Applied Psychological Measurement, 26(2), 164-180.
data(exGRM) cusum.poly(dat = exGRM, NCat = 6)
data(exGRM) cusum.poly(dat = exGRM, NCat = 6)
Example data set based on a simulated 2PL model.
data(ex2PL)
data(ex2PL)
A data frame with 200 rows and 10 variables.
Simulated data.
Example data set based on a simulated GRM model.
data(exGRM)
data(exGRM)
A data frame with 200 rows and 10 variables.
Simulated data.
Example data set based on a simulated GRM model.
gh
gh
Gaussian-Hermite Quadature points
ltm