Nothing
hudson.plot<-function(m,col='red',pch=21,lwd=2,cex=1, bg='white' )
{
m0=m2tk(m)
uv=tk2uv(m0$T,m0$k)
points(uv$u,uv$v,pch=pch,col=col,lwd=lwd,cex=cex, bg=bg)
invisible(list(x=uv$u,y=uv$v) )
}
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.