Nothing
lambdax <- function(rt, rx, ry, theta, revents)
{
if (rt < revents[1,1])
return(0)
theta <- sqrt(theta)
storage.mode(revents) <- "double"
.Call("clambdax", as.double(rt), as.double(rx), as.double(ry),
as.double(theta), revents, PACKAGE="ETAS")[[1]]
}
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.