Another easy test from McMini

[simgrid.git] / contrib / benchmarking_code_block / Rhist.R

diff --git a/contrib/benchmarking_code_block/Rhist.R b/contrib/benchmarking_code_block/Rhist.R
index 917be30..4eb5b2e 100644 (file)
--- a/contrib/benchmarking_code_block/Rhist.R
+++ b/contrib/benchmarking_code_block/Rhist.R
@@ -20,11 +20,11 @@ merge_empty_bins <- function (h){
     for(i in 1:(length(h$counts)-1)){
       if(h$counts[i]!=0 || h$counts[i+1]!=0){
         counts2[j]<-h$counts[i]
-        breaks2[j+1]<-h$breaks[i+1];
+        breaks2[j+1]<-h$breaks[i+1]
         j<-j+1
       }
     }
-  
+
   counts2[j]<-h$counts[length(h$counts)]
   breaks2[j+1]<-h$breaks[length(h$breaks)]
 
@@ -74,7 +74,7 @@ for(i in unique(NAME)){
          h<-merge_empty_bins(h)
        }
   }
-    
+
   cat(i, file = outputfile, sep = "\t", append = TRUE)
   cat("\t", file = outputfile,  append = TRUE)
   cat(sum(h$counts), file =outputfile, sep = "\t", append = TRUE)