From a9427a09abdf7ce9aaeae7c7190f90c8f2e5ef52 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 15 Feb 2021 14:08:13 +0100 Subject: Improve README, introductory vignette and some other docs Also bump version to 1.0.3. --- docs/reference/mkinfit.html | 128 +++++++++++++++++++++----------------------- 1 file changed, 61 insertions(+), 67 deletions(-) (limited to 'docs/reference/mkinfit.html') diff --git a/docs/reference/mkinfit.html b/docs/reference/mkinfit.html index 4d8aeb40..180f2ee7 100644 --- a/docs/reference/mkinfit.html +++ b/docs/reference/mkinfit.html @@ -80,7 +80,7 @@ likelihood function." /> mkin - 1.0.0 + 1.0.3 @@ -431,10 +431,10 @@ doi: 10.3390/environments6 # Use shorthand notation for parent only degradation fit <- mkinfit("FOMC", FOCUS_2006_C, quiet = TRUE) summary(fit) -
#> mkin version used for fitting: 1.0.0 +
#> mkin version used for fitting: 1.0.3 #> R version used for fitting: 4.0.3 -#> Date of fit: Wed Feb 3 17:28:58 2021 -#> Date of summary: Wed Feb 3 17:28:58 2021 +#> Date of fit: Mon Feb 15 13:43:26 2021 +#> Date of summary: Mon Feb 15 13:43:26 2021 #> #> Equations: #> d_parent/dt = - (alpha/beta) * 1/((time/beta) + 1) * parent @@ -476,10 +476,10 @@ doi: 10.3390/environments6 #> #> Parameter correlation: #> parent_0 log_alpha log_beta sigma -#> parent_0 1.000e+00 -1.565e-01 -3.142e-01 4.758e-08 -#> log_alpha -1.565e-01 1.000e+00 9.564e-01 1.007e-07 -#> log_beta -3.142e-01 9.564e-01 1.000e+00 8.568e-08 -#> sigma 4.758e-08 1.007e-07 8.568e-08 1.000e+00 +#> parent_0 1.000e+00 -1.565e-01 -3.142e-01 4.772e-08 +#> log_alpha -1.565e-01 1.000e+00 9.564e-01 1.005e-07 +#> log_beta -3.142e-01 9.564e-01 1.000e+00 8.541e-08 +#> sigma 4.772e-08 1.005e-07 8.541e-08 1.000e+00 #> #> Backtransformed parameters: #> Confidence intervals for internally transformed parameters are asymmetric. @@ -548,7 +548,7 @@ doi: 10.3390/environments6 #> --- #> Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
parms(fit.tc)
#> parent_0 k_parent k_m1 f_parent_to_m1 sigma_low -#> 1.007343e+02 1.005562e-01 5.166712e-03 5.083933e-01 3.049884e-03 +#> 1.007343e+02 1.005562e-01 5.166712e-03 5.083933e-01 3.049883e-03 #> rsd_high #> 7.928118e-02
endpoints(fit.tc)
#> $ff @@ -575,9 +575,9 @@ doi: 10.3390/environments6 solution_type = "analytical")) }
#> test relative elapsed -#> 3 analytical 1.000 0.542 -#> 1 deSolve_compiled 1.812 0.982 -#> 2 eigen 2.234 1.211
# } +#> 3 analytical 1.000 0.550 +#> 1 deSolve_compiled 1.731 0.952 +#> 2 eigen 2.662 1.464
# } # Use stepwise fitting, using optimised parameters from parent only fit, FOMC-SFO # \dontrun{ @@ -587,22 +587,21 @@ doi: 10.3390/environments6
#> Temporary DLL for differentials generated and loaded
fit.FOMC_SFO <- mkinfit(FOMC_SFO, FOCUS_D, quiet = TRUE) # Again, we get a warning and try a more sophisticated error model fit.FOMC_SFO.tc <- mkinfit(FOMC_SFO, FOCUS_D, quiet = TRUE, error_model = "tc") -
#> Warning: Optimisation did not converge: -#> iteration limit reached without convergence (10)
# This model has a higher likelihood, but not significantly so +# This model has a higher likelihood, but not significantly so lrtest(fit.tc, fit.FOMC_SFO.tc)
#> Likelihood ratio test #> #> Model 1: FOMC_SFO with error model tc and fixed parameter(s) m1_0 #> Model 2: SFO_SFO with error model tc and fixed parameter(s) m1_0 #> #Df LogLik Df Chisq Pr(>Chisq) -#> 1 7 -64.870 -#> 2 6 -64.983 -1 0.2259 0.6346
# Also, the missing standard error for log_beta and the t-tests for alpha +#> 1 7 -64.829 +#> 2 6 -64.983 -1 0.3075 0.5792
# Also, the missing standard error for log_beta and the t-tests for alpha # and beta indicate overparameterisation summary(fit.FOMC_SFO.tc, data = FALSE) -
#> Warning: NaNs produced
#> Warning: NaNs produced
#> Warning: NaNs produced
#> Warning: diag(.) had 0 or NA entries; non-finite result is doubtful
#> mkin version used for fitting: 1.0.0 +
#> Warning: NaNs produced
#> Warning: NaNs produced
#> Warning: diag(.) had 0 or NA entries; non-finite result is doubtful
#> mkin version used for fitting: 1.0.3 #> R version used for fitting: 4.0.3 -#> Date of fit: Wed Feb 3 17:29:09 2021 -#> Date of summary: Wed Feb 3 17:29:09 2021 +#> Date of fit: Mon Feb 15 13:43:38 2021 +#> Date of summary: Mon Feb 15 13:43:38 2021 #> #> Equations: #> d_parent/dt = - (alpha/beta) * 1/((time/beta) + 1) * parent @@ -611,12 +610,12 @@ doi: 10.3390/environments6 #> #> Model predictions using solution type deSolve #> -#> Fitted using 4273 model solutions performed in 3.195 s +#> Fitted using 3729 model solutions performed in 2.802 s #> #> Error model: Two-component variance function #> #> Error model algorithm: d_3 -#> Three-step fitting yielded a higher likelihood than direct fitting +#> Direct fitting and three-step fitting yield approximately the same likelihood #> #> Starting values for parameters to be optimised: #> value type @@ -642,72 +641,67 @@ doi: 10.3390/environments6 #> value type #> m1_0 0 state #> -#> -#> Warning(s): -#> Optimisation did not converge: -#> iteration limit reached without convergence (10) -#> #> Results: #> -#> AIC BIC logLik -#> 143.7396 155.2027 -64.86982 +#> AIC BIC logLik +#> 143.658 155.1211 -64.82902 #> #> Optimised, transformed parameters with symmetric confidence intervals: -#> Estimate Std. Error Lower Upper -#> parent_0 1.016e+02 1.90600 97.7400 105.5000 -#> log_k_m1 -5.285e+00 0.09286 -5.4740 -5.0950 -#> f_parent_qlogis 6.482e-04 0.06164 -0.1251 0.1264 -#> log_alpha 5.467e+00 NaN NaN NaN -#> log_beta 7.750e+00 NaN NaN NaN -#> sigma_low 0.000e+00 NaN NaN NaN -#> rsd_high 7.989e-02 NaN NaN NaN +#> Estimate Std. Error Lower Upper +#> parent_0 101.600000 2.6400000 96.240000 107.000000 +#> log_k_m1 -5.284000 0.0929100 -5.474000 -5.095000 +#> f_parent_qlogis 0.001426 0.0767000 -0.155000 0.157800 +#> log_alpha 5.522000 0.0077320 5.506000 5.538000 +#> log_beta 7.806000 NaN NaN NaN +#> sigma_low 0.002488 0.0002431 0.001992 0.002984 +#> rsd_high 0.079210 0.0093280 0.060180 0.098230 #> #> Parameter correlation: -#> parent_0 log_k_m1 f_parent_qlogis log_alpha log_beta -#> parent_0 1.0000000 -0.0002167 -0.6060 NaN NaN -#> log_k_m1 -0.0002167 1.0000000 0.5474 NaN NaN -#> f_parent_qlogis -0.6060320 0.5474423 1.0000 NaN NaN -#> log_alpha NaN NaN NaN 1 NaN -#> log_beta NaN NaN NaN NaN 1 -#> sigma_low NaN NaN NaN NaN NaN -#> rsd_high NaN NaN NaN NaN NaN -#> sigma_low rsd_high -#> parent_0 NaN NaN -#> log_k_m1 NaN NaN -#> f_parent_qlogis NaN NaN -#> log_alpha NaN NaN -#> log_beta NaN NaN -#> sigma_low 1 NaN -#> rsd_high NaN 1 +#> parent_0 log_k_m1 f_parent_qlogis log_alpha log_beta +#> parent_0 1.000000 -0.095226 -0.76678 0.70544 NaN +#> log_k_m1 -0.095226 1.000000 0.51432 -0.14387 NaN +#> f_parent_qlogis -0.766780 0.514321 1.00000 -0.61396 NaN +#> log_alpha 0.705444 -0.143872 -0.61396 1.00000 NaN +#> log_beta NaN NaN NaN NaN 1 +#> sigma_low 0.016073 0.001586 0.01548 5.87007 NaN +#> rsd_high 0.006626 -0.011700 -0.05357 0.04849 NaN +#> sigma_low rsd_high +#> parent_0 0.016073 0.006626 +#> log_k_m1 0.001586 -0.011700 +#> f_parent_qlogis 0.015476 -0.053566 +#> log_alpha 5.870075 0.048487 +#> log_beta NaN NaN +#> sigma_low 1.000000 -0.652558 +#> rsd_high -0.652558 1.000000 #> #> Backtransformed parameters: #> Confidence intervals for internally transformed parameters are asymmetric. #> t-test (unrealistically) based on the assumption of normal distribution #> for estimators of untransformed parameters. #> Estimate t value Pr(>t) Lower Upper -#> parent_0 1.016e+02 32.5400 7.812e-26 97.740000 1.055e+02 -#> k_m1 5.069e-03 10.0400 1.448e-11 0.004194 6.126e-03 -#> f_parent_to_m1 5.002e-01 20.7300 5.001e-20 0.468800 5.315e-01 -#> alpha 2.367e+02 0.6205 2.697e-01 NA NA -#> beta 2.322e+03 0.6114 2.727e-01 NA NA -#> sigma_low 0.000e+00 NaN NaN NaN NaN -#> rsd_high 7.989e-02 8.6630 4.393e-10 NaN NaN +#> parent_0 1.016e+02 32.7800 6.311e-26 9.624e+01 1.070e+02 +#> k_m1 5.072e-03 10.1200 1.216e-11 4.196e-03 6.130e-03 +#> f_parent_to_m1 5.004e-01 20.8300 4.317e-20 4.613e-01 5.394e-01 +#> alpha 2.502e+02 0.5624 2.889e-01 2.463e+02 2.542e+02 +#> beta 2.455e+03 0.5549 2.915e-01 NA NA +#> sigma_low 2.488e-03 0.4843 3.158e-01 1.992e-03 2.984e-03 +#> rsd_high 7.921e-02 8.4300 8.001e-10 6.018e-02 9.823e-02 #> #> FOCUS Chi2 error levels in percent: #> err.min n.optim df -#> All data 6.782 5 14 -#> parent 7.142 3 6 -#> m1 4.639 2 8 +#> All data 6.781 5 14 +#> parent 7.141 3 6 +#> m1 4.640 2 8 #> #> Resulting formation fractions: #> ff -#> parent_m1 0.5002 -#> parent_sink 0.4998 +#> parent_m1 0.5004 +#> parent_sink 0.4996 #> #> Estimated disappearance times: -#> DT50 DT90 DT50back -#> parent 6.81 22.7 6.833 -#> m1 136.74 454.2 NA
+#> DT50 DT90 DT50back +#> parent 6.812 22.7 6.834 +#> m1 136.661 454.0 NA
# We can easily use starting parameters from the parent only fit (only for illustration) fit.FOMC = mkinfit("FOMC", FOCUS_2006_D, quiet = TRUE, error_model = "tc") fit.FOMC_SFO <- mkinfit(FOMC_SFO, FOCUS_D, quiet = TRUE, -- cgit v1.2.1