Nothing
"swapd" <-
function(x,y,n=nrow(x),incx=1,incy=1) {
mdx <- length(x)
mdy <- length(y)
if (missing(x)) x <- double(mdx)
if (missing(y)) y <- double(mdy)
f.res <- .Fortran("swapzd",
x=as.double(x),
y=as.double(y),
n=to.integer(n),
incx=to.integer(incx),
incy=to.integer(incy),
mdx=to.integer(mdx),
mdy=to.integer(mdy))
list(x=f.res$x,y=f.res$y)
}
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.