Nothing
metalist.to.matrix<-function(list,genenames=NULL)
{
n.study<-which(names(list)=="TestStatistic")
xx<-matrix(0,nrow=length(list$TestStatistic), ncol=n.study)
for (i in 1:(n.study-1))
{xx[list[[i]],i]<-1}
xx[,n.study]<-list[[n.study]]
colnames(xx)<-names(list)[1:n.study]
if (is.null(genenames)) rownames(xx)<-list[["gene.names"]] else rownames(xx)<-genenames
return(xx)
}
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.