#############################################################################
# EXAMPLE 1: Some examples of Gu and Xu (2019)
#############################################################################
#* Matrix 1 in Equation (5) of Gu & Xu (2019)
Q1 <- diag(3)
Q2 <- matrix( scan(text="1 1 0 1 0 1 1 1 1 1 1 1"), ncol=3, byrow=TRUE)
Q <- rbind(Q1, Q2)
res <- CDM::din_identifiability(q.matrix=Q)
summary(res)
# remove two items
res <- CDM::din_identifiability(q.matrix=Q[-c(2,5),])
summary(res)
#* Matrix 1 in Equation (6) of Gu & Xu (2019)
Q1 <- diag(3)
Q2 <- matrix( c(1,1,1), nrow=4, ncol=3, byrow=TRUE)
Q <- rbind(Q1, Q2)
res <- CDM::din_identifiability(q.matrix=Q)
summary(res)
Run the code above in your browser using DataLab