Closed zhenglei-gao closed 10 years ago
HStestcases09050119 <- mkinmod.full(
conc = list(
sink = TRUE,
type = "HS",
k1 = list(ini = 0.6000,
fixed = 0,
lower = 0.0,
upper = Inf),
k2 = list(ini = 0.15000,
fixed = 0,
lower = 0.0,
upper = Inf),
tb = list(ini = 0.10000,
fixed = 0,
lower = 0.0,
upper = Inf),
M0 = list(ini = 100,
fixed = 0,
lower = 0.0,
upper = Inf)),data=HStestcases2.txt)
Fit <- KinEval(
HStestcases09050119,
evalMethod = 'IRLS',
optimMethod = 'LM',
plotfit = TRUE,
quiet = TRUE,
ctr = kingui.control(
maxIter = 100,
tolerance = 1E-06,
odesolver = 'lsoda'),
irls.control = list(
maxIter = 10,
tolerance = 0.001))
list2ascii(summary(Fit, cov = TRUE,version = versioninfo[1,1]),"out.kgo")
I should have a function to generate .kgo and .kgg from just the mkinmod.full
object
fiterr <- function(obj){}
Need to identify which parameters are 0 and could be the reason that the statistics are not calculated.
Add emptyreport
, emptygraph
, print.emptyReport
to generate complete empty report file and graph data file for the GUI.
KinReport
addedlogging
package