Nothing
localClusteringCoefficient <- function(adj) {
result <- .Fortran( "localCC", adj=as.single(adj), nGenes=as.integer(nrow(adj)), cc=as.single(rep(0, length=nrow(adj))), E=as.single(rep(0,nrow(adj))), k=as.integer(rep(0,nrow(adj))) )
return(as.vector(result$cc))
}
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.