A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'coverity_scan' of github.com:mquinson/simgrid
[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
884d3ae
..
991060e
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
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")
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:
else
if (type=="default")
#Standard HISTOGRAM: