From e588289386c3ea75db04117e489f4fa97aa9e55e Mon Sep 17 00:00:00 2001
From: MAZZARELLA ENZO <enzo.mazzarella@etu.unistra.fr>
Date: Sun, 14 Mar 2021 09:58:08 +0000
Subject: [PATCH] =?UTF-8?q?ajout=20du=20fichier=20compl=C3=A9mentaire=20R?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .Rhistory | 132 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 132 insertions(+)
 create mode 100644 .Rhistory

diff --git a/.Rhistory b/.Rhistory
new file mode 100644
index 0000000..05c3e46
--- /dev/null
+++ b/.Rhistory
@@ -0,0 +1,132 @@
+load("E:\\Documents\\IUT - Semestre 4\\Module - P4a - Performance\\P4a\\.RData")
+perfArray
+GraphArray <- ggplot(perfArray, aes(x=Taille, y=CPU, color="red")) + geom_point()
+library(ggplot2)
+GraphArray <- ggplot(perfArray, aes(x=Taille, y=CPU, color="red")) + geom_point()
+GraphArray
+perfTableau
+GraphTableau <- ggplot(perfTableau, aes(x=Taille, y=CPU, color="blue")) + geom_point()
+GraphTableau
+GraphTableau
+GraphTableau <- ggplot(perfTableau, aes(x=Taille, y=CPU, color="green")) + geom_point()
+GraphTableau
+GraphTableau <- ggplot(perfTableau, aes(x=Taille, y=CPU, color='green')) + geom_point()
+GraphTableau
+GraphArray
+GraphTableau <- ggplot(perfTableau, aes(x=Taille, y=CPU, color='green')) + geom_point(color="green")
+GraphTableau
+GraphArray <- ggplot(perfArray, aes(x=Taille, y=CPU, color="red")) + geom_point(color="red")
+GraphArray
+perfLinked
+GraphLinked = ggplot(perfLinked, aes(x=Taille, y=CPU, color="blue")) + geom_point(color="blue")
+GraphLinked
+GraphPerfInitializing <- rbind(GraphArray, GraphTableau, GraphLinked)
+GraphPerfInitializing
+GraphPerf <- ggplot(GraphPerfInitializing, aes(x=Taille, y=CPU)) + geom_point()
+ggplot(GraphPerfInitializing, aes(x=Taille, y=CPU)) + geom_point()
+GraphTableau
+test<- rbind(perfArray, perfTableau, perfLinked)
+GraphTest <- ggplot(test, aes(x=Taille, y=CPU)) + geom_point()
+GraphTest
+ggplot(perfArray, aes(x=Taille, y=CPU)) + geom_point() + geom_smooth(fill="blue", colour="darkblue", size=1)
+warnings()
+save.image("E:\\Documents\\IUT - Semestre 4\\Module - P4a - Performance\\P4a\\.RData")
+q()
+load("E:\\Documents\\IUT - Semestre 4\\Module - P4a - Performance\\P4a\\.RData")
+perfArray
+Array
+graphArray
+arrayGraph
+GraphArray
+GraphArray <- ggplot(perfArray, aes(x=Taille, y=CPU, color="red")) + geom_point(color="red") + geom_smooth()
+library(ggplot2)
+GraphArray <- ggplot(perfArray, aes(x=Taille, y=CPU, color="red")) + geom_point(color="red") + geom_smooth()
+GraphArray <- ggplot(perfArray, aes(x=Taille, y=CPU, color="red")) + geom_point(color="red") + geom_smooth()
+GraphArray
+warnings()
+q()
+perf <- read.csv2("perf.csv", sep="\t", dec=".")
+perfTableau <- read.csv2("perfTableau.csv", sep="\t", dec=".")
+perfTableau <- read.csv2("perfTableau.csv", sep="\t", dec=".")
+perfArray <- read.csv2("perfArray.csv", sep="\t", dec=".")
+perfLinked <- read.csv2("perfLinked.csv", sep="\t", dec=".")
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,label="Performance Add Tableau")) + geom_smooth(color=blue")
+)
+"
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,label="Performance Add Tableau")) + geom_smooth(color="blue")
+library(ggplot2)
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,label="Performance Add Tableau")) + geom_smooth(color="blue")
+graphTableau
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,label="Performance Add Tableau")) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,colour="Performance Add Tableau")) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,colour=Performance Add Tableau)) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,color="Performance Add Tableau")) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,color="red")) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,color=red)) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,color=time)) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau
+graphTableau
+graphTableau <- ggplot(perfTableau, aes(x=Taille,y=CPU,color=CPU)) + geom_smooth(color="blue") + ggtitle("Evaluation du temps d'éxécution de Add sur un tableau")
+graphTableau
+graphArray <- ggplot(perfArray, aes(x=Taille,y=CPU,color=CPU)) + geom_smooth(color="red") + ggtitle("Evaluation du temps d'éxécution de Add sur une Array")
+graphArray
+graphLinked <- ggplot(perfLinked, aes(x=Taille,y=CPU,color=CPU)) + geom_smooth(color="green") + ggtitle("Evaluation du temps d'éxécution de Add sur une LinkedList")
+graphLinked
+graph <- ggarrange(graphTableau, graphArray, graphLinked, Labels=c("Tableau","Array","Linked"), ncol=2, nrow=2)
+library(ggpubr)
+install.package(ggpubr)
+instal.package(ggpubr)
+local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
+if(nchar(pkg)) library(pkg, character.only=TRUE)})
+instal.packages(ggpubr)
+install.packages(ggpubr)
+if(!require(devtools)) install.packages("devtools")
+devtools::install_github("kassambara/ggpubr")
+devtools::install_github("kassambara/ggpubr")
+install.packages(ggpubr)
+local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
+if(nchar(pkg)) library(pkg, character.only=TRUE)})
+library(devtools)
+library("devtools")
+library("devtools")
+local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
+if(nchar(pkg)) library(pkg, character.only=TRUE)})
+local({pkg <- select.list(sort(.packages(all.available = TRUE)),graphics=TRUE)
+if(nchar(pkg)) library(pkg, character.only=TRUE)})
+print(perfArray)
+print(graphArray)
+print(graphLinked)
+using pushViewport()
+pushViewport(viewport(layout = grid.layout(2,2)))
+if(!require(devtools)) install.packages("devtools")
+devtools::install_github("kassambara/ggpubr")
+devtools::install_github("kassambara/ggpubr")
+install.packages("ggpubr")
+libraryr(ggpubr)
+library(ggpubr)
+graph <- ggarrange(graphTableau, graphArray, graphLinked, Labels=c("Tableau","Array","Linked"), ncol=2, nrow=2)
+graph
+save.image("E:\\Documents\\IUT - Semestre 4\\Module - P4a - Performance\\P4a\\.RData")
+perf <- read.csv2("perf.csv", sep="\t", dec=".")
+perf
+perf <- read.csv2("perf.csv", sep="\t", dec=".")
+perf
+ggplot(perf,aes(y = CPU, x = Taille, colour = Structure, shape =Structure))
+ggplot(perf,aes(y = CPU, x = Taille, colour = Structure, shape =Structure)) + geom_point() + geom_smooth()
+ggplot(perf,aes(y = CPU, x = Taille, colour = Structure, shape =Structure)) + geom_point() + geom_smooth() + ggtitle("Evaluation de la performance CPU de la méthode ADD en fonction de la taille")
+perfAdd <- read.csv2("perf.csv", sep="\t", dec=".")
+GraphAdd <- ggplot(perfAdd,aes(y = CPU, x = Taille, colour = Structure, shape =Structure)) + geom_point() + geom_smooth() + ggtitle("Evaluation de la performance CPU de la méthode ADD en fonction de la taille")
+GraphAdd
+GraphAddCPU <- ggplot(perfAdd,aes(y = CPU, x = Taille, colour = Structure, shape =Structure)) + geom_point() + geom_smooth() + ggtitle("Evaluation de la performance CPU de la méthode ADD en fonction de la taille")
+GraphAddMemoire <- ggplot(perfAdd,aes(y = CPU, x = Taille, colour = Structure, shape =Structure)) + geom_point() + geom_smooth() + ggtitle("Evaluation de la performance mémoire de la méthode ADD en fonction de la taille")
+GraphAddMemoire
+GraphAddMemoire <- ggplot(perfAdd,aes(y = Memoire, x = Taille, colour = Structure, shape =Structure)) + geom_point() + geom_smooth() + ggtitle("Evaluation de la performance mémoire de la méthode ADD en fonction de la taille")
+GraphAddMemoire
+GraphAddMemoire <- ggplot(perfAdd,aes(y = Mem, x = Taille, colour = Structure, shape =Structure)) + geom_point() + geom_smooth() + ggtitle("Evaluation de la performance mémoire de la méthode ADD en fonction de la taille")
+GraphAddMemoire
+save.image("E:\\Documents\\IUT - Semestre 4\\Module - P4a - Performance\\P4a\\.RData")
+q()
-- 
GitLab