e02 <- read.table("err_2.txt")
e03 <- read.table("err_3.txt")
e04 <- read.table("err_4.txt")
e05 <- read.table("err_5.txt")
e06 <- read.table("err_6.txt")
e07 <- read.table("err_7.txt")
e08 <- read.table("err_8.txt")
e09 <- read.table("err_9.txt")
e10 <- read.table("err_10.txt")
e11 <- read.table("err_11.txt")
e11 <- read.table("err_11.txt")
e12 <- read.table("err_12.txt")
e12 <- read.table("err_13.txt")
e12 <- read.table("err_12.txt")
e13 <- read.table("err_13.txt")
e14 <- read.table("err_14.txt")
e14oo <- read.table("err_oo_14.txt")
e13oo <- read.table("err_oo_13.txt")
e12oo <- read.table("err_oo_12.txt")
e11oo <- read.table("err_oo_11.txt")
e10oo <- read.table("err_oo_10.txt")
e09oo <- read.table("err_oo_9.txt")
e08oo <- read.table("err_oo_8.txt")
e07oo <- read.table("err_oo_7.txt")
e06oo <- read.table("err_oo_6.txt")
e05oo <- read.table("err_oo_5.txt")
e04oo <- read.table("err_oo_4.txt")
e03oo <- read.table("err_oo_3.txt")
e02oo <- read.table("err_oo_2.txt")

errors<-c(e02,e02oo,e03,e03oo,e04,e04oo,e05,e05oo,e06,e06oo,e07,e07oo,e08,e08oo,e09,e09oo,e10,e10oo,e11,e11oo,e12,e12oo,e13,e13oo,e14,e14oo)

png(filename="err_tot.png", width = 640, height = 640)
boxplot(errors, border = c("black", "red"), range = 0,main = "Relative errors", xlab = "test nr", ylab = "error (%)", ylim = c(0, 200),names = c("2", "2 (OO)","3", "3 (OO)","4", "4 (OO)","5", "5 (OO)","6", "6 (OO)","7", "7 (OO)","8", "8 (OO)","9", "9 (OO)","10", "10 (OO)","11", "11 (OO)","12", "12 (OO)","13", "13 (OO)","14", "14 (OO)"))
dev.off()

boxplot(errors[1:12], range = 0, ylim = c(0,200),main = "Relative errors", xlab = "test nr (Object Oriented)", ylab = "error (%)", names = c("2", "2 (OO)","3", "3 (OO)","4", "4 (OO)","5", "5 (OO)","6", "6 (OO)","7", "7 (OO)"))
boxplot(errors[13:26], range = 0, ylim = c(0,200),main = "Relative errors", xlab = "test nr (Object Oriented)", ylab = "error (%)", names = c("8", "8 (OO)","9", "9 (OO)","10", "10 (OO)","11", "11 (OO)","12", "12 (OO)","13", "13 (OO)","14", "14 (OO)"))


c02 <- read.table("calc_2.txt")
c03 <- read.table("calc_3.txt")
c04 <- read.table("calc_4.txt")
c05 <- read.table("calc_5.txt")
c06 <- read.table("calc_6.txt")
c07 <- read.table("calc_7.txt")
c08 <- read.table("calc_8.txt")
c09 <- read.table("calc_9.txt")
c10 <- read.table("calc_10.txt")
c11 <- read.table("calc_11.txt")
c11 <- read.table("calc_11.txt")
c12 <- read.table("calc_12.txt")
c12 <- read.table("calc_13.txt")
c12 <- read.table("calc_12.txt")
c13 <- read.table("calc_13.txt")
c14 <- read.table("calc_14.txt")
c14oo <- read.table("calc_oo_14.txt")
c13oo <- read.table("calc_oo_13.txt")
c12oo <- read.table("calc_oo_12.txt")
c11oo <- read.table("calc_oo_11.txt")
c10oo <- read.table("calc_oo_10.txt")
c09oo <- read.table("calc_oo_9.txt")
c08oo <- read.table("calc_oo_8.txt")
c07oo <- read.table("calc_oo_7.txt")
c06oo <- read.table("calc_oo_6.txt")
c05oo <- read.table("calc_oo_5.txt")
c04oo <- read.table("calc_oo_4.txt")
c03oo <- read.table("calc_oo_3.txt")
c02oo <- read.table("calc_oo_2.txt")

calcs <-c(c02,c02oo,c03,c03oo,c04,c04oo,c05,c05oo,c06,c06oo,c07,c07oo,c08,c08oo,c09,c09oo,c10,c10oo,c11,c11oo,c12,c12oo,c13,c13oo,c14,c14oo)

png(filename="calcs_tot.png", width = 640, height = 640)
boxplot(calcs, border = c("black", "red"), range = 0,main = "Number of function evaluations", xlab = "test nr", ylab = "nr. of evaluations", ylim = c(0, 400),names = c("2", "2 (OO)","3", "3 (OO)","4", "4 (OO)","5", "5 (OO)","6", "6 (OO)","7", "7 (OO)","8", "8 (OO)","9", "9 (OO)","10", "10 (OO)","11", "11 (OO)","12", "12 (OO)","13", "13 (OO)","14", "14 (OO)"))
dev.off()