diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-03-30 14:16:29 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-03-30 14:16:29 +0200 |
| commit | c3c39413a040a7d6eb36d7ebade551fa830499f8 (patch) | |
| tree | b7b4edbe984cc5ccda0163d75c1ebcf0ebfdfbf3 /R/memkin.R | |
| parent | 405cde11f9f26fcab0742e84c110cf3dcb2a4c1f (diff) | |
Fixed example code
Diffstat (limited to 'R/memkin.R')
| -rw-r--r-- | R/memkin.R | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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") |