From: couturie Date: Thu, 26 Jul 2018 13:02:15 +0000 (+0200) Subject: remove old R file for curves X-Git-Url: https://bilbo.iut-bm.univ-fcomte.fr/and/gitweb/Cipher_code.git/commitdiff_plain/4095e8a185238f0a37bbce6cb4c084e28e46bbeb remove old R file for curves --- diff --git a/OneRoundIoT/execution_opi.R b/OneRoundIoT/execution_opi.R deleted file mode 100644 index f5ac2d3..0000000 --- a/OneRoundIoT/execution_opi.R +++ /dev/null @@ -1,38 +0,0 @@ -library("ggplot2") -library(reshape2) - -setwd("~/work/Cipher_code/OneRoundIoT/") - -openrpi3=read.csv('execution_openssl_opi.txt',sep="\t",header=F) -onerpi3=read.csv('execution_oneround_opi.txt',sep="\t",header=F) - -openrpi3=openrpi3[c(1,2,3,5)] -onerpi3=onerpi3[c(2,3,5)] - -res=data.frame(openrpi3,onerpi3) -names(res)=c("Buffer","OpenSSL enc CBC","OpenSSL dec CBC", "OpenSSL (en|de)c CTR", "OneRound enc DECB", "OneRound dec DECB", "OneRound (en|de)c CTR") - - - - - -df2 <- melt(data = res, id.vars = 1) - -names(df2)[2]="Legend" -#names(df2)[3]="Accuracy" - - -#g=ggplot(res, aes(iteration)) + -# geom_line(aes(y = test, colour = "testing accuracy")) + -# geom_line(aes(y = train, colour = "training accuracy"))+ - -g=ggplot(data = df2, aes(x=Buffer, y=value)) + geom_line(aes(colour=Legend)) + - scale_x_continuous("Buffer size",trans="log10") + - scale_y_continuous("Bytes per second",trans="log10",breaks=seq(1e7,2e8,1e7))+ - theme(legend.position="top")+ - annotation_logticks() - - -ggsave("execution_opi.pdf",width = 15, height = 10, units = "cm") - -print(g) diff --git a/OneRoundIoT/execution_opi.pdf b/OneRoundIoT/execution_opi.pdf deleted file mode 100644 index 44ed272..0000000 Binary files a/OneRoundIoT/execution_opi.pdf and /dev/null differ diff --git a/OneRoundIoT/execution_rpi0.R b/OneRoundIoT/execution_rpi0.R deleted file mode 100644 index f5fc2a3..0000000 --- a/OneRoundIoT/execution_rpi0.R +++ /dev/null @@ -1,38 +0,0 @@ -library("ggplot2") -library(reshape2) - -setwd("~/work/Cipher_code/OneRoundIoT/") - -openrpi3=read.csv('execution_openssl_rpi0.txt',sep="\t",header=F) -onerpi3=read.csv('execution_oneround_rpi0.txt',sep="\t",header=F) - -openrpi3=openrpi3[c(1,2,3,5)] -onerpi3=onerpi3[c(2,3,5)] - -res=data.frame(openrpi3,onerpi3) -names(res)=c("Buffer","OpenSSL enc CBC","OpenSSL dec CBC", "OpenSSL (en|de)c CTR", "OneRound enc DECB", "OneRound dec DECB", "OneRound (en|de)c CTR") - - - - - -df2 <- melt(data = res, id.vars = 1) - -names(df2)[2]="Legend" -#names(df2)[3]="Accuracy" - - -#g=ggplot(res, aes(iteration)) + -# geom_line(aes(y = test, colour = "testing accuracy")) + -# geom_line(aes(y = train, colour = "training accuracy"))+ - -g=ggplot(data = df2, aes(x=Buffer, y=value)) + geom_line(aes(colour=Legend)) + - scale_x_continuous("Buffer size",trans="log10") + - scale_y_continuous("Bytes per second",trans="log10",breaks=seq(1e7,2e8,1e7))+ - theme(legend.position="top")+ - annotation_logticks() - - -ggsave("execution_rpi0.pdf",width = 15, height = 10, units = "cm") - -print(g) diff --git a/OneRoundIoT/execution_rpi0.pdf b/OneRoundIoT/execution_rpi0.pdf deleted file mode 100644 index a2eaa5c..0000000 Binary files a/OneRoundIoT/execution_rpi0.pdf and /dev/null differ diff --git a/OneRoundIoT/execution_rpi2.R b/OneRoundIoT/execution_rpi2.R deleted file mode 100644 index c5f2220..0000000 --- a/OneRoundIoT/execution_rpi2.R +++ /dev/null @@ -1,38 +0,0 @@ -library("ggplot2") -library(reshape2) - -setwd("~/work/Cipher_code/OneRoundIoT/") - -openrpi3=read.csv('execution_openssl_rpi2.txt',sep="\t",header=F) -onerpi3=read.csv('execution_oneround_rpi2.txt',sep="\t",header=F) - -openrpi3=openrpi3[c(1,2,3,5)] -onerpi3=onerpi3[c(2,3,5)] - -res=data.frame(openrpi3,onerpi3) -names(res)=c("Buffer","OpenSSL enc CBC","OpenSSL dec CBC", "OpenSSL (en|de)c CTR", "OneRound enc DECB", "OneRound dec DECB", "OneRound (en|de)c CTR") - - - - - -df2 <- melt(data = res, id.vars = 1) - -names(df2)[2]="Legend" -#names(df2)[3]="Accuracy" - - -#g=ggplot(res, aes(iteration)) + -# geom_line(aes(y = test, colour = "testing accuracy")) + -# geom_line(aes(y = train, colour = "training accuracy"))+ - -g=ggplot(data = df2, aes(x=Buffer, y=value)) + geom_line(aes(colour=Legend)) + - scale_x_continuous("Buffer size",trans="log10") + - scale_y_continuous("Bytes per second",trans="log10",breaks=seq(1e7,2e8,1e7))+ - theme(legend.position="top")+ - annotation_logticks() - - -ggsave("execution_rpi2.pdf",width = 15, height = 10, units = "cm") - -print(g) diff --git a/OneRoundIoT/execution_rpi2.pdf b/OneRoundIoT/execution_rpi2.pdf deleted file mode 100644 index 6ee7f8c..0000000 Binary files a/OneRoundIoT/execution_rpi2.pdf and /dev/null differ diff --git a/OneRoundIoT/execution_rpi3.R b/OneRoundIoT/execution_rpi3.R deleted file mode 100644 index b17ac7d..0000000 --- a/OneRoundIoT/execution_rpi3.R +++ /dev/null @@ -1,38 +0,0 @@ -library("ggplot2") -library(reshape2) - -setwd("~/work/Cipher_code/OneRoundIoT/") - -openrpi3=read.csv('execution_openssl_rpi3.txt',sep="\t",header=F) -onerpi3=read.csv('execution_oneround_rpi3.txt',sep="\t",header=F) - -openrpi3=openrpi3[c(1,2,3,5)] -onerpi3=onerpi3[c(2,3,5)] - -res=data.frame(openrpi3,onerpi3) -names(res)=c("Buffer","OpenSSL enc CBC","OpenSSL dec CBC", "OpenSSL (en|de)c CTR", "OneRound enc DECB", "OneRound dec DECB", "OneRound (en|de)c CTR") - - - - - -df2 <- melt(data = res, id.vars = 1) - -names(df2)[2]="Legend" -#names(df2)[3]="Accuracy" - - -#g=ggplot(res, aes(iteration)) + -# geom_line(aes(y = test, colour = "testing accuracy")) + -# geom_line(aes(y = train, colour = "training accuracy"))+ - -g=ggplot(data = df2, aes(x=Buffer, y=value)) + geom_line(aes(colour=Legend)) + - scale_x_continuous("Buffer size",trans="log10") + - scale_y_continuous("Bytes per second",trans="log10",breaks=seq(1e7,2e8,1e7))+ - theme(legend.position="top")+ - annotation_logticks() - - -ggsave("execution_rpi3.pdf",width = 15, height = 10, units = "cm") - -print(g) diff --git a/OneRoundIoT/execution_rpi3.pdf b/OneRoundIoT/execution_rpi3.pdf deleted file mode 100644 index afaeb3b..0000000 Binary files a/OneRoundIoT/execution_rpi3.pdf and /dev/null differ