[chronojump] Fixed minimum values for fitted lines in laterallity

[Xavier Padullés <xpadulles src gnome org>]

commit c69bed5e9031318bca738aaa1a1e3cb90409cdc8
Author: Xavier Padullés <x padulles gmail com>
Date:   Wed Jun 8 16:10:53 2016 +0200

    Fixed minimum values for fitted lines in laterallity

 encoder/graph.R |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 5dabc19..3eec275 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1527,11 +1527,14 @@ paintCrossVariablesLaterality <- function(x, y, laterality, colBalls)
 
        if(length(unique(laterality)) > 1) 
        {
-               if(length(laterality[laterality == "R"]) >= 3 && length(unique(x[laterality == "R"])) > 1)
+               #if(length(laterality[laterality == "R"]) >= 3 && length(unique(x[laterality == "R"])) > 1)
+               if(length(unique(x[laterality == "R"])) > 1)
                        fitLine(x[laterality=="R"],y[laterality=="R"], "black", 1, 2)
-               if(length(laterality[laterality == "L"]) >= 3 && length(unique(x[laterality == "L"])) > 1)
+               #if(length(laterality[laterality == "L"]) >= 3 && length(unique(x[laterality == "L"])) > 1)
+               if(length(unique(x[laterality == "L"])) > 1)
                        fitLine(x[laterality=="L"],y[laterality=="L"], "black", 1, 3)
-               if(length(laterality[laterality == "RL"]) >= 3 && length(unique(x[laterality == "RL"])) > 1)
+               #if(length(laterality[laterality == "RL"]) >= 3 && length(unique(x[laterality == "RL"])) > 1)
+               if(length(unique(x[laterality == "RL"])) > 1)
                        fitLine(x[laterality=="RL"],y[laterality=="RL"], "black", 1, 4)
        }
 }