Estoy tratando de ajuste longitudinal de la teoría de respuesta al ítem (IRT) modelos en R. tengo una prueba que se administra en varias de medición de ocasiones. Me gustaría examinar a los individuos de las curvas de crecimiento de los puntajes del factor (es decir, los niveles de habilidad) de graduado modelos de respuesta (GRMs). He utilizado la ltm paquete en R para el ajuste de la sección transversal GRM modelos IRT, pero no me queda claro cómo (o si es posible aún en ltm) para extender los modelos para manejar de medidas repetidas de los mismos objetos a través del tiempo. ¿Cómo puedo ajuste de las curvas de crecimiento longitudinal GRM factor de puntuaciones para ver cambios en el medio/variaciones de los niveles de habilidad a lo largo del tiempo? Si esto no es posible con la ltm paquete, ¿qué paquetes/funciones de este permiso? Código específico de ejemplos sería apreciado.
Aquí hay ejemplos empíricos similar a lo que yo estoy buscando para hacer (excepto los ejemplos de uso de un modelo Rasch para los binarios de los elementos en los que estoy usando GRMs de politómica de datos):
Por ejemplo, me gustaría ser capaz de estimar y de la trama de los individuos de las curvas de crecimiento para examinar la media de nivel de cambio en los niveles de capacidad a lo largo del tiempo (de McArdle & Grimm, 2011):
Y, me gustaría ser capaz de estimar un promedio o prototípicas de la curva de crecimiento para la muestra (a partir de McArdle & Grimm, 2011):
He aquí un conjunto de datos simulados con 20 politómica elementos (1-3 escala de respuesta) en 3 diferentes puntos de tiempo:
library(mirt)
library(mvtnorm)
set.seed(1)
numberItems <- 20
numberItemLevels <- 2
sampleSize <- 1000
a <- matrix(rlnorm(numberItems, .2, .2))
d <- matrix(rnorm(numberItems*numberItemLevels), numberItems)
d <- t(apply(d, 1, sort, decreasing=TRUE))
Theta <- mvtnorm::rmvnorm(n=sampleSize, 0, matrix(1))
t1 <- simdata(a, d, N=sampleSize, itemtype="graded", Theta=Theta)
t2 <- simdata(a, d, N=sampleSize, itemtype="graded", Theta=Theta+.5)
t3 <- simdata(a, d, N=sampleSize, itemtype="graded", Theta=Theta+1)
dat <- data.frame(t1, t2, t3)