supercomp11/data/script.r

   1 # load dataset (variable is "ds")
   2 load("data.rda")
   3
   4 # extract data for plain algorithms, in real mode
   5 ds.base <- subset(ds, Mode=="R" & grepl("[lt]_plain", Algo))
   6
   7 xx <- subset(ds.base, Ratio == "1:1" & Topo == "line" & Distrib == 1)
   8 plot(xx$Size, xx$Conv_max, xlab="Size", ylab="Time")
   9
  10 for(pl in c("cluster", "grid")) {
  11    yy <- subset(xx, Platform == pl)
  12    points(yy$Size, yy$Conv_max, xlab="Size", ylab="Time")
  13 }