X-Git-Url: https://git.auder.net/img/rock_paper_scissors_lizard_spock.gif?a=blobdiff_plain;f=pkg%2FR%2Fplot.R;h=29a254efa7189248463f45926bef0f1ca5b05e4f;hb=b357ac5457105ee87ad8650d61ad3c3845e0df95;hp=35e89ff40d096a91f368ef1c3d7438fff94e0aaf;hpb=476a79d4b332d378716e320fdfd95fa3e1d7be9f;p=morpheus.git

diff --git a/pkg/R/plot.R b/pkg/R/plot.R
index 35e89ff..29a254e 100644
--- a/pkg/R/plot.R
+++ b/pkg/R/plot.R
@@ -48,14 +48,14 @@ plotHist <- function(mr, x, y)
 #' @examples
 #' #See example in ?plotHist
 #' @export
-plotBox <- function(mr, x, y)
+plotBox <- function(mr, x, y, xtitle="")
 {
 	params <- extractParam(mr, x, y)
 	L = length(params)
 	# Plot boxplots side by side
 	par(mfrow=c(1,L), cex.axis=1.5, cex.lab=1.5, mar=c(4.7,5,1,1))
 	for (i in 1:L)
-		boxplot(params[[i]], ylab="Parameter value")
+		boxplot(params[[i]], xlab=xtitle, ylab="Parameter value")
 }
 
 #' plotCoefs