diff --git a/RBBGCMuso/R/calibMuso.R b/RBBGCMuso/R/calibMuso.R
index 7a86de0..48b5f20 100644
--- a/RBBGCMuso/R/calibMuso.R
+++ b/RBBGCMuso/R/calibMuso.R
@@ -74,7 +74,7 @@ calibMuso <- function(settings,parameters=NULL, timee="d", debugging=FALSE, logf
         switch(fileToChange,
                "epc"=(changemulline(filename=epc[2],calibrationPar,parameters)),
                "ini"=(changemulline(filename=iniInput[2],calibrationPar,parameters)),
-               "both"=(stop(This option is not implemented yet, please choose epc or ini))
+               "both"=(stop("This option is not implemented yet, please choose epc or ini"))
                )
     }