R/get_knapsack_objects.R

In PatrickSVM/knapsack: Algorithms to solve the knapsack problem

#' get_knapsack_objects
#'
#' Get a dataframe to use for the knapsack problem.
#' It contains two columns: w = weights, v = values
#'
#' @param n number of items that should be created
#'
#' @return Dataframe with items' weights and values
#'
#' @examples
#' get_knapsack_objects(2000)
#'
#' @importFrom stats runif
#'
#' @export

get_knapsack_objects <- function(n) {
  suppressWarnings(RNGversion(min(as.character(getRversion()),"3.5.3")))

  ##old sampler used for backward compatibility

  set.seed(42, kind = "Mersenne-Twister", normal.kind = "Inversion")
  knapsack_objects <-
    data.frame(
      w=sample(1:4000, size = n, replace = TRUE),
      v=runif(n = n, 0, 10000)
    )
}