Nothing
fit.cgh.mir.byname <- function(X, Y, geneName, windowSize, ...){
index <- which(rownames(X$data) == geneName)
window <- sparse.window(X,Y,index,windowSize)
fit.dependency.model(window$X,window$Y,...)
}
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.