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

musoSensi, musoMonte works

Browse Source
This commit is contained in:
Roland Hollós 2020-05-24 18:21:53 +02:00
parent 75b4c8baa7
commit cded54273d
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/musoMonte.R
View File

@ -33,6 +33,7 @@ musoMonte <- function(settings=NULL,
constrains = NULL, constrains = NULL,
skipZero = TRUE, skipZero = TRUE,
postProcString=NULL, postProcString=NULL,
modifyOut=TRUE,
...){ ...){
@ -149,6 +150,7 @@ musoMonte <- function(settings=NULL,
skipSpinup = skipSpinup, skipSpinup = skipSpinup,
keepEpc = keepEpc, keepEpc = keepEpc,
debugging = debugging, debugging = debugging,
modifyOriginal = modifyOut,
outVars = outVars,postProcString=postProcString), error = function (e) NA) outVars = outVars,postProcString=postProcString), error = function (e) NA)
if(length(dim(tmp))>=1){ if(length(dim(tmp))>=1){

4
RBBGCMuso/R/musoSensi.R
View File

@ -32,6 +32,7 @@ musoSensi <- function(monteCarloFile = NULL,
skipSpinup = TRUE, skipSpinup = TRUE,
skipZero = TRUE, skipZero = TRUE,
postProcString=NULL, postProcString=NULL,
modifyOut=TRUE,
dpi=300){ dpi=300){
if(is.null(parameters)){ if(is.null(parameters)){
@ -96,7 +97,8 @@ musoSensi <- function(monteCarloFile = NULL,
varIndex = varIndex, varIndex = varIndex,
skipSpinup = skipSpinup, skipSpinup = skipSpinup,
skipZero=skipZero, skipZero=skipZero,
postProcString=postProcString postProcString=postProcString,
modifyOut=modifyOut
) )
M <- cbind(seq_along(M[,1]),M) M <- cbind(seq_along(M[,1]),M)
yInd <- grep("mod.", colnames(M))[varIndex] yInd <- grep("mod.", colnames(M))[varIndex]