aboutsummaryrefslogtreecommitdiff
path: root/R/summary.nlme.mmkin.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/summary.nlme.mmkin.R')
-rw-r--r--R/summary.nlme.mmkin.R6
1 files changed, 5 insertions, 1 deletions
diff --git a/R/summary.nlme.mmkin.R b/R/summary.nlme.mmkin.R
index 7e404e00..d930f845 100644
--- a/R/summary.nlme.mmkin.R
+++ b/R/summary.nlme.mmkin.R
@@ -131,7 +131,11 @@ summary.nlme.mmkin <- function(object, data = FALSE, verbose = FALSE, distimes =
object$data[["value"]] <- NULL
object$data[["predicted"]] <- predict(object)
object$data[["residual"]] <- residuals(object, type = "response")
- object$data[["std"]] <- object$sigma <- 1/attr(object$modelStruct$varStruct, "weights")
+ if (is.null(object$modelStruct$varStruct)) {
+ object$data[["std"]] <- object$sigma
+ } else {
+ object$data[["std"]] <- 1/attr(object$modelStruct$varStruct, "weights")
+ }
object$data[["standardized"]] <- residuals(object, type = "pearson")
object$verbose <- verbose

Contact - Imprint