# set up a population
pop <- fastpos::create_pop(rho = 0.5, size = 1e6)
# create a distribution of points of stability
pos <- simulate_pos(x_pop = pop[,1], y_pop = pop[,2], n_studies = 100,
sample_size_min = 20, sample_size_max = 1e3,
replace = TRUE, lower_limit = 0.4, upper_limit = 0.6,
progress = TRUE)
# calculate quantiles or any other parameter of the distribution
quantile(pos, c(.8, .9, .95))
Run the code above in your browser using DataLab