Nothing
mufC<-function(v) {
n<-length(v)
x<-rep(0,n*(n+1)/2)
out<-.C("muf",v=as.double(v),x=as.double(x),n=as.integer(n),PACKAGE="FIRMAGene")
out
}
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.