Nothing
library(randtoolbox)
mytrace <- TRUE
mytrace <- FALSE
if(FALSE)
{
#p318 Glasserman (2003)
mymj <- list(
c(1,1,1),
c(1,3,5),
c(1,1,7))
mypj <- c(1, 3, 7)
sobol.V(mymj ,mypj, bitnb=5, echo=FALSE)
mymj <- list(
c(1),
c(1),
c(1,1,7))
mypj <- c(1, 3, 7)
sobol.V(mymj ,mypj, bitnb=5, echo=FALSE)
}
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.