[mc] Move page store test from the integration test into the unit test infrastructure

[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 884d3aecee28bbe940f35a51a3417485ae22b8bc..991060e2d2b063ad9d07e02d32dfa48f72d397e3 100644 (file)
--- a/contrib/benchmarking_code_block/Rhist.R
+++ b/contrib/benchmarking_code_block/Rhist.R
@@ -65,15 +65,19 @@ for(i in unique(NAME))
   if (length(vector1)==1)
     {
       #If there is only one element
+      h<-hist(vector1) # Just for R compatibility reasons
       h$breaks<-c(vector1,vector1)
       h$counts<-1
     }
   else
     {
       if (type=="mean")
-        #Mean value only
-        h$breaks<-c(mean(vector1),mean(vector1))
-        h$counts<-length(vector1)
+        {
+          #Mean value only
+          h<-hist(vector1) # Just for R compatibility reasons
+          h$breaks<-c(mean(vector1),mean(vector1))
+          h$counts<-length(vector1)
+        }
       else
         if (type=="default")
           #Standard HISTOGRAM: