results <- read.table('results.tsv') results.normalized <- results[,-1]-results[,1] print(round(100*apply(results.normalized,2,mean),2))