MKL Performance Benchmark 2

urbanek-benchmark-25.R

# Run Simon Urbanek's benchmark v2.5

cat("R version\n")
cat("=========\n")
print(R.version)

if(exists("Revo.version")) {
  cat("Revo version")
  cat("============")
  print(Revo.version)
}

totalTestTime <- system.time({
  source(url("http://r.research.att.com/benchmarks/R-benchmark-25.R"))
})

cat("Total test time:", totalTestTime[[3]], "seconds")