hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

iteration number bug

Browse Source
This commit is contained in:
Hollos Roland 2021-05-14 16:36:28 +02:00
parent 64355412ad
commit 081aede26a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/musoRand.R
View File

@ -8,7 +8,7 @@
#' @importFrom limSolve xsample #' @importFrom limSolve xsample
#' @export #' @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)){ if(is.null(constrains)){
constMatrix <- constrains constMatrix <- constrains
constMatrix <- getOption("RMuso_constMatrix")[[fileType]][[as.character(getOption("RMuso_version"))]] constMatrix <- getOption("RMuso_constMatrix")[[fileType]][[as.character(getOption("RMuso_version"))]]