[chronojump] Fixed bug in encoder/graph.R NA at end of file

[Xavier de Blas <xaviblas src gnome org>]

commit ca8aef123c7d6742da2169974ca6a90a5c56f2c6
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Oct 21 21:18:59 2013 +0200

    Fixed bug in encoder/graph.R NA at end of file

 encoder/graph.R |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 8605c19..1a9a0f1 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -319,7 +319,9 @@ findSmoothingsEC <- function(rawdata, curves, eccon, smoothingOneC) {
                        end = 0
                        if(eccon=="ec") {
                                start = mean(which(rawdata.c == min(rawdata.c)))
-                               end = length(rawdata.c)
+                               end = length(rawdata.c) -1
+                               #the -1 is because the line below: "concentric=" will fail in curves[i,1]+end
+                               #and will add an NA
                        } else { #(eccon=="ce")
                                start = 0
                                end = mean(which(rawdata.c == max(rawdata.c)))