Nothing
Hmat <-function(G){
# matrix transformation
t = nrow(G); sg = colSums(G)
u = rep(1,t)
H = solve(t(G)%*%G-sg%o%sg/t)%*%(t(G)-sg%o%u/t)
# output
H = H
}
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.