Nothing
rspcauchy <- function(n, mu, rho) {
phi <- rho * mu
U <- Directional::riag( n, numeric( length(mu) ) )
com <- Rfast::eachrow(U, phi, oper = "+")
x <- ( 1 - sum(phi^2) ) / Rfast::rowsums( com^2 ) * com
Rfast::eachrow(x, phi, oper = "+")
}
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.