From a1d7c14feadd175674b3cd8b5d7051bafba5bc3e Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Thu, 14 May 2020 18:47:38 +0200 Subject: Update version number, better example formatting --- docs/reference/parms.html | 22 +++++++--------------- 1 file changed, 7 insertions(+), 15 deletions(-) (limited to 'docs/reference/parms.html') diff --git a/docs/reference/parms.html b/docs/reference/parms.html index cb705d2c..432bbc88 100644 --- a/docs/reference/parms.html +++ b/docs/reference/parms.html @@ -74,7 +74,7 @@ considering the error structure that was assumed for the fit." /> mkin - 0.9.50.2 + 0.9.50.3 @@ -186,21 +186,13 @@ row for each dataset. If the mmkin object has more than one row, a list of such matrices is returned.

Examples

- 
fit <- mkinfit("SFO", FOCUS_2006_C)
#> Ordinary least squares optimisation
#> Sum of squared residuals at call 1: 2388.077
-#> Sum of squared residuals at call 3: 2388.077
-#> Sum of squared residuals at call 4: 247.1962
-#> Sum of squared residuals at call 7: 200.6791
-#> Sum of squared residuals at call 10: 197.7231
-#> Sum of squared residuals at call 11: 197.0872
-#> Sum of squared residuals at call 14: 196.535
-#> Sum of squared residuals at call 15: 196.535
-#> Sum of squared residuals at call 16: 196.535
-#> Sum of squared residuals at call 17: 196.5334
-#> Sum of squared residuals at call 20: 196.5334
-#> Sum of squared residuals at call 25: 196.5334
-#> Negative log-likelihood at call 31: 26.64668
#> Optimisation successfully terminated.
parms(fit)
#>      parent_0 k_parent_sink         sigma 
+    
# mkinfit objects
+fit <- mkinfit("SFO", FOCUS_2006_C, quiet = TRUE)
+parms(fit)
#>      parent_0 k_parent_sink         sigma 
 #>    82.4921598     0.3060633     4.6730124 
parms(fit, transformed = TRUE)
#>          parent_0 log_k_parent_sink             sigma 
-#>         82.492160         -1.183963          4.673012 
ds <- lapply(experimental_data_for_UBA_2019[6:10],
+#>         82.492160         -1.183963          4.673012 

+# mmkin objects
+ds <- lapply(experimental_data_for_UBA_2019[6:10],
  function(x) subset(x$data[c("name", "time", "value")]))
 names(ds) <- paste("Dataset", 6:10)
 fits <- mmkin(c("SFO", "FOMC", "DFOP"), ds, quiet = TRUE)
-- 
cgit v1.2.1