From 885425c78979b4b521b06f7dc6243b536c04c19f Mon Sep 17 00:00:00 2001 From: Johannes Ranke 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