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()

	}

}