X-Git-Url: https://git.auder.net/?p=morpheus.git;a=blobdiff_plain;f=pkg%2FR%2Fplot.R;h=29a254efa7189248463f45926bef0f1ca5b05e4f;hp=35e89ff40d096a91f368ef1c3d7438fff94e0aaf;hb=d294ece1cf943b74d96b26cc28b08c00cb191264;hpb=5859426b074bdb7084627f8eeba806f479f04f05

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