From c10a0b1892255df6221d6c0b5f84f1bbf5dba298 Mon Sep 17 00:00:00 2001 From: MAZZARELLA ENZO <enzo.mazzarella@etu.unistra.fr> Date: Tue, 23 Mar 2021 15:06:42 +0000 Subject: [PATCH] Delete .Rhistory --- .Rhistory | 132 ------------------------------------------------------ 1 file changed, 132 deletions(-) delete mode 100644 .Rhistory diff --git a/.Rhistory b/.Rhistory deleted file mode 100644 index 05c3e46..0000000 --- a/.Rhistory +++ /dev/null @@ -1,132 +0,0 @@ -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