> with_seed(seed = 2020, retrospective(effect_size = 0.3, sample_n1 = 20, B = 50))

	Design Analysis

Hypothesized effect:  rho = 0.3 

Study characteristics:
   test_method   sample_n1   sample_n2   alternative   sig_level   df
   pearson       20          NULL        two_sided     0.05        18

Inferential risks:
   power   typeM   typeS
   0.24    1.823   0    

Critical value(s): rho  =  ± 0.444

