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()