# 50 observations, .5 correlation
p_r(50, r=.5)
p_r(50, r=.5, method = 'spearman')
# test against constant other than rho = .6
p_r(50, .5, rho=.60)
# return analysis model
p_r(50, .5, return_analysis=TRUE)
p_r(50, .5, rho=.60, return_analysis=TRUE)
# \donttest{
# compare simulated results to pwr package
pwr::pwr.r.test(r=0.3, n=50)
p_r(n=50, r=0.3) |> Spower()
pwr::pwr.r.test(r=0.3, power=0.80)
p_r(n=interval(10, 200), r=0.3) |> Spower(power=.80)
pwr::pwr.r.test(r=0.1, power=0.80)
p_r(n=interval(200, 1000), r=0.1) |> Spower(power=.80)
# }
Run the code above in your browser using DataLab