Nothing
CreateConsensus<-function(alignedSequences,iicc,filein){
if (iicc$alignment!="MEME"){
alignedSequences<-as.matrix(alignedSequences)
SeqCons<-con(alignedSequences, method= c("IUPAC"))
}else{
num_motif<-iicc$nummotif
len_motif<-iicc$lenmotif
call.meme<-iicc$call.meme
system(paste(paste(paste(paste(call.meme,filein,sep=" "),"-oc memeout -dna -mod anr -w", len_motif,sep=" "), "-nmotifs", sep=" "),num_motif,sep=" "))
resultat<-readLines(paste(getwd(),"/memeout/meme.txt", sep="", collapse=NULL))
y <- readMEME(resultat, num_motif)
SeqCons<-y[[length(y)]]
#consensus=y[[length(y)]]
}
SeqCons
}
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.