X-Git-Url: https://bilbo.iut-bm.univ-fcomte.fr/and/gitweb/loba-papers.git/blobdiff_plain/489cb553d50ebc655d7bb377a73ec6799b4353e3..9b96bd5692f7c547db8325e06f805e8a2a680f14:/loba-besteffort/data/script.r?ds=inline

diff --git a/loba-besteffort/data/script.r b/loba-besteffort/data/script.r
index 236cfd0..68d78a9 100644
--- a/loba-besteffort/data/script.r
+++ b/loba-besteffort/data/script.r
@@ -131,23 +131,30 @@ draw2 <- function(dset = ds,
 
   ## remove first column (aka "Algo")
   dset.mat <- as.matrix(dset.wide[-1])
+  nc <- nrow(dset.mat)
 
   dset.plot <- dset.mat[, c(FALSE,FALSE,TRUE)]
   barplot(dset.plot, beside=TRUE,
           names.arg=sub("^[^.]*\\.", "", colnames(dset.plot)),
-          col=rainbow(nrow(dset.mat), s=.5))
+          col=gray.colors(nc)
+#          col=rainbow(nc, s=.5)
+          )
 
   dset.plot <- dset.mat[, c(FALSE,TRUE,FALSE)]
   barplot(dset.plot, beside=TRUE,
           axes=FALSE, axisnames=FALSE, add=TRUE,
           legend.text=TRUE,
           args.legend=list(x="topleft", inset=c(.02,0), title="Algorithms"),
-          col=rainbow(nrow(dset.mat)))
+          col=gray.colors(nc)
+#          col=rainbow(nc)
+          )
 
   dset.plot <- dset.mat[, c(TRUE,FALSE,FALSE)]
   barplot(dset.plot, beside=TRUE,
           axes=FALSE, axisnames=FALSE, add=TRUE,
-          col=rainbow(nrow(dset.mat), v=.5))
+          col="white"
+#          col=rainbow(nc, v=.5)
+          )
 
   ## finally, set titles
   t <- paste0(dset$Mode[1], dset$Distrib[1], " / ",
@@ -186,6 +193,7 @@ msg("... with draw2()...")
 draw2(draw_distrib="N")
 }
 
+pdf.options(colormodel="grey")
 system("mkdir -pv graphs")
 for (m in c("R", "I")) {
   for (d in c("1", "N")) {