diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-06 21:33:12 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-05-06 21:33:12 +0200 |
| commit | 1195dfc8bdbf7c131d6c6ec30fedbbe746af1bee (patch) | |
| tree | 4a1f3f252c61ee6ed8890a3ea79f06c64730b411 /R/mkinfit.R | |
| parent | bed7630b41738271e3022d498df773f5157fcbac (diff) | |
Change implementation of analytical solutions
Preparing for symbolic solutions for more than one compound
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 5c092612..2b7e71cb 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -185,13 +185,13 @@ if(getRversion() >= '2.15.1') utils::globalVariables(c("name", "time", "value")) #' # Fit the model to the FOCUS example dataset D using defaults #' print(system.time(fit <- mkinfit(SFO_SFO, FOCUS_2006_D, #' solution_type = "eigen", quiet = TRUE))) -#' coef(fit) +#' parms(fit) #' endpoints(fit) #' \dontrun{ #' # deSolve is slower when no C compiler (gcc) was available during model generation #' print(system.time(fit.deSolve <- mkinfit(SFO_SFO, FOCUS_2006_D, #' solution_type = "deSolve"))) -#' coef(fit.deSolve) +#' parms(fit.deSolve) #' endpoints(fit.deSolve) #' } #' @@ -926,6 +926,6 @@ mkinfit <- function(mkinmod, observed, fit$version <- as.character(utils::packageVersion("mkin")) fit$Rversion <- paste(R.version$major, R.version$minor, sep=".") - class(fit) <- c("mkinfit", "modFit") + class(fit) <- c("mkinfit") return(fit) } |