df <- data.frame(n1 = rpois(n = 40, lambda = 85),
n2 = rpois(n = 40, lambda = 60),
r1 = runif(n = 40, min = 0.6, max = 0.85),
r2 = runif(n = 40, min = 0.55, max = 0.75))
data <- compar_r_fisher(df)
Run the code above in your browser using DataLab