diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2022-10-31 17:01:58 +0100 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-10-31 17:01:58 +0100 |
commit | 300aa6ec27529f46deda07874566dc8fcee4e6e7 (patch) | |
tree | 5a78a7bad10e569d439060ee09547e27f9a45c7b /R | |
parent | e444e3eb3e21c66c34ce48775467cd9fa53f2a92 (diff) |
Fix R CMD check
Diffstat (limited to 'R')
-rw-r--r-- | R/mhmkin.R | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -8,6 +8,8 @@ #' #' @param objects A list of [mmkin] objects containing fits of the same #' degradation models to the same data, but using different error models. +#' Alternatively, a single [mmkin] object containing fits of several +#' degradation models to the same data #' @param backend The backend to be used for fitting. Currently, only saemix is #' supported #' @param algorithm The algorithm to be used for fitting (currently not used) @@ -35,8 +37,8 @@ mhmkin <- function(objects, backend = "saemix", algorithm = "saem", ...) { #' @export #' @rdname mhmkin -mhmkin.mmkin <- function(object, ...) { - mhmkin(list(object), ...) +mhmkin.mmkin <- function(objects, ...) { + mhmkin(list(objects), ...) } #' @export @@ -199,7 +201,7 @@ update.mhmkin <- function(object, ..., evaluate = TRUE) { else call } -#' export +#' @export anova.mhmkin <- function(object, ..., method = c("is", "lin", "gq"), test = FALSE, model.names = "auto") { if (identical(model.names, "auto")) { |