# 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")
}