Nothing
## -----------------------------------------------------------------------------
n <- 5
x <- rexp(n)
## ---- echo=TRUE---------------------------------------------------------------
a <- 0.8
sigma <- (cos(pi*a/2))^(1/a)
z <- stabledist::rstable(n = n, alpha = a, beta = 1, gamma = sigma, delta = 0, pm = 1)
## -----------------------------------------------------------------------------
y <- x^(1/a) * z
y
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.