Commit aec2b4e3 authored by Marco De Lucia's avatar Marco De Lucia
Browse files

Fixed colnames(state_C) <- colnames(tmpfirstrun) in ReactTrans

parent fe1c3ad8
## Functions for dealing with surrogate simulations ## Functions for dealing with surrogate simulations
### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018 ### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018
### Time-stamp: "Last modified 2019-05-08 17:18:23 delucia" ### Time-stamp: "Last modified 2019-05-08 17:19:57 delucia"
##' Todo ##' Todo
...@@ -624,12 +624,12 @@ ReactTranspBalanceKin <- function(setup, init, maxtime, step=c("time","iter","fi ...@@ -624,12 +624,12 @@ ReactTranspBalanceKin <- function(setup, init, maxtime, step=c("time","iter","fi
tmpfirstrun <- RunPQC(initsim) tmpfirstrun <- RunPQC(initsim)
msg("assuming homogeneous medium") msg("assuming homogeneous medium")
state_C <- matrix(rep(tmpfirstrun,n), byrow=TRUE, ncol=length(prop)) state_C <- matrix(rep(tmpfirstrun,n), byrow=TRUE, ncol=length(prop))
colnames(state_C) <- colnames(tmpfirstrun)
} else { } else {
msg("given initial state") msg("given initial state; assuming correct colnames")
state_C <- init state_C <- init
} }
colnames(state_C) <- colnames(tmpfirstrun)
attr(state_C,"immobile") <- immobile attr(state_C,"immobile") <- immobile
## we save with pe/pH ## we save with pe/pH
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment