require("MEET")
data(iicc)
data(BackgroundOrganism)
q<-iicc$q
training.set<-iicc$Transcriptionfactor
correction<-correction.entropy(q,p=nrow(training.set),long=1,iicc)
Herror<-slot(correction,"Herror")
HXmax<-iicc$HXmax
prob<-probability(training.set,Prob)
HX<-entropy.Shannon(prob)
Redundancia_corregida<-CalculRedundancy(training.set,q,iicc)
test<-diffInstructions (training.set,HX,HXmax,Herror,Redundancia_corregida)
Run the code above in your browser using DataLab