require("MEET")
data(TranscriptionFactor)
data(BackgroundOrganism)
data(RenyiOrder)
data(iicc)
Factortrans<-TranscriptionFactor
correction<-correction.entropy(q,p=nrow(Factortrans),long=1,iicc)
Herror<-slot(correction,"Herror")
HXmax<-iicc$HXmax
correction.redundancy(r=1,HXmax,Herror,finite=nrow(TranscriptionFactor))
Run the code above in your browser using DataLab