Nothing
items <- data.frame(ID = paste0("item_", 1:10),
itemValues = c(-4, -4, -2, -2, -1, -1, 20, 20, 0, 0),
stringsAsFactors = FALSE)
usage <- itemUsageConstraint(nForms = 2, nItems = 10, operator = "=",
targetValue = 1, itemIDs = items$ID)
perForm <- itemsPerFormConstraint(nForms = 2, nItems = 10, operator = "=",
targetValue = 5, itemIDs = items$ID)
target <- minimaxObjective(nForms = 2, itemValues = items$itemValues,
targetValue = 0, itemIDs = items$ID)
suppressMessages(sol <- useSolver(allConstraints = list(usage, perForm, target),
solver = "lpSolve", formNames = "block"))
suppressMessages(sol_empty <- useSolver(allConstraints = list(target),
solver = "lpSolve"))
test_that("append solution", {
out <- appendSolution(sol, items = items, idCol = "ID")
expect_equal(dim(out), c(10, 4))
expect_equal(names(out), c(names(items), paste0("block_", 1:2)))
expect_equal(out$ID, paste0("item_", 1:10))
expect_equal(rownames(out), as.character(1:10))
out <- appendSolution(sol, items = items, idCol = 1)
expect_equal(dim(out), c(10, 4))
expect_equal(names(out), c(names(items), paste0("block_", 1:2)))
expect_equal(out$ID, paste0("item_", 1:10))
})
test_that("errors", {
items2 <- items
items2[1, "ID"] <- "item_15"
expect_error(appendSolution(sol_empty, items = items2, idCol = "ID"),
"'items' and the solution in 'solverOut' have different sets of itemIDs.")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.