remove old R file for curves

diff --git a/OneRoundIoT/execution_opi.R b/OneRoundIoT/execution_opi.R
deleted file mode 100644 (file)
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 (file)
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 (file)
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 (file)
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 (file)
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 (file)
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 (file)
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 (file)
index afaeb3b..0000000
Binary files a/OneRoundIoT/execution_rpi3.pdf and /dev/null differ