# NOT RUN {
if(interactive()){
## Defines item attributes types
itemNumericColumn <- c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, TRUE,
TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, TRUE, TRUE, FALSE, FALSE, FALSE,
FALSE, TRUE, FALSE, TRUE, FALSE, FALSE,FALSE)
## Specifies the item pool file
itemPoolCSVPath <- system.file("extdata", "itempool10Items.csv",
package = "RSCAT")
## Specifies the constraint table file
constraintCSVPath <- system.file("extdata", "constraintSet1.csv",
package = "RSCAT")
## Configures solver parameters
solverConfig <- SolverConfig(absGap = 1e-3, relGap = 1e-3, intTol = 1e-6)
## Configures the EAP estimaition
eapConfig <- EAPConfig(numQuad = 6L, minQuad = -2, maxQuad = 2,
priorDistType = "Normal", distParams = c(0,1))
## Configures CAT
catConfig <- CATConfig(solverConfig = solverConfig,
scoreMethodConfig = scoreMethodConfig(eapConfig), lValue = 3L)
## Configures test specifications
testConfig <- TestConfig(testConfigID = "Test1", testLength = 6L,
itempoolPath = itemPoolCSVPath, constraintPath = constraintCSVPath,
itemNumericColumn = itemNumericColumn)
## Configures the simulation
simConfig <- SimConfig(simID = "Sim1", numExaminees = 8L)
## Runs CAT simulation
simResult <- runSim(catConfig, testConfig, simConfig)
}
# }
Run the code above in your browser using DataLab