[chronojump] encoder: Improved smooth on crossVariables

[Xavier de Blas <xaviblas src gnome org>]

commit c0b7ac6f2f806e7afe3c79181f60fa807d889351
Author: Xavier de Blas <xaviblas gmail com>
Date:   Wed Jan 2 08:59:05 2013 +0100

    encoder: Improved smooth on crossVariables

 encoder/graph.R |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 98cd458..7be0f67 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -558,7 +558,8 @@ paintCrossVariables <- function (paf, varX, varY, option) {
 
 	plot(x,y, xlab=varX, ylab=varY, pch=21,col="blue",bg="lightblue",cex=cexBalls)
 	text(x,y,nums,adj=c(adjHor,.5),cex=cexNums)
-	lines(smooth.spline(x,y,spar=.5),col="darkblue")
+	#lines(smooth.spline(x,y,spar=.5),col="darkblue")
+	lines(smooth.spline(x,y,df=4),col="darkblue")
 }
 			
 find.mfrow <- function(n) {