Nothing
linzeta <-
function(lin) {
n <- length(lin)
res <- .C("linzeta", lin=as.integer(lin), n=as.integer(n),
result=integer(n*n))
res <- matrix(res$result, n, n, byrow = TRUE)
rownames(res) <- colnames(res) <- names(lin)
class(res) <- "incidence"
return(res)
}
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.