[chronojump] Fixed stars when p.value is nan

[Xavier de Blas <xaviblas src gnome org>]

commit 756e11238c732d4cb1877ce2f3f4c72ca834766f
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Jun 9 02:33:09 2014 +0800

    Fixed stars when p.value is nan

 encoder/graph.R |    5 +++++
 1 files changed, 5 insertions(+), 0 deletions(-)
---
diff --git a/encoder/graph.R b/encoder/graph.R
index 8c03e26..2c226ec 100644
--- a/encoder/graph.R
+++ b/encoder/graph.R
@@ -1464,6 +1464,11 @@ plotSign <- function (num) {
 
 getModelPValueWithStars <- function(model) {
        p.value = round(getModelPValue(model),6)
+       
+       #don't plot stars if p.value is nan because there's too few data
+       if(is.nan(p.value))
+               return (p.value)
+
        stars = ""
        if(p.value <= 0.0001)
                stars = "***"