From 3f53b2667949399ef9081b26893965a335f1e9b0 Mon Sep 17 00:00:00 2001
From: hollorol <hollorol@gmail.com>
Date: Fri, 4 May 2018 09:50:44 +0200
Subject: [PATCH] fix the errorsign bug, when there is no normal log

---
 RBBGCMuso/R/calibMuso.R | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/RBBGCMuso/R/calibMuso.R b/RBBGCMuso/R/calibMuso.R
index a0bccc2..c284ff9 100644
--- a/RBBGCMuso/R/calibMuso.R
+++ b/RBBGCMuso/R/calibMuso.R
@@ -182,11 +182,14 @@ calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logf
     if(length(perror)>sum(perror)){
         errorsign <- 1
     } else {
-        if(spincrash){
+        if(length(perror)==1){
             errorsign <- 1
         } else {
-            errorsign <- 0
-        } 
+            if(spincrash){
+                errorsign <- 1
+            } else {
+                errorsign <- 0
+            } }
     }