R/knapsack_object.R

In abhijeet16/shazam: Knapsack Problem

# ====================================================================
# Run the below code
suppressWarnings(RNGversion(min(as.character(getRversion()),"3.5.3")))
set.seed(42, kind = "Mersenne-Twister", normal.kind = "Inversion")
n <- 2000

#' Knapsack Objects
#' @title Knapsack Objects
#' @name Knapsack_objects
#' @details generate knapsack objects
#' @description Generate Knapsack objects to test the algorithms
#' @return returns a data frame with weight and value
#' @export knapsack_objects
knapsack_objects <-
  data.frame(
    w=sample(1:4000, size = n, replace = TRUE),
    v=runif(n = n, 0, 10000)
  )
# ====================================================================