From 081aede26ae141ba67ba9eec39c9ceea95500560 Mon Sep 17 00:00:00 2001
From: Hollos Roland <hollorol@gmail.com>
Date: Fri, 14 May 2021 16:36:28 +0200
Subject: [PATCH] iteration number bug

---
 RBBGCMuso/R/musoRand.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RBBGCMuso/R/musoRand.R b/RBBGCMuso/R/musoRand.R
index f234006..1ed8c3a 100644
--- a/RBBGCMuso/R/musoRand.R
+++ b/RBBGCMuso/R/musoRand.R
@@ -8,7 +8,7 @@
 #' @importFrom limSolve xsample
 #' @export
 
-musoRand <- function(parameters, iterations=3000, fileType="epc", constrains = NULL, burnin = ifelse(iterations < 3000, 3000, NULL)){
+musoRand <- function(parameters, iterations=3000, fileType="epc", constrains = NULL, burnin = NULL){
     if(is.null(constrains)){
         constMatrix <- constrains
         constMatrix <- getOption("RMuso_constMatrix")[[fileType]][[as.character(getOption("RMuso_version"))]]