vignettes/lab_report_knapsack.R

In rjkhan/RCourse-lab6: Knapsack problem solved by different alogrithms

## ------------------------------------------------------------------------
library(knapsack) #load our knapsack library
set.seed(42) #set seed to generate a random sample
n <- 2000    # number of Items
knapsack_objects <- data.frame( w=sample(1:4000, size = n, replace = TRUE),
                                v=runif(n = n, 0, 10000)
)

head(knapsack_objects) #show number of rows of sample data 

## ---- warning= FALSE, message= FALSE-------------------------------------
brute_force_knapsack(knapsack_objects[1:8,], W = 3500)

## ---- warning= FALSE, message= FALSE-------------------------------------
brute_force_knapsack(x = knapsack_objects[1:12,], W = 2000)

## ------------------------------------------------------------------------
library(knapsack) #load our knapsack library
set.seed(42) #set seed to generate a random sample
n <- 16    # number of Items
knapsack_objects <- data.frame( w=sample(1:4000, size = n, replace = TRUE),
                                v=runif(n = n, 0, 10000))
# time taken to run on n= 16 and W= 2000
system.time(brute_force <- brute_force_knapsack(x = knapsack_objects[1:12,], W = 2000))

## ---- warning= FALSE, message= FALSE-------------------------------------
knapsack_dynamic(knapsack_objects[1:8,], W = 3500)

## ---- warning= FALSE, message= FALSE-------------------------------------
knapsack_dynamic(x = knapsack_objects[1:12,], W = 2000)

## ------------------------------------------------------------------------
library(knapsack) #load our knapsack library
set.seed(42) #set seed to generate a random sample
n <- 500    # number of Items
knapsack_objects <- data.frame( w=sample(1:4000, size = n, replace = TRUE),
                                v=runif(n = n, 0, 10000))
# time taken to run on n= 16 and W= 2000
system.time(dynamic_result<- knapsack_dynamic(x = knapsack_objects[1:12,], W = 2000))

## ---- warning= FALSE, message= FALSE-------------------------------------
greedy_knapsack(knapsack_objects[1:800,], W = 3500)

## ---- warning= FALSE, message= FALSE-------------------------------------
greedy_knapsack(x = knapsack_objects[1:12,], W = 2000)

## ------------------------------------------------------------------------
library(knapsack) #load our knapsack library
set.seed(42) #set seed to generate a random sample
n <- 1000000    # number of Items
knapsack_objects <- data.frame( w=sample(1:4000, size = n, replace = TRUE),
                                v=runif(n = n, 0, 10000))
# time taken to run on n= 16 and W= 2000
system.time(greedy_result <- greedy_knapsack(x = knapsack_objects[1:12,], W = 2000))

## ---- echo=TRUE----------------------------------------------------------
library(microbenchmark)

microbenchmark(
  "brute_force"= brute_force, #n= 16
  "dynamic_knapsack" = dynamic_result, #n= 500
  "greedy" = greedy_result ,#n = 1000000
  times = 1,
  unit = "us"
)