Nothing
"fstord" <-
function(y,j) {
if (missing(j)) messagena("j")
n <- length(y)
if (missing(y)) y <- single(n)
yj <- single(1)
f.res <- .Fortran("fstordz",
y=to.single(y),
n=to.integer(n),
j=to.integer(j),
yj=to.single(yj))
list(y=f.res$y,yj=f.res$yj)
}
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.