[chronojump] Shown R^2 and R^2 adjusted on encoder cross variables

[Xavier de Blas <xaviblas src gnome org>]

commit 5ee409a594ddfb4d75dd3d7243b518c1953af66a
Author: Xavier de Blas <xaviblas gmail com>
Date:   Tue Jun 3 09:45:39 2014 +0200

    Shown R^2 and R^2 adjusted on encoder cross variables

 encoder/graph.R |    9 +++++++--
 1 files changed, 7 insertions(+), 2 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index e63adbc..cdf580c 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1605,8 +1605,13 @@ paintCrossVariables <- function (paf, varX, varY, option, isAlone, title, single
                                            varYut, " = ", 
                                            round(coef.a,4), " * ", varXplot, "^2 ", plotSign(coef.b), " ",  
                                            round(coef.b,4), " * ", varXplot, " ", plotSign(coef.c), " ", 
-                                           round(coef.c,4), sep="")
-                                     , side=3, at=functionAt, adj=functionAdj, cex = .9)
+                                           round(coef.c,4), sep=""), side=3, line=1, at=functionAt, 
adj=functionAdj, cex = .9)
+                               mtext(paste(
+                                           "R² = ", round(summary(fit)$r.squared,4),
+                                           "; R² (adjusted) = ", round(summary(fit)$adj.r.squared,4)
+                                           #,
+                                           #"; p = ", round(summary(fit)$r.squared),4,
+                                           , sep=""), side =3, line=0, at=functionAt, adj=functionAdj, 
cex=.9)
                                #end of plot de function expression
        
                                if(isPowerLoad) {