ROUT report cleaned up, outlier table and Q-valus added

R/Global.R

@@ -1382,8 +1382,8 @@ tests_FUNC <- function(ro_new, Lim, PureErrFlag) {
       "EQ test ratio of upper asymptotes",
       "F-test on Lack-of-Fit*",
       "EQ test ratio of asymptote difference",
-      "geom. rel. CI restr. model",
-      "geom. rel. CI unrestr. model"
+      "Potency CL restr. model",
+      "Potency CL unrestr. model (fio)"
     ),
     test_results = c(
       ifelse(p_F_regr < 0.05, 0, 1), test_la_diff, test_lowA, test_b, test_uppA,