Dont fix mean_degparms if it does not exist

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