df1 <- data.frame(a = rnorm(1000),
b = rnorm(1000))
df2 <- data.frame(x = rnorm(600),
y = rnorm(600))
bootcor.two(x1 = df1$a,
y1 = df1$b,
x2 = df2$x,
y2 = df2$y,
k = 5000,
alpha = .05,
digit = 3,
seed = 1234)
Run the code above in your browser using DataLab