Nothing
rbrownian <-
function(n, m, b0=0, mu=0, sd=1, T=1, drop = TRUE, nthreads=1L)
{
if(nthreads != 1L)
stop("Not yet ready for multi-threads")
return( .Call(.C_rbrownian, n=n, m=m, mu=as.double(mu), sd=as.double(sd), T=as.double(T), B0=as.double(b0), drop=as.logical(drop), nthreads=nthreads) )
}
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.