diff options
Diffstat (limited to 'R/endpoints.R')
| -rw-r--r-- | R/endpoints.R | 5 |
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")) { |