diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/D24_2014.R | 10 | ||||
| -rw-r--r-- | R/mkinds.R | 7 | ||||
| -rw-r--r-- | R/saem.R | 8 |
3 files changed, 21 insertions, 4 deletions
diff --git a/R/D24_2014.R b/R/D24_2014.R index aaed029c..973cf47d 100644 --- a/R/D24_2014.R +++ b/R/D24_2014.R @@ -33,5 +33,15 @@ #' DCP = mkinsub("SFO", to = "DCA"), #' DCA = mkinsub("SFO")) #' print(m_D24_2) +#' D24_2014_data <- lapply(D24_2014$ds, function(x) x$data) +#' names(D24_2014_data) <- sapply(D24_2014$ds, function(x) x$title) +#' f_D24_2014 <- mmkin( +#' models = list( +#' "SFO-SFO-SFO" = m_D24, +#' "DFOP-SFO-SFO" = m_D24_2), +#' data = D24_2014_data, +#' quiet = TRUE) +#' print(f_D24_2014) +#' plot(f_D24_2014[, 3]) #' } "D24_2014" @@ -3,7 +3,7 @@ #' @description #' At the moment this dataset class is hardly used in mkin. For example, #' mkinfit does not take mkinds datasets as argument, but works with dataframes -#' such as the on contained in the data field of mkinds objects. Some datasets +#' such as the one contained in the data field of mkinds objects. Some datasets #' provided by this package come as mkinds objects nevertheless. #' #' @importFrom R6 R6Class @@ -87,6 +87,11 @@ print.mkinds <- function(x, data = FALSE, ...) { #' Time normalisation factors are initialised with a value of 1 for each #' dataset if no data are supplied. #' +#' @note +#' Currently, no functions making use of the defined class structure +#' are available in this package. Refer to [D24_2014] for an example +#' dataset in this structure, with some example evaluations. +#' #' @examples #' #' mdsg <- mkindsg$new("Experimental X", experimental_data_for_UBA_2019[6:10]) @@ -122,9 +122,11 @@ utils::globalVariables(c("predicted", "std")) #' plot(f_saem_dfop_sfo) #' summary(f_saem_dfop_sfo, data = TRUE) #' -#' # The following takes about 6 minutes -#' f_saem_dfop_sfo_deSolve <- saem(f_mmkin["DFOP-SFO", ], solution_type = "deSolve", -#' nbiter.saemix = c(200, 80)) +#' # The following took about 6 minutes and currently fails with +#' # "Error in deSolve::lsoda(y = odeini, times = outtimes_deSolve, func = lsoda_func, : +#' # illegal input detected before taking any integration steps - see written message" +#' #f_saem_dfop_sfo_deSolve <- saem(f_mmkin["DFOP-SFO", ], solution_type = "deSolve", +#' # nbiter.saemix = c(200, 80)) #' #' #anova( #' # f_saem_dfop_sfo, |