View source: R/appendSolution.R
appendSolution | R Documentation |
useSolver
outputAppend a useSolver
output of a successfully solved optimization problem to the initial item pool data.frame
.
appendSolution(solverOut, items, idCol)
solverOut |
Object created by |
items |
Original |
idCol |
Column name or column number in |
This function merges the initial item pool information in items
to the solver output in solverOut
.
A data.frame
.
## Example item pool
items <- data.frame(ID = 1:10,
itemValues = c(-4, -4, -2, -2, -1, -1, 20, 20, 0, 0))
## Test Assembly
usage <- itemUsageConstraint(nForms = 2, operator = "=",
targetValue = 1, itemIDs = items$ID)
perForm <- itemsPerFormConstraint(nForms = 2, operator = "=",
targetValue = 5, itemIDs = items$ID)
target <- minimaxObjective(nForms = 2,
itemValues = items$itemValues,
targetValue = 0, itemIDs = items$ID)
sol <- useSolver(allConstraints = list(usage, perForm, target),
solver = "lpSolve")
## Append Solution to existing item information
out <- appendSolution(sol, items = items, idCol = 1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.