diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-10-26 06:30:32 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-10-26 06:30:32 +0100 |
| commit | 9bfc85d605ae54623f63b7e3cdb36f5ac64876c1 (patch) | |
| tree | 6a0d38b3c55492f827f5f58e36d53be88707c594 | |
| parent | 885425c78979b4b521b06f7dc6243b536c04c19f (diff) | |
Fix another bug in plot.nlme.mmkin
| -rw-r--r-- | R/plot.nlme.mmkin.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/plot.nlme.mmkin.R b/R/plot.nlme.mmkin.R index e41d5357..a27f0caa 100644 --- a/R/plot.nlme.mmkin.R +++ b/R/plot.nlme.mmkin.R @@ -65,7 +65,8 @@ plot.nlme.mmkin <- function(x, i = 1:ncol(x$mmkin_orig), names(degparms_fixed) <- rownames(fit_1$fixed) degparms_all <- cbind(as.matrix(degparms_optim), matrix(rep(degparms_fixed, nrow(degparms_optim)), - ncol = length(degparms_fixed), byrow = TRUE)) + ncol = length(degparms_fixed), + nrow = nrow(degparms_optim), byrow = TRUE)) degparms_all_names <- c(degparms_optim_names, names(degparms_fixed)) colnames(degparms_all) <- degparms_all_names |