fix p calculation

jan-imbi · Mar 28, 2024 · c2addc7 · c2addc7
1 parent 6eb0e15
commit c2addc7
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/evaluate_estimator.R b/R/evaluate_estimator.R
@@ -949,7 +949,7 @@ setMethod("evaluate_estimator", signature("TestAgreement", "PValue"),
                    early_efficacy_part,
                    conditional_integral) {
             if (missing(true_parameter))
-              true_parameter <- 0.05
+              true_parameter <- 0.025
             design <- TwoStageDesignWithCache(design)
             stagewise_estimators <- get_stagewise_estimators(estimator = estimator,
                                                              data_distribution =  data_distribution,
@@ -967,7 +967,7 @@ setMethod("evaluate_estimator", signature("TestAgreement", "PValue"),
                 t1 <- smean_to_t(smean1, svar1, n1, two_armed)
                 t2 <- smean_to_t(smean2, svar2, n2, two_armed)
                 c2 <- c2_extrapol(design, t1)
-                !xor(c2 < t2, g2(design = design, smean1 = smean1, svar1 = svar1, smean2 = smean2, svar2 = svar2, n1 = n1, n2 = n2, two_armed = two_armed, ...) < true_parameter )
+                !xor(c2 < t2, g2(design = design, smean1 = smean1, svar1 = svar1, smean2 = smean2, svar2 = svar2, n1 = n1, n2 = n2, two_armed = two_armed, ...) < true_parameter)
               }
             } else if (is(data_distribution, "Normal")) {
               generate_g1 = \(tp) \(design, smean1, n1, sigma, two_armed, ...) {

diff --git a/data/p_results_vortrag.rds b/data/p_results_vortrag.rds