library(Knapsackpackage)
library(testthat)
set.seed(42)
n <- 2000
knapsack_objects <-
data.frame(
w=sample(1:4000, size = n, replace = TRUE),
v=runif(n = n, 0, 10000)
)
context("Knapsackpackage")
test_that('Dynamic Programming knapsack',{
expect_equal(knapsack_dynamic(knapsack_objects[1:8,],3500)$value, 16770)
expect_equal(knapsack_dynamic(knapsack_objects[1:8,],3500)$elements, c(5,8))
expect_equal(knapsack_dynamic(knapsack_objects[1:12,],3500)$value, 16770)
expect_equal(knapsack_dynamic(knapsack_objects[1:12,],3500)$elements, c(5,8))
expect_equal(knapsack_dynamic(knapsack_objects[1:8,],2000)$value, 15428)
expect_equal(knapsack_dynamic(knapsack_objects[1:8,],2000)$elements, c(3,8))
expect_equal(knapsack_dynamic(knapsack_objects[1:12,],2000)$value, 15428)
expect_equal(knapsack_dynamic(knapsack_objects[1:12,],2000)$elements, c(3,8))
})
test_that('Dynamic Programming knapsack',{
expect_error(knapsack_dynamic(c(0:00),10))
expect_error(knapsack_dynamic(knapsack_objects,z))
expect_error(knapsack_dynamic(c(1,2),5))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.