[chronojump] Fixed minimum unique(x) repetitions in fitted lines



commit 465e3376b1fece3fc402a422f38228c54bce9d02
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Jun 8 16:21:16 2016 +0200

    Fixed minimum unique(x) repetitions in fitted lines

 encoder/graph.R |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 3eec275..6086d83 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1665,7 +1665,7 @@ paintCrossVariables <- function (paf, varX, varY, option, dateAsX,
                }
                else {
                        #if less than 3 different X then cannot calculate fittings. Just plot here to not 
crash on stroverlap (after)
-                       if(length(unique(x)) < 3) {
+                       if(length(unique(x)) < 2) {
                                plot(x,y, xlab=varXut, ylab="", pch=pchVector, 
col=colBalls,bg=bgBalls,cex=cexBalls,axes=F)
 
                                paintCrossVariablesLaterality(x, y, laterality, colBalls)


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]