Nothing
ModelMEME<-function(iicc){
num_motif<-iicc$nummotif
len_motif<-iicc$lenmotif
factor<-as.matrix(iicc$Transcriptionfactor)
listfactor<-lapply(c(1:nrow(factor)),function(x){factor[x,]})
write.fasta(listfactor, names=c(1:(nrow(factor))), nbchar = ncol(factor), file.out="background.fa",open="w")
system(paste(paste(paste(paste(iicc$meme, " background.fa -oc memeout -dna -mod anr -w", sep =" "), len_motif,sep=" "), "-nmotifs", sep=" "),num_motif,sep=" "))
}
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.