data-raw/knapsack_objects.R

In shihs/LiUAdRLab6: The knapsack package

set.seed(42)
n <- 2000
knapsack_objects <-
  data.frame(w=sample(1:4000, size = n, replace = TRUE),
             v=runif(n = n, 0, 10000))

# save(knapsack_objects, file = "knapsack_objects.Rdata")

devtools::use_data(knapsack_objects, overwrite = T)