# NOT RUN {
# Specifying constraints
constin <- list(
nI = 5, # Number of items on the future test
nC = 4, # Number of constraints to be satisfied
nameC = c("Content_A","Content_B","p","iSx"), # Name of constraint; must be numeric and must
# reflect variable name in input
lowerC = c(2, 3, 3.00, 0.50), # Lower bound total constraint value on ATA form
upperC = c(2, 3, 3.50, 0.60), # Upper bound total constraint value on ATA form
wC = c(1, 1, 1, 1), # Constraint weight used for weighted sum of
# (positive) deviations St
set_id = NA # Aggregation ID for units / sets
)
# Running atalp
testLP <- atalp(ipool = metadata_example,
id = "Item",
constraints = constin)
# Summary of results
summary(testLP)
# }
Run the code above in your browser using DataLab