From ad6ef5013dce7ef1ef9bbcadbd278b71da9b6f72 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 21 Jul 2022 12:11:12 +0200
Subject: Updates to summary.mkinfit

---
 R/summary.mkinfit.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R')

diff --git a/R/summary.mkinfit.R b/R/summary.mkinfit.R
index f9858c32..4122873f 100644
--- a/R/summary.mkinfit.R
+++ b/R/summary.mkinfit.R
@@ -47,7 +47,7 @@
 #'   \url{http://esdac.jrc.ec.europa.eu/projects/degradation-kinetics}
 #' @examples
 #'
-#'   summary(mkinfit(mkinmod(parent = mkinsub("SFO")), FOCUS_2006_A, quiet = TRUE))
+#'   summary(mkinfit("SFO", FOCUS_2006_A, quiet = TRUE))
 #'
 #' @export
 summary.mkinfit <- function(object, data = TRUE, distimes = TRUE, alpha = 0.05, ...) {
@@ -172,7 +172,7 @@ summary.mkinfit <- function(object, data = TRUE, distimes = TRUE, alpha = 0.05,
   if (distimes) ans$distimes <- ep$distimes
   if (length(ep$SFORB) != 0) ans$SFORB <- ep$SFORB
   if (!is.null(object$d_3_message)) ans$d_3_message <- object$d_3_message
-  class(ans) <- c("summary.mkinfit", "summary.modFit")
+  class(ans) <- "summary.mkinfit"
   return(ans)
 }
 
-- 
cgit v1.2.1