frem: Fix critical bug causing forest plot to be scrambled

UUPharmacometrics · Oct 8, 2018 · 95ac735 · 95ac735
1 parent f925494
commit 95ac735
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R-scripts/frem/parameter_ratio_function.R b/R-scripts/frem/parameter_ratio_function.R
@@ -116,7 +116,8 @@ parameter_ratio <- function(inTable_frem,covdata,pardata) {
       outTable <- DF_melt %>% group_by(variable) %>%
       summarise(mean = mean(value),
                 ci_low = quantile(value, probs=c(0.05),type=2),
-                ci_high = quantile(value, probs=c(0.95),type=2))
+                ci_high = quantile(value, probs=c(0.95),type=2)) %>%
+      arrange(order(unique(DF_melt$variable)))
       # calculating procentage of outTable
       outTablet_proc <- t(round(t((outTable[, 2:ncol(outTable)])-1) * 100, 2))
       outTable <- cbind(outTable[1],outTablet_proc)