Nothing
Simulate <- function(dim,lambda0,alpha,beta,T)
{
if(!is.integer(dim) || (dim < 1))
{
stop("'dim' must be a strictly positive integer")
}
if(dim==1)
{
t = .Call("d1_Simulate",lambda0,alpha,beta,T)
}
if(dim > 1)
{
t = .Call("dn_Simulate",lambda0,alpha,beta,T)
}
t
}
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.