Nothing
textimage <- function(m,...)
{
image(c(1:nrow(m)),c(1:ncol(m)),m,...)
for(c in 1:ncol(m))
{
for(r in 1:nrow(m))
{
text(r,c,round(m[r,c],2))
}
}
}
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.