Small plotting change for black and white printing

[morpheus.git] / pkg / R / plot.R

diff --git a/pkg/R/plot.R b/pkg/R/plot.R
index 265f1cd..614f5c5 100644 (file)
--- a/pkg/R/plot.R
+++ b/pkg/R/plot.R
@@ -21,7 +21,7 @@ extractParam <- function(mr, x=1, y=1)
 #' @param y Column index of the element inside the aggregated parameter
 #'
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' β <- matrix(c(1,-2,3,1),ncol=2)
 #' mr <- multiRun(...) #see bootstrap example in ?multiRun : return lists of mu_hat
 #' μ <- normalize(β)
@@ -104,7 +104,7 @@ plotCoefs <- function(mr, params)
                avg_param <- as.double(params_hat[[i]])
                std_param <- as.double(stdev[[i]])
                matplot(cbind(params[o],avg_param[o],avg_param[o]+std_param[o],avg_param[o]-std_param[o]),
-                       col=c(2,1,1,1), lty=c(1,1,2,2), type="l", lwd=2, xlab="param", ylab="value")
+                       col=1, lty=c(1,5,2,2), type="l", lwd=2, xlab="param", ylab="value")
        }
 
        #print(o) #not returning o to avoid weird Jupyter issue... (TODO:)