## finally, set title
t <- paste0(dset$Mode[1], dset$Distrib[1], " / ",
dset$Ratio[1], " / ",
- dset$Platform[1], " / ", dset$Topo[1])
+ dset$Platform[1], " / ",
+ dset$Topo[1])
title(main=t)
## restore the graphical parameters
## rename rows
names <- dset.wide$Algo
- names <- sub("makhoul_plain", "a: makhoul,plain", names)
- names <- sub("besteffort_plain", "b: best effort,plain", names)
- names <- sub("besteffort-k2_plain", "c: best effort,k=2,plain", names)
- names <- sub("besteffort-k4_plain", "d: best effort,k=4,plain", names)
- names <- sub("makhoul_bookkeeping", "e: makhoul,virtual", names)
- names <- sub("besteffort_bookkeeping", "f: best effort,virtual", names)
- names <- sub("besteffort-k2_bookkeeping", "g: best effort,k=2,virtual", names)
- names <- sub("besteffort-k4_bookkeeping", "h: best effort,k=4,virtual", names)
+ names <- sub("makhoul_plain", "a: Bertsekas and Tsitsiklis, plain", names)
+ names <- sub("besteffort_plain", "b: best effort, plain", names)
+ names <- sub("besteffort-k2_plain", "c: best effort, k=2, plain", names)
+ names <- sub("besteffort-k4_plain", "d: best effort, k=4, plain", names)
+ names <- sub("makhoul_bookkeeping", "e: Bertsekas and Tsitsiklis, virtual", names)
+ names <- sub("besteffort_bookkeeping", "f: best effort, virtual", names)
+ names <- sub("besteffort-k2_bookkeeping", "g: best effort, k=2, virtual", names)
+ names <- sub("besteffort-k4_bookkeeping", "h: best effort, k=4, virtual", names)
rownames(dset.wide) <- names
#colnames(dset.wide) <- sub("^[^.]*\\.", "", colnames(dset.wide))
mtext(s, side=1, line=1.5, at=a)
a <- a + 9
}
- t <- paste0(dset$Mode[1], dset$Distrib[1], " / ",
+ t <- paste0(
+#HIDE# dset$Mode[1],
+#HIDE# dset$Distrib[1], " / ",
dset$Ratio[1], " / ",
- dset$Platform[1], " / ", dset$Topo[1])
+#HIDE# dset$Platform[1], " / ",
+ dset$Topo[1])
t <- sub("hcube", "hypercube", t)
title(xlab="Platform size",
ylab="Simulated time (s)",