> with_seed(seed = 2020, retrospective(effect_size = function(x) rnorm(x, 0.3,
+   0.1), sample_n1 = 20, sample_n2 = 20, test_method = "paired", tl = 0.15, tu = 0.45,
+ B_effect = 10, B = 50))
Message: Truncation could require long computational time


	Design Analysis

Hypothesized effect:  cohen_d ~ rnorm(x, 0.3, 0.1) [tl =  0.15 ; tu = 0.45 ]
   n_effect   Min.    1st Qu.   Median   Mean    3rd Qu.   Max.
   10         0.219   0.297     0.326    0.338   0.391     0.43

Study characteristics:
   test_method   sample_n1   sample_n2   alternative   sig_level   df
   paired        20          20          two_sided     0.05        19

Inferential risks:
        Min.    1st Qu.   Median   Mean     3rd Qu.   Max. 
power   0.140   0.26000   0.290    0.2920   0.35000   0.400
typeM   1.386   1.52825   1.764    1.7695   1.93675   2.356
typeS   0.000   0.00000   0.000    0.0071   0.00000   0.071

Critical value(s): cohen_d  =  ± 0.468

