Nothing
rcircbeta <- function(n, m, a, b, rads = TRUE) {
x <- rbeta(n, a, b)
y <- acos( 2 * x - 1 )
u <- Rfast2::Runif(n)
x <- y * (u < 0.5) + (2 * pi - y) * (u > 0.5) + m
if (!rads) x <- x/pi * 180
x
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.