Jason Aizkalns JasonAizkalns

## data.csv

          
            x
            y
            z
            a
            b
            c

            
              58
              175
              2378
              350
              350.7115929
              4756.794421

            
              80
              71
              400
              71
              142.7308178
              800.6410215

            
              80
              250
              2160
              1250
              500.6319081
              4320.578447

            
              83
              207
              5229
              207
              414.6621389
              10458.81343

            
              22
              180
              1078
              720
              360.7452868
              2156.578848

            
              50
              209
              500
              836
              418.618629
              1000.594507

            
              37
              74
              1184
              370
              148.6213903
              2368.691855

            
              87
              89
              6960
              445
              178.796512
              13920.58009

            
              12
              205
              1044
              205
              410.6771515
              2088.680834

## assignment_problem.R
library(tidyverse)
library(Rglpk)
library(glue)

df <- read_csv("data_assignment_regular.csv")
df_with_variability <- read_csv("data_assignment_with_variability.csv")

# Helper Functions ####
SolverLP <- function(model, method = "CPLEX_LP", decimal = 0) {
  model1.lp <- Rglpk_read_file(model, type = method, verbose = F)
x	y	z	a	b	c
58	175	2378	350	350.7115929	4756.794421
80	71	400	71	142.7308178	800.6410215
80	250	2160	1250	500.6319081	4320.578447
83	207	5229	207	414.6621389	10458.81343
22	180	1078	720	360.7452868	2156.578848
50	209	500	836	418.618629	1000.594507
37	74	1184	370	148.6213903	2368.691855
87	89	6960	445	178.796512	13920.58009
12	205	1044	205	410.6771515	2088.680834
	library(tidyverse)
	library(Rglpk)
	library(glue)

	df <- read_csv("data_assignment_regular.csv")
	df_with_variability <- read_csv("data_assignment_with_variability.csv")

	# Helper Functions ####
	SolverLP <- function(model, method = "CPLEX_LP", decimal = 0) {
	model1.lp <- Rglpk_read_file(model, type = method, verbose = F)