From 885425c78979b4b521b06f7dc6243b536c04c19f Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 26 Oct 2020 05:35:49 +0100
Subject: Fix a bug in plot.nlme.mmkin

---
 R/plot.nlme.mmkin.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/plot.nlme.mmkin.R b/R/plot.nlme.mmkin.R
index 223aba68..e41d5357 100644
--- a/R/plot.nlme.mmkin.R
+++ b/R/plot.nlme.mmkin.R
@@ -63,7 +63,9 @@ plot.nlme.mmkin <- function(x, i = 1:ncol(x$mmkin_orig),
   degparms_optim_names <- names(degparms_optim)
   degparms_fixed <- fit_1$fixed$value
   names(degparms_fixed) <- rownames(fit_1$fixed)
-  degparms_all <- cbind(as.matrix(degparms_optim), fit_1$bparms.fixed)
+  degparms_all <- cbind(as.matrix(degparms_optim),
+    matrix(rep(degparms_fixed, nrow(degparms_optim)),
+      ncol = length(degparms_fixed), byrow = TRUE))
   degparms_all_names <- c(degparms_optim_names, names(degparms_fixed))
   colnames(degparms_all) <- degparms_all_names
 
-- 
cgit v1.2.1