X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=pkg%2FR%2Fplot.R;h=614f5c5e81cad4b4e78303edca90158d7713b6e3;hp=0097607bf99d2449239e70fec13164fb9201714c;hb=8a0bb7168beebda1bc168373abeb00614619ed08;hpb=5fc1b9d9bbb20ebf5228792f5885b77991c0cec9

diff --git a/pkg/R/plot.R b/pkg/R/plot.R
index 0097607..614f5c5 100644
--- 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:)
@@ -115,6 +115,9 @@ plotCoefs <- function(mr, params)
 #' Draw 3D map of objective function values
 #'
 #' @param N Number of starting points
+#' @param n Number of points in sample
+#' @param p Vector of proportions
+#' @param b Vector of biases
 #' @param β Regression matrix (target)
 #' @param link Link function (logit or probit)
 #'