Error in tam.mml with RSM when using Q and A matrixes

I have naively modified "Model 13c: longitudinal polytomous data" in ?tam.mml to use for RSM:

library(sirt)
data(data.long, package="sirt")
dat <- data.long

set.seed(42)
dat <- data.long
dat[(1:50),2] <- sample(c(0,1,2), 50, replace=TRUE)
dat[(1:50),5] <- sample(c(0,1,2), 50, replace=TRUE)
dat[(1:50),9] <- sample(c(0,1,2), 50, replace=TRUE)

Q <- matrix(0,12,2)
colnames(Q) <- c("T1","T2")
Q[1:6,1] <- 1       # items at T1
Q[7:12,2] <- 1      # items at T2

A <- TAM::designMatrices(resp=dat[,-1], modeltype="RSM")$A
dimnames(A)[[1]] <- colnames(dat)[-1]
A1 <- A

beta.fixed <- cbind( 1, 2, 0 )
mod13d <- TAM::tam.mml( resp=dat[,-1], Q=Q, A=A1, beta.fixed=beta.fixed, irtmodel="RSM")

The last line throws an error:

Fehler in array(0, dim = c(I, maxK + 1, Nxsi)) : 
  Objekt 'Nxsi' nicht gefunden

Any hints?

alexanderrobitzsch / TAM

Error in tam.mml with RSM when using Q and A matrixes #6