From a5874ab7fce4616e80be69366ff0685332f47bf1 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
Date: Tue, 27 Oct 2020 15:34:14 +0100
Subject: Add summary method for nlme.mmkin objects
Improve and update docs
---
docs/dev/reference/sigma_twocomp.html | 11 ++---------
1 file changed, 2 insertions(+), 9 deletions(-)
(limited to 'docs/dev/reference/sigma_twocomp.html')
diff --git a/docs/dev/reference/sigma_twocomp.html b/docs/dev/reference/sigma_twocomp.html
index ecea8499..8212e480 100644
--- a/docs/dev/reference/sigma_twocomp.html
+++ b/docs/dev/reference/sigma_twocomp.html
@@ -202,15 +202,8 @@ measurement error in analytical chemistry. Technometrics 37(2), 176-184.
data = d_syn, na.action = na.omit,
start = list(parent_0 = 100, lrc = -3))
if (length(findFunction("varConstProp")) > 0) {
- f_gnls_tc <- gnls(value ~ SSasymp(time, 0, parent_0, lrc),
- data = d_syn, na.action = na.omit,
- start = list(parent_0 = 100, lrc = -3),
- weights = varConstProp())
- f_gnls_tc_sf <- gnls(value ~ SSasymp(time, 0, parent_0, lrc),
- data = d_syn, na.action = na.omit,
- start = list(parent_0 = 100, lrc = -3),
- control = list(sigma = 1),
- weights = varConstProp())
+ f_gnls_tc <- update(f_gnls, weights = varConstProp())
+ f_gnls_tc_sf <- update(f_gnls_tc, control = list(sigma = 1))
}
f_mkin <- mkinfit("SFO", d_syn, error_model = "const", quiet = TRUE)
f_mkin_tc <- mkinfit("SFO", d_syn, error_model = "tc", quiet = TRUE)
--
cgit v1.2.1