Nothing
#[export]
Runif <- function(n, min = 0, max = 1){
.Call(Rfast2_Runif, n, min, max)
}
#[export]
Sample <- function(x, size, replace = FALSE){
.Call(Rfast2_Sample, x, size, replace)
}
#[export]
Sample.int <- function(n, size = n, replace = FALSE){
.Call(Rfast2_Sample_int, n, size, replace)
}
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.