require("MEET")
data(iicc)
data(BackgroundOrganism)
training.set<-iicc$Transcriptionfactor
q<-iicc$q<-0.5
correction<-correction.entropy(q,p=nrow(training.set),long=1,iicc)
HXmax<-iicc$HXmax
pmX<-probability(training.set,Prob)
Probtrans<-probability.couple(Prob)
H<-entropy.Renyi(pmX,q)
pmXY<-joint.probability(training.set, Prob, Probtrans)
HXY<-entropy.joint(pmXY,q,iicc)
divergence.Renyi(training.set,pmX,pmXY,q,correction)
Run the code above in your browser using DataLab