aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--R/plot.mixed.mmkin.R10
1 files changed, 6 insertions, 4 deletions
diff --git a/R/plot.mixed.mmkin.R b/R/plot.mixed.mmkin.R
index 466e55fc..d6c3d0de 100644
--- a/R/plot.mixed.mmkin.R
+++ b/R/plot.mixed.mmkin.R
@@ -166,10 +166,12 @@ plot.mixed.mmkin <- function(x,
}
}
- # Make sure degparms_pop is a matrix, columns corresponding to population curve(s)
- if (is.null(dim(degparms_pop))) {
- degparms_pop <- matrix(degparms_pop, ncol = 1,
- dimnames = list(names(degparms_pop), "Population"))
+ if (pop_curves) {
+ # Make sure degparms_pop is a matrix, columns corresponding to population curve(s)
+ if (is.null(dim(degparms_pop))) {
+ degparms_pop <- matrix(degparms_pop, ncol = 1,
+ dimnames = list(names(degparms_pop), "Population"))
+ }
}
degparms_fixed <- fit_1$fixed$value

Contact - Imprint