X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/6985332fa071ba58d2ffac35138d80b821d725fb..d4854883e75206804034547ff47080ec1a751e35:/contrib/benchmarking_code_block/Rhist.R?ds=sidebyside diff --git a/contrib/benchmarking_code_block/Rhist.R b/contrib/benchmarking_code_block/Rhist.R index 917be301a8..4eb5b2e966 100644 --- 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)