Nothing
eigenVc <- function(xmat, wp, d, r, itmax, err) {
.Call(C_eigenV,
xmatC = as.double(xmat),
wpC = as.double(wp),
dC = as.integer(d),
rC = as.integer(r),
itmaxC = as.integer(itmax),
errC = as.double(err));
}
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.