df <- data.frame(a = rnorm(1000),
b = rnorm(1000))
bootcor.one(x = df$a,
y = df$b,
r_target = .10,
k = 5000,
alpha = .05,
digit = 3,
seed = 1234)
Run the code above in your browser using DataLab