source("harness.R")
s <- 7

dd <- function() {as.integer(runif(10^s, 1, 100))}
for (s in 6:sm) {
	a <- list(dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd(), dd())
	attr(a, "row.names") <- 1:length(a[[1]])
  	class(a) <- "data.frame"
  
	for (r in 1:5) {
		timing <- system.time({
			m <- matrix(data=as.numeric(NA), ncol=1, nrow=ncol(a))
			for (i in 1:ncol(a)) {
				m[i,] <- mean(a[,i])
			}
			print(m)
		})[[3]]
	log.result("parallel", sys, conf, s, r, timing)
	clearResultRecycler()
	}
}