> with_seed(seed = 2020, summary(prospective(effect_size = 0.3, power = 0.8,
+   ratio_n = 2, test_method = "two_sample", B = 50)))
Evaluate n = 501
Estimated power is 1

Evaluate n = 251
Estimated power is 0.98

Evaluate n = 126
Estimated power is 0.78

Evaluate n = 188
Estimated power is 0.92

Evaluate n = 157
Estimated power is 0.9

Evaluate n = 142
Estimated power is 0.9

Evaluate n = 134
Estimated power is 0.8


	Design Analysis

Hypothesized effect:  cohen_d = 0.3 

Study characteristics:
   test_method   sample_n1   sample_n2   alternative   sig_level   df 
   two_sample    268         134         two_sided     0.05        400

Inferential risks:
   power   typeM   typeS
   0.8     1.096   0    

Critical value(s): cohen_d  =  ± 0.208

