Title: | Uncertainty in Partial Credit Models |
---|---|
Description: | Provides an extension to the Partial Credit Model and Generalized Partial Credit Models which allows for an additional person parameter that characterizes the uncertainty of the person. The method was originally proposed by Tutz and Schauberger (2020) <doi:10.1177/0146621620920932>. |
Authors: | Gunther Schauberger |
Maintainer: | Gunther Schauberger <[email protected]> |
License: | GPL (>= 2) |
Version: | 0.0-3 |
Built: | 2024-11-06 06:32:15 UTC |
Source: | CRAN |
Performs UPCM, a method to model uncertainty in (Generalized) Partial Credit Models
Gunther Schauberger
[email protected]
https://www.sg.tum.de/epidemiologie/team/schauberger/
Tutz, Gerhard and Schauberger, Gunther (2020): Uncertainty in Latent Trait Models, Applied Psychological Measurement, https://journals.sagepub.com/doi/abs/10.1177/0146621620920932?journalCode=apma
data(tenseness) Y <- data.matrix(tenseness[,1:4]) X <- model.matrix(~ Gender + Age, data = tenseness)[,-1] m_upcm <- UPCM(Y = Y, X = X, cores = 2, GPCM = FALSE) m_upcm plot(m_upcm)
data(tenseness) Y <- data.matrix(tenseness[,1:4]) X <- model.matrix(~ Gender + Age, data = tenseness)[,-1] m_upcm <- UPCM(Y = Y, X = X, cores = 2, GPCM = FALSE) m_upcm plot(m_upcm)
Plot function for a UPCM
or a UGPCM
object. Plots show coefficient estimates together with
confidence intervals displayed as star plots.
## S3 method for class 'UPCM' plot(x, sig = 0.05, KIfactor = 0.9, xlim, ylim, ...)
## S3 method for class 'UPCM' plot(x, sig = 0.05, KIfactor = 0.9, xlim, ylim, ...)
x |
|
sig |
Significance level for confidence intervals, default is |
KIfactor |
Parameter to regulate the shape of the resulting star. |
xlim |
See |
ylim |
See |
... |
Further plot arguments. |
No return value, called for side effects
Gunther Schauberger
[email protected]
https://www.sg.tum.de/epidemiologie/team/schauberger/
Tutz, Gerhard and Schauberger, Gunther (2020): Uncertainty in Latent Trait Models, Applied Psychological Measurement, https://journals.sagepub.com/doi/abs/10.1177/0146621620920932?journalCode=apma
data(tenseness) Y <- data.matrix(tenseness[,1:4]) X <- model.matrix(~ Gender + Age, data = tenseness)[,-1] m_upcm <- UPCM(Y = Y, X = X, cores = 2, GPCM = FALSE) m_upcm plot(m_upcm)
data(tenseness) Y <- data.matrix(tenseness[,1:4]) X <- model.matrix(~ Gender + Age, data = tenseness)[,-1] m_upcm <- UPCM(Y = Y, X = X, cores = 2, GPCM = FALSE) m_upcm plot(m_upcm)
Data from the Freiburg Complaint Checklist. The data contain all 8 items corresponding to the scale Tenseness for 2042 participants of the standardization sample of the Freiburg Complaint Checklist.
A data frame containing data from the Freiburg Complaint Checklist with 1847 observations. All items refer to the scale Tenseness and are measured on a 5-point Likert scale where low numbers correspond to low frequencies or low intensitites of the respective complaint and vice versa.
Do you have clammy hands?
Do you have sudden attacks of sweating?
Do you notice that you behave clumsy?
Are your hands wavering frequently, e.g. when lightning a cigarette or when holding a cup?
Do you notice that your hands are restless?
Do you notice that your feet are restless?
Do you notice unvoluntary twitching of your eyes?
Do you notice unvoluntary twitching of your mouth?
Gender of the person
Does the person live alone in a household or together with somebody?
Income, categorized to levels from 1 (low income) to 11(high income). For simplicity, due to the high number of categories income can be treated as a metric variable.
Is the person from East Germany (former GDR)?
Does the person have Abitur (A-levels)?
Age of the person
ZPID (2013). PsychData of the Leibniz Institute for Psychology Information ZPID. Trier: Center for Research Data in Psychology.
Fahrenberg, J. (2010). Freiburg Complaint Checklist [Freiburger Beschwerdenliste (FBL)]. Goettingen, Hogrefe.
data(tenseness)
data(tenseness)
Performs UPCM, a method to model uncertainty in (Generalized) Partial Credit Models
UPCM( Y, X = NULL, GPCM = TRUE, Q = 10, cores = 2, lambda = 0.01, se = TRUE, method = c("nlminb", "L-BFGS-B"), ctrl.nlminb = list(eval.max = 200, iter.max = 150, abs.tol = 1e-08, rel.tol = 1e-08, trace = 0, step.min = 0.1, x.tol = 1e-08, xf.tol = 1e-08) )
UPCM( Y, X = NULL, GPCM = TRUE, Q = 10, cores = 2, lambda = 0.01, se = TRUE, method = c("nlminb", "L-BFGS-B"), ctrl.nlminb = list(eval.max = 200, iter.max = 150, abs.tol = 1e-08, rel.tol = 1e-08, trace = 0, step.min = 0.1, x.tol = 1e-08, xf.tol = 1e-08) )
Y |
Matrix containing the ordinal item response data (as ordered factors), one row per observation, one column per item. |
X |
Matrix containing explanatory variables which are used both for trait parameters and uncertainty parameters, one row per observation, one column per variable. |
GPCM |
Specifies the baseline model. |
Q |
Number of nodes to be used (per dimension) in two-dimensional Gauss-Hermite-Quadrature. |
cores |
Number of cores to be used in parallelized computation |
lambda |
Tuning parameter for ridge penalty on all coefficients except sigma/slope parameters. Should be small, only used to stabilize results. |
se |
Should standard errors be computed? Standard errors are necessary for |
method |
Specifies optimization algorithm used , either |
ctrl.nlminb |
List of control arguments for optimization procedure |
delta |
Matrix containing all item parameters for the UPCM pr UGPCM model, one row per item, one column per category. |
Sigma |
2*2 covariance matrix for both random effects, namely the trait parameters theta and the uncertainty parameters alpha. |
xi |
Estimates for covariate effects on trait parameters. |
alpha |
Estimates for covariate effects on uncertainty parameters. |
slopes |
Estimates item slope parameters (only for |
se.delta |
|
se.xi |
Estimates of standard errors for covariate effects on trait parameters. |
se.alpha |
Estimates of standard errors for covariate effects on uncertainty parameters. |
se.sigma |
Estimates of standard errors for covariance parameters. Attention: First and third parameter are estimates of se for both variances, the variance of theta and the variance of alpha. Second parameter is the estimate for correlation coefficient between theta and alpha, NOT of the corresponding covariance. |
se.slopes |
Estimates of standard errors of item slope parameters (only for |
delta.GPCM |
Estimates of item parameters theta in the PCM or GPCM model. |
sigma.GPCM |
Estimate of variance of trait parameters theta in the PCM or GPCM model. |
slopes.GPCM |
Estimates of slope parameters in the GPCM (only for |
Y |
Matrix containing the ordinal item response data, one row per obeservation, one column per item. |
loglik |
Marginal log-likelihood |
coefs |
Complete vector of all estimated parameters (for internal use). |
se.vec |
Complete vector of all estimated standard errors (for internal use). |
Gunther Schauberger
[email protected]
https://www.sg.tum.de/epidemiologie/team/schauberger/
Tutz, Gerhard and Schauberger, Gunther (2020): Uncertainty in Latent Trait Models, Applied Psychological Measurement, https://journals.sagepub.com/doi/abs/10.1177/0146621620920932?journalCode=apma
data(tenseness) Y <- data.matrix(tenseness[,1:4]) X <- model.matrix(~ Gender + Age, data = tenseness)[,-1] m_upcm <- UPCM(Y = Y, X = X, cores = 2, GPCM = FALSE) m_upcm plot(m_upcm)
data(tenseness) Y <- data.matrix(tenseness[,1:4]) X <- model.matrix(~ Gender + Age, data = tenseness)[,-1] m_upcm <- UPCM(Y = Y, X = X, cores = 2, GPCM = FALSE) m_upcm plot(m_upcm)