Nothing
"n.plt"<-
function(n)
{
if(n == 1)
m <- c(1, 1)
else if(n == 2)
m <- c(1, 2)
else if(n == 3)
m <- c(1, 3)
else if(n == 4)
m <- c(2, 2)
else m <- c(2, 3)
}
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.