Nothing
context("add_relative_targets")
test_that("numeric(1)", {
# load data
data(sim_projects, sim_actions, sim_features)
# create problem
p <- problem(sim_projects, sim_actions, sim_features,
"name", "success", "name", "cost", "name", FALSE) %>%
add_relative_targets(0.5)
# calculate relative targets
mp <- unname(rep(apply(p$epf_matrix(), 2, max, na.rm = TRUE)))
targets <- p$targets$output()
# run tests
expect_is(targets, "tbl_df")
expect_true(all(names(targets) == c("feature", "sense", "value")))
expect_is(targets$feature, "integer")
expect_is(targets$value, "numeric")
expect_is(targets$sense, "character")
expect_equal(targets$feature, seq_len(nrow(sim_features)))
expect_equal(targets$value, mp * 0.5)
expect_equal(targets$sense, rep(">=", nrow(sim_features)))
})
test_that("numeric(4)", {
# load data
data(sim_projects, sim_actions, sim_features)
# create problem
p <- problem(sim_projects, sim_actions, sim_features,
"name", "success", "name", "cost", "name", FALSE) %>%
add_relative_targets(seq_len(5) * 0.1)
# calculate relative targets
targets <- p$targets$output()
mp <- unname(rep(apply(p$epf_matrix(), 2, max, na.rm = TRUE)))
# run tests
expect_is(targets, "tbl_df")
expect_true(all(names(targets) == c("feature", "sense", "value")))
expect_is(targets$feature, "integer")
expect_is(targets$value, "numeric")
expect_is(targets$sense, "character")
expect_equal(targets$feature, seq_len(nrow(sim_features)))
expect_equal(targets$value, mp * seq_len(5) * 0.1)
expect_equal(targets$sense, rep(">=", nrow(sim_features)))
})
test_that("character", {
# load data
data(sim_projects, sim_actions, sim_features)
sim_features$target <- seq_len(5) * 0.1
# create problem
p <- problem(sim_projects, sim_actions, sim_features,
"name", "success", "name", "cost", "name", FALSE) %>%
add_relative_targets("target")
# calculate relative targets
mp <- unname(rep(apply(p$epf_matrix(), 2, max, na.rm = TRUE)))
targets <- p$targets$output()
# run tests
expect_is(targets, "tbl_df")
expect_true(all(names(targets) == c("feature", "sense", "value")))
expect_is(targets$feature, "integer")
expect_is(targets$value, "numeric")
expect_is(targets$sense, "character")
expect_equal(targets$feature, seq_len(nrow(sim_features)))
expect_equal(targets$value, mp * sim_features$target)
expect_equal(targets$sense, rep(">=", nrow(sim_features)))
})
test_that("invalid arguments", {
data(sim_projects, sim_actions, sim_features)
p <- problem(sim_projects, sim_actions, sim_features,
"name", "success", "name", "cost", "name")
## single numeric values
expect_error({
add_relative_targets(p, 2)
})
expect_error({
add_relative_targets(p, -1)
})
expect_error({
add_relative_targets(p, NA_real_)
})
## multiple numeric values
expect_error({
add_relative_targets(p, rep(0.1, nrow(sim_features) - 1))
})
expect_error({
add_relative_targets(p, c(2, rep(0.1, nrow(sim_features) - 1)))
})
expect_error({
add_relative_targets(p, c(-1, rep(0.1, nrow(sim_features) - 1)))
})
expect_error({
add_relative_targets(p, c(NA_real_, rep(0.1, nrow(sim_features) - 1)))
})
## character values
expect_error({
add_relative_targets(p, NA_character_)
})
expect_error({
add_relative_targets(p, "a")
})
})
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.