diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-14 15:41:56 +0100 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-03-14 15:41:56 +0100 |
commit | 3cddc58e6fcdd5341b354dc5b5f784ec8190f62b (patch) | |
tree | 8303617316a207e3e4ed7c1b554abf0ed77e3d39 /R | |
parent | 72ef221369df14a527c2751c002b5cf3db29520d (diff) |
Reduce check time for CRAN, releasev1.1.0
Diffstat (limited to 'R')
-rw-r--r-- | R/create_deg_func.R | 2 | ||||
-rw-r--r-- | R/nlme.mmkin.R | 7 | ||||
-rw-r--r-- | R/summary.nlme.mmkin.R | 2 |
3 files changed, 6 insertions, 5 deletions
diff --git a/R/create_deg_func.R b/R/create_deg_func.R index 4b4284db..5794c65c 100644 --- a/R/create_deg_func.R +++ b/R/create_deg_func.R @@ -10,8 +10,8 @@ #' m1 = mkinsub("SFO")) #' FOCUS_D <- subset(FOCUS_2006_D, value != 0) # to avoid warnings #' fit_1 <- mkinfit(SFO_SFO, FOCUS_D, solution_type = "analytical", quiet = TRUE) -#' fit_2 <- mkinfit(SFO_SFO, FOCUS_D, solution_type = "deSolve", quiet = TRUE) #' \dontrun{ +#' fit_2 <- mkinfit(SFO_SFO, FOCUS_D, solution_type = "deSolve", quiet = TRUE) #' if (require(rbenchmark)) #' benchmark( #' analytical = mkinfit(SFO_SFO, FOCUS_D, solution_type = "analytical", quiet = TRUE), diff --git a/R/nlme.mmkin.R b/R/nlme.mmkin.R index b6b6c830..09cb84b8 100644 --- a/R/nlme.mmkin.R +++ b/R/nlme.mmkin.R @@ -59,12 +59,11 @@ get_deg_func <- function() { #' @examples #' ds <- lapply(experimental_data_for_UBA_2019[6:10], #' function(x) subset(x$data[c("name", "time", "value")], name == "parent")) -#' f <- mmkin(c("SFO", "DFOP"), ds, quiet = TRUE, cores = 1) -#' library(nlme) -#' f_nlme_sfo <- nlme(f["SFO", ]) #' #' \dontrun{ -#' +#' f <- mmkin(c("SFO", "DFOP"), ds, quiet = TRUE, cores = 1) +#' library(nlme) +#' f_nlme_sfo <- nlme(f["SFO", ]) #' f_nlme_dfop <- nlme(f["DFOP", ]) #' anova(f_nlme_sfo, f_nlme_dfop) #' print(f_nlme_dfop) diff --git a/R/summary.nlme.mmkin.R b/R/summary.nlme.mmkin.R index be7f0441..1dd73301 100644 --- a/R/summary.nlme.mmkin.R +++ b/R/summary.nlme.mmkin.R @@ -62,11 +62,13 @@ #' n = 1)[[1]] #' }) #' +#' \dontrun{ #' # Evaluate using mmkin and nlme #' library(nlme) #' f_mmkin <- mmkin("SFO", ds_sfo_syn, quiet = TRUE, error_model = "tc", cores = 1) #' f_nlme <- nlme(f_mmkin) #' summary(f_nlme, data = TRUE) +#' } #' #' @export summary.nlme.mmkin <- function(object, data = FALSE, verbose = FALSE, distimes = TRUE, alpha = 0.05, ...) { |