From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Sun, 3 Mar 2013 16:19:16 +0000 (+0100)
Subject: Data in R format, and sample R script.
X-Git-Url: https://bilbo.iut-bm.univ-fcomte.fr/and/gitweb/loba-papers.git/commitdiff_plain/4b0c0716f84d562ede752dde852a825a2c3aa46c?ds=sidebyside

Data in R format, and sample R script.
---

diff --git a/supercomp11/data/data.rda b/supercomp11/data/data.rda
new file mode 100644
index 0000000..64915a4
Binary files /dev/null and b/supercomp11/data/data.rda differ
diff --git a/supercomp11/data/script.r b/supercomp11/data/script.r
new file mode 100644
index 0000000..ffac783
--- /dev/null
+++ b/supercomp11/data/script.r
@@ -0,0 +1,13 @@
+# load dataset (variable is "ds")
+load("data.rda")
+
+# extract data for plain algorithms, in real mode
+ds.base <- subset(ds, Mode=="R" & grepl("[lt]_plain", Algo))
+
+xx <- subset(ds.base, Ratio == "1:1" & Topo == "line" & Distrib == 1)
+plot(xx$Size, xx$Conv_max, xlab="Size", ylab="Time")
+
+for(pl in c("cluster", "grid")) {
+   yy <- subset(xx, Platform == pl)
+   points(yy$Size, yy$Conv_max, xlab="Size", ylab="Time")
+}