[chronojump] encoder barplot and cross variables in box()

[Xavier de Blas <xaviblas src gnome org>]

commit 5aa9b365bfd1fe9908f69889580c49dc9080bae0
Author: Xavier de Blas <xaviblas gmail com>
Date:   Fri May 16 18:18:24 2014 +0200

    encoder barplot and cross variables in box()

 encoder/graph.R |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 4f53110..5e9d1c3 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1316,6 +1316,7 @@ paintPowerPeakPowerBars <- function(singleFile, title, paf, Eccon, height, n, sh
                        xlab="",ylab=paste(translate("Power"),"(W)"), 
                        ylim=c(lowerY,max(powerData)), xpd=FALSE) #ylim, xpd = F,  makes barplot starts high 
(compare between them)
        title(main=title,line=-2,outer=T)
+       box()
        mtext(paste(translate("Curve")," \n",translate("Load")," ",sep=""),side=1,at=1,adj=1,line=1,cex=.9)
 
        axisLineRight=0
@@ -1612,6 +1613,7 @@ paintCrossVariables <- function (paf, varX, varY, option, isAlone, title, single
                axis(4,col=colBalls)
                mtext(varY, side=4, line=3, col=colBalls)
        }
+       box()
 
 }