Nothing
library(REIDS)
load("FIRMA_Output")
groupHMPT=c(7,8,9,16,17,18,22,23,24,31,32,33)
groupOthers=c(1,2,3,4,5,6,10,11,12,13,14,15,19,20,21,25,26,27,28,29,30)
groups=list(group1=groupHMPT,group2=groupOthers)
FIRMA_Output_Scores=FIRMAScores(Data=FIRMA_Output,InformativeExons=NULL,groups=groups,paired=FALSE,significancelevel=NULL)
save(FIRMA_Output_Scores,file="TissueData/FIRMA_Output_Scores.RData")
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.