require("MEET")
data(TFlogodds)
data(BackgroundOrganism)
data(Sequence)
current<-CalculScores(Sequence, TFlogodds)
maxim<-0
minim<-0
for(j in 1:dim(TFlogodds)[1]){
minim <- min(TFlogodds[j,])+minim
maxim <- max(TFlogodds[j,])+maxim
}
Similarity<-CalculSimilarity(current, minim, maxim)
Run the code above in your browser using DataLab