X-Git-Url: http://bilbo.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/dccf1b41e9c7b5a696f01abceaa2779fe65f154f..883b4c1070099436bef001f6602492849f4db582:/contrib/benchmarking_code_block/Rhist.R 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)