# NOT RUN {
itempool <- itempool_science + itempool_reading
subitempool <- subsetItemPool(itempool_science, 1:500)
itempool <- itempool_science - subitempool
itempool <- subsetItemPool(itempool_science, 1:500)
subitempool1 <- itempool_science - itempool
subitempool2 <- subsetItemPool(itempool_science, 501:1000)
subitempool1 == subitempool2 ## TRUE
cluster1 <- makeItemPoolCluster(c(itempool_science, itempool_reading))
cluster2 <- makeItemPoolCluster(c(cluster1@pools[[1]], cluster1@pools[[2]]))
cluster1 == cluster2 ## TRUE
# }
Run the code above in your browser using DataLab