aboutsummaryrefslogtreecommitdiff
path: root/R/plot.nlme.mmkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-10-26 05:35:49 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2020-10-26 05:35:49 +0100
commit885425c78979b4b521b06f7dc6243b536c04c19f (patch)
tree3fe9fc2acd009f40c0079044262bb540667f714b /R/plot.nlme.mmkin.R
parent60270e2849ebd48eaf57b83eb1aa9fbe53281f8b (diff)
Fix a bug in plot.nlme.mmkin
Diffstat (limited to 'R/plot.nlme.mmkin.R')
-rw-r--r--R/plot.nlme.mmkin.R4
1 files changed, 3 insertions, 1 deletions
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

Contact - Imprint