Nothing
"srt1" <-
function(a,k1=1,k2=n) {
n <- length(a)
if (missing(a)) a <- single(n)
f.res <- .Fortran("srt1z",
a=to.single(a),
n=to.integer(n),
k1=to.integer(k1),
k2=to.integer(k2))
list(a=f.res$a)
}
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.