[chronojump] Fixed abline with few R, L, RL data since last commits

[Xavier de Blas <xaviblas src gnome org>]

commit 1d71f6f3929d4884fdb1c74ba3ea427ed5356924
Author: Xavier de Blas <xaviblas gmail com>
Date:   Fri Feb 26 15:01:39 2016 +0100

    Fixed abline with few R, L, RL data since last commits

 encoder/graph.R |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index aea8339..af1c948 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1747,11 +1747,11 @@ paintCrossVariables <- function (paf, varX, varY, option, isAlone, title, single
                                        
                                        if(length(unique(laterality)) > 1) 
                                        {
-                                               if(length(laterality[laterality == "R"]) > 0)
+                                               if(length(laterality[laterality == "R"]) >= 3)
                                                        fitLine("CURVE", 
x[laterality=="R"],y[laterality=="R"], "black", 1, 2)
-                                               if(length(laterality[laterality == "L"]) > 0)
+                                               if(length(laterality[laterality == "L"]) >= 3)
                                                        fitLine("CURVE", 
x[laterality=="L"],y[laterality=="L"], "black", 1, 3)
-                                               if(length(laterality[laterality == "RL"]) > 0)
+                                               if(length(laterality[laterality == "RL"]) >= 3)
                                                        fitLine("CURVE", 
x[laterality=="RL"],y[laterality=="RL"], "black", 1, 4)
                                        }
                                }
@@ -1760,11 +1760,11 @@ paintCrossVariables <- function (paf, varX, varY, option, isAlone, title, single
                                        
                                        if(length(unique(laterality)) > 1) 
                                        {
-                                               if(length(laterality[laterality == "R"]) > 0)
+                                               if(length(laterality[laterality == "R"]) >= 3)
                                                        fitLine("LINE", 
x[laterality=="R"],y[laterality=="R"], "black", 1, 2)
-                                               if(length(laterality[laterality == "L"]) > 0)
+                                               if(length(laterality[laterality == "L"]) >= 3)
                                                        fitLine("LINE", 
x[laterality=="L"],y[laterality=="L"], "black", 1, 3)
-                                               if(length(laterality[laterality == "RL"]) > 0)
+                                               if(length(laterality[laterality == "RL"]) >= 3)
                                                        fitLine("LINE", 
x[laterality=="RL"],y[laterality=="RL"], "black", 1, 4)
                                        }
                                }