Skip to content
Snippets Groups Projects
Commit c10a0b18 authored by MAZZARELLA ENZO's avatar MAZZARELLA ENZO
Browse files

Delete .Rhistory

parent a02fdb15
Branches
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 0 additions and 132 deletions
.Rhistory deleted 100644 → 0
+ 0
− 132
View file @ a02fdb15
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'xcution 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'xcution 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'xcution 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'xcution 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'xcution 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'xcution 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'xcution 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'xcution 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'xcution 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'xcution 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 mthode 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 mthode 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 mthode 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 mmoire de la mthode 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 mmoire de la mthode 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 mmoire de la mthode ADD en fonction de la taille")
GraphAddMemoire
save.image("E:\\Documents\\IUT - Semestre 4\\Module - P4a - Performance\\P4a\\.RData")
q()
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment