aboutsummaryrefslogtreecommitdiff
path: root/R/endpoints.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2023-05-08 08:44:36 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2023-05-08 08:44:36 +0200
commitc931057ce8f05d3a0dfefea72b73903efb82e900 (patch)
tree4565f7b18461e6976b0325f0398a9aae6303037e /R/endpoints.R
parent78d34a8918edcb91982a3886e4898a63898f52c3 (diff)
Fix obtaining endpoints for user defined covariate values
Diffstat (limited to 'R/endpoints.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