Nothing
cpg.everything.numeric <-
function(x,i.p,levin,chip.id,...) {
p<-x
test<-cpg.everything.matrix(p,i.p,levin,chip.id)
return(test)
}
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.