aboutsummaryrefslogtreecommitdiff
path: root/R/plot.mixed.mmkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2023-04-14 20:26:50 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2023-04-14 20:26:50 +0200
commit19016037302814387799426fc40b318ee54b07f0 (patch)
tree4fb04eb1480e0a7527ccaa2e1e879991136d7801 /R/plot.mixed.mmkin.R
parent64201636ce58f54b42394efa4f837fdc70a93e34 (diff)
Dont fix mean_degparms if it does not exist
Diffstat (limited to 'R/plot.mixed.mmkin.R')
-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