R/knapsack_objects.R

In JS2387/Group8knapsack: Solves the knapsack problem with 3 approaches - Brute Force, DP & Greedy Heuristic

#' @title knapsack problem data set
#' @description Creates a data frame that can be used for implementing the knapsack algorithm
#' @param n as integer to represent the number of objects in the knapsack problem to be generated
#' @usage knapsack_objects(n)
#' @importFrom  stats runif
#' @export
knapsack_objects <- function(n) {
  suppressWarnings(RNGversion(min(as.character(getRversion()),"3.5.3")))
  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)
    )
  return(knapsack_objects)
}