require("MEET")
data(BackgroundOrganism)
data(iicc)
training.set<-iicc$Transcriptionfactor
Probtrans<-probability.couple(Prob)
pmXY<-joint.probability(training.set, Prob, Probtrans)
test<-entropy.joint(pmXY,q=iicc$q,iicc)
Run the code above in your browser using DataLab