Nothing
SpecGap <-
function(P)
{
aux<-eigen(t(P),symmetric = FALSE)
piE<-aux$vectors[,1]/sum(aux$vectors[,1])
gap<-1-Mod(aux$values[2])
return(list(SG=gap, pi=piE))
}
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.