diff options
Diffstat (limited to 'man/nlme.mmkin.Rd')
| -rw-r--r-- | man/nlme.mmkin.Rd | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/man/nlme.mmkin.Rd b/man/nlme.mmkin.Rd index 0af670a0..08ce1ad8 100644 --- a/man/nlme.mmkin.Rd +++ b/man/nlme.mmkin.Rd @@ -131,7 +131,7 @@ endpoints(f_nlme_dfop) endpoints(f_nlme_sfo_sfo) endpoints(f_nlme_dfop_sfo) - if (findFunction("varConstProp")) { # tc error model for nlme available + if (length(findFunction("varConstProp")) > 0) { # tc error model for nlme available # Attempts to fit metabolite kinetics with the tc error model #f_2_tc <- mmkin(list("SFO-SFO" = m_sfo_sfo, # "SFO-SFO-ff" = m_sfo_sfo_ff, @@ -156,6 +156,7 @@ endpoints(f_nlme_dfop) "DFOP-SFO" = m_dfop_sfo), ds_2, quiet = TRUE, error_model = "obs") f_nlme_sfo_sfo_obs <- nlme(f_2_obs["SFO-SFO", ]) + print(f_nlme_sfo_sfo_obs) # The same with DFOP-SFO does not converge, apparently the variances of # parent and A1 are too similar in this case, so that the model is # overparameterised |