require("MEET")
#First example, calculating logodds of a Sequence
data(TFlogodds)
data(Sequence)
CalculScores(sequencia=Sequence, logodds=TFlogodds)
#given a Transfac matrix, calculate first loggods and then scores
data(TranscriptionFactor)
data(BackgroundOrganism)
data(Sequence)
Factortrans<-TranscriptionFactor
suma<-apply(Factortrans,2,function(y){sum(y=="-")})
Factortrans<-Factortrans[, suma==0]
logodds<-CalculInformation(matriu=Factortrans, Prob=Prob)
logodds <- logodds[,2:dim(logodds)[2]]
CalculScores(sequencia=Sequence,logodds=logodds)
Run the code above in your browser using DataLab