diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2023-05-08 08:44:36 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2023-05-08 08:44:36 +0200 |
| commit | c931057ce8f05d3a0dfefea72b73903efb82e900 (patch) | |
| tree | 4565f7b18461e6976b0325f0398a9aae6303037e /R/endpoints.R | |
| parent | 78d34a8918edcb91982a3886e4898a63898f52c3 (diff) | |
Fix obtaining endpoints for user defined covariate values
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")) { |