[chronojump] Shown R^2 and R^2 adjusted on encoder cross variables
- From: Xavier de Blas <xaviblas src gnome org>
- To: commits-list gnome org
- Cc:
- Subject: [chronojump] Shown R^2 and R^2 adjusted on encoder cross variables
- Date: Tue, 3 Jun 2014 09:08:19 +0000 (UTC)
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) {
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]