aboutsummaryrefslogtreecommitdiff
path: root/R/memkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-03-30 14:16:29 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2020-03-30 14:16:29 +0200
commitc3c39413a040a7d6eb36d7ebade551fa830499f8 (patch)
treeb7b4edbe984cc5ccda0163d75c1ebcf0ebfdfbf3 /R/memkin.R
parent405cde11f9f26fcab0742e84c110cf3dcb2a4c1f (diff)
Fixed example code
Diffstat (limited to 'R/memkin.R')
-rw-r--r--R/memkin.R5
1 files changed, 2 insertions, 3 deletions
diff --git a/R/memkin.R b/R/memkin.R
index 5cc00345..8a71484e 100644
--- a/R/memkin.R
+++ b/R/memkin.R
@@ -66,11 +66,10 @@
#' }
#' f_nlme_fomc_sfo <- memkin(f_2[3, ])
#' \dontrun{
-#' f_nlme_dfop_sfo <- memkin(f_2[4, ]) # apparently underdetermined}
+#' f_nlme_dfop_sfo <- memkin(f_2[4, ]) # apparently underdetermined
#' f_nlme_sforb_sfo <- memkin(f_2[5, ]) # also does not converge
#' }
-#' anova(f_nlme_sfo_sfo, f_nlme_fomc_sfo)
-#' # The FOMC variant has a lower AIC and has significantly higher likelihood
+#' anova(f_nlme_fomc_sfo, f_nlme_sfo_sfo, f_nlme_sfo_sfo_4)
#' @export
memkin <- function(object, random_spec = "auto", ...) {
if (nrow(object) > 1) stop("Only row objects allowed")

Contact - Imprint