From c3c39413a040a7d6eb36d7ebade551fa830499f8 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 30 Mar 2020 14:16:29 +0200
Subject: Fixed example code

---
 R/memkin.R | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'R')

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")
-- 
cgit v1.2.1