aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-07-21 12:11:12 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2022-07-21 12:11:12 +0200
commitad6ef5013dce7ef1ef9bbcadbd278b71da9b6f72 (patch)
tree0be4a82f9d8f90335fdb11de9d99f65c71f06e60
parenta41ac4ab2cdfb83ec3aa5f7cda6983f06216fba9 (diff)
Updates to summary.mkinfit
-rw-r--r--R/summary.mkinfit.R4
1 files changed, 2 insertions, 2 deletions
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)
}

Contact - Imprint