Nothing
one.gene.LA <-
function(array, x) # x is a row of the array, or a factor
{
b<-x * t(array)
d<-array %*% b
d
}
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.