source("harness.R")

dd <- function() {as.integer(runif(10^s, 1, 100))}
s <- 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()
}