Nothing
GSC_seq <- function (p, sierp=TRUE) {
N <- length(p)
if (N==1) return(simMatrix(p[1],sierp))
else
return(kronecker(GSC_seq(p[1:(N-1)], sierp),simMatrix(p[N],sierp)))
}
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.