Nothing
gCIN = function (data, col, row)
{
dat <- subset(data, (data[, 2] == col) & (data[, 3] == row))
return(as.numeric(dat[4:(length(dat) - 1)]))
}
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.