ogl <- read.csv("painter.csv")
ogl
ogl2 <- read.csv("painter-ogl2.csv")
ogl <- subset(ogl, ogl == "opengl")
ogl
ogl2 <- subset(ogl2, ogl == "opengl")
ogl$diff <- (ogl2$time - ogl$time) / (ogl2$time + ogl$time)
ogl$time
ogl2
oglm <- merge(ogl, ogl2, by = c("op", "ogl", "aa", "filled"))
oglm
ogl$diff <- (ogl$time.y - ogl$time.x) / (ogl$time.y + ogl$time.x)
oglm$diff <- (oglm$time.y - oglm$time.x) / (oglm$time.y + oglm$time.x)
oglm
oglm[order(oglm$diff, decreasing=TRUE),]
oglm[order(abs(oglm$diff), decreasing=TRUE),]
options(max.print=99999)
head(oglm[order(abs(oglm$diff), decreasing=TRUE),], 100)
writeLines("op,ogl,aa,filled,time", "painter.csv")
for (i in seq(nrow(params))) do.call(test, params[i,])
