saemix.mmkin and nlme.mmkin inherit from mixed.mmkin

With a plot method. The class mixed.mmkin is currently only a virtual
class created to unify the plotting method.

1 files changed, 4 insertions, 3 deletions

diff --git a/R/saemix.R b/R/saemix.R
index ee68d202..8955aa54 100644
--- a/R/saemix.R
+++ b/R/saemix.R
@@ -24,8 +24,9 @@
 #' @param \dots Further parameters passed to [saemix::saemixData]
 #'   and [saemix::saemixModel].
 #' @return An S3 object of class 'saem.mmkin', containing the fitted
-#'   [saemix::SaemixObject] as a list component named 'so'.
-#' @seealso [summary.saem.mmkin]
+#'   [saemix::SaemixObject] as a list component named 'so'. The
+#'   object also inherits from 'mixed.mmkin'.
+#' @seealso [summary.saem.mmkin] [plot.mixed.mmkin]
 #' @examples
 #' \dontrun{
 #' ds <- lapply(experimental_data_for_UBA_2019[6:10],
@@ -134,7 +135,7 @@ saem.mmkin <- function(object,
     Rversion = paste(R.version$major, R.version$minor, sep=".")
   )
 
-  class(result) <- "saem.mmkin"
+  class(result) <- c("saem.mmkin", "mixed.mmkin")
   return(result)
 }