disc_sampler <- simdesign_discunif()
plot(simulate_data(disc_sampler, 1000, seed = 19))
ring_segment_sampler <- simdesign_discunif(r_min = 0.5, angle_min = 0.5 * pi)
plot(simulate_data(ring_segment_sampler, 1000, seed = 19))
circle_sampler <- simdesign_discunif(r_min = 1)
plot(simulate_data(circle_sampler, 1000, seed = 19))
Run the code above in your browser using DataLab