R/combine_setup_parameters.R

In NUCOMBog: NUtrient Cycling and COMpetition Model Undisturbed Open Bog Ecosystems in a Temperate to Sub-Boreal Climate

combine_setup_parameters<-function(runParameters,parameters,parallel=T){

  if(parallel==F){
    runParameters[[1]]$parameters<-parameters
    runParameters[[1]]$parameters$names<-as.character(runParameters[[1]]$parameters$names)
  }
  if(parallel==T){
    if(runParameters[[1]]$separate==T){
      runParameters<-rep(runParameters,nrow(parameters)/length(runParameters))
      for(i in 1:length(runParameters)){
        runParameters[[i]]$parameters<-data.frame(parameters[i,])
      }
    }

    if (runParameters[[1]]$separate==F){
      for(i in 1:(ncol(parameters)-1)){
        j=i+1
        runParameters[[i]]$parameters<-data.frame(parameters$names,parameters[,j])
        names(runParameters[[i]]$parameters)<-c("names","values")
      }
    }
  }
  return(runParameters)
}