aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/endpoints.R5
1 files changed, 4 insertions, 1 deletions
diff --git a/R/endpoints.R b/R/endpoints.R
index 0aafd728..c3e0a0d3 100644
--- a/R/endpoints.R
+++ b/R/endpoints.R
@@ -49,7 +49,10 @@ endpoints <- function(fit, covariates = NULL, covariate_quantile = 0.5) {
apply(fit$covariates, 2, quantile,
covariate_quantile, simplify = FALSE))
} else {
- covariates <- data.frame("User" = covariates)
+ covariate_m <- matrix(covariates, byrow = TRUE)
+ colnames(covariate_m) <- names(covariates)
+ rownames(covariate_m) <- "User"
+ covariates <- as.data.frame(covariate_m)
}
degparms_trans <- parms(fit, covariates = covariates)[, 1]
if (inherits(fit, "saem.mmkin") & (fit$transformations == "saemix")) {

Contact - Imprint