aboutsummaryrefslogtreecommitdiff
path: root/R/mhmkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-10-31 17:01:58 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-10-31 17:01:58 +0100
commit300aa6ec27529f46deda07874566dc8fcee4e6e7 (patch)
tree5a78a7bad10e569d439060ee09547e27f9a45c7b /R/mhmkin.R
parente444e3eb3e21c66c34ce48775467cd9fa53f2a92 (diff)
Fix R CMD check
Diffstat (limited to 'R/mhmkin.R')
-rw-r--r--R/mhmkin.R8
1 files changed, 5 insertions, 3 deletions
diff --git a/R/mhmkin.R b/R/mhmkin.R
index 2fb4d9bc..175d12ec 100644
--- a/R/mhmkin.R
+++ b/R/mhmkin.R
@@ -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")) {

Contact - Imprint