Commit 0fc21459 authored by KIEU VINH's avatar KIEU VINH
Browse files

Ajout des graphes de test

parent 2696bb28
File added
library(ggplot2)
perf <- read.table("perf.dat", header = TRUE)
perfArrayList <- perf[perf$type_list=="arrayList", ]
perfLinkedList <- perf[perf$type_list=="linkedList", ]
png("exectime_arrayList.png")
ggplot(data=perfArrayList, aes(x=nb_fois,y=exectime, color=method, fill=type_list)) + ggtitle("Test temps d'execution (arrayList)") + geom_point() + geom_smooth()
dev.off()
png("exectime_linkedList.png")
ggplot(data=perfLinkedList, aes(x=nb_fois,y=exectime, color=method, fill=type_list)) + ggtitle("Test temps d'execution (linkedList)") + geom_point() + geom_smooth()
dev.off()
png("mem_arrayList.png")
ggplot(data=perfArrayList, aes(x=nb_fois,y=mem, color=method, fill=type_list)) + ggtitle("Test memoire (arrayList)") + geom_point() + geom_smooth()
dev.off()
png("mem_linkedList.png")
ggplot(data=perfLinkedList, aes(x=nb_fois,y=mem, color=method, fill=type_list)) + ggtitle("Test memoire (linkedList)") + geom_point() + geom_smooth()
dev.off()
R version 3.1.1 (2014-07-10) -- "Sock it to Me"
Copyright (C) 2014 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R est un logiciel libre livré sans AUCUNE GARANTIE.
Vous pouvez le redistribuer sous certaines conditions.
Tapez 'license()' ou 'licence()' pour plus de détails.
R est un projet collaboratif avec de nombreux contributeurs.
Tapez 'contributors()' pour plus d'information et
'citation()' pour la façon de le citer dans les publications.
Tapez 'demo()' pour des démonstrations, 'help()' pour l'aide
en ligne ou 'help.start()' pour obtenir l'aide au format HTML.
Tapez 'q()' pour quitter R.
[Sauvegarde de la session précédente restaurée]
> library(ggplot2)
>
> perf <- read.table("perf.dat", header = TRUE)
>
> perfArrayList <- perf[perf$type_list=="arrayList", ]
> perfLinkedList <- perf[perf$type_list=="linkedList", ]
>
>
>
> png("exectime_arrayList.png")
> ggplot(data=perfArrayList, aes(x=nb_fois,y=exectime, color=method, fill=type_list)) + ggtitle("Test temps d'execution (arrayList)") + geom_point() + geom_smooth()
geom_smooth: method="auto" and size of largest group is <1000, so using loess. Use 'method = x' to change the smoothing method.
> dev.off()
null device
1
>
> png("exectime_linkedList.png")
> ggplot(data=perfLinkedList, aes(x=nb_fois,y=exectime, color=method, fill=type_list)) + ggtitle("Test temps d'execution (linkedList)") + geom_point() + geom_smooth()
geom_smooth: method="auto" and size of largest group is <1000, so using loess. Use 'method = x' to change the smoothing method.
> dev.off()
null device
1
>
>
>
>
>
> png("mem_arrayList.png")
> ggplot(data=perfArrayList, aes(x=nb_fois,y=mem, color=method, fill=type_list)) + ggtitle("Test memoire (arrayList)") + geom_point() + geom_smooth()
geom_smooth: method="auto" and size of largest group is <1000, so using loess. Use 'method = x' to change the smoothing method.
> dev.off()
null device
1
>
> png("mem_linkedList.png")
> ggplot(data=perfLinkedList, aes(x=nb_fois,y=mem, color=method, fill=type_list)) + ggtitle("Test memoire (linkedList)") + geom_point() + geom_smooth()
geom_smooth: method="auto" and size of largest group is <1000, so using loess. Use 'method = x' to change the smoothing method.
> dev.off()
null device
1
>
> proc.time()
utilisateur système écoulé
5.260 0.076 5.367
Markdown is supported
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