Nothing
#Euclidean distance matrix
#D[i,j]=G[i,i]+G[j,j]-2G[i,j];
GtoD=function(G)
{
n=nrow(G)
D=matrix(0,nrow=n,ncol=n)
for(i in 1:n)
{
cat(i,"/",n,"\n")
for(j in i:n)
{
D[i,j]=G[i,i]+G[j,j]-2*G[i,j]
D[j,i]=D[i,j]
}
}
return(D)
}
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.