require("MEET")
data(BackgroundOrganism)
data(iicc)
Factortrans<-iicc$Transcriptionfactor
correction<-correction.entropy(q=iicc$q,p=nrow(Factortrans),long=1,iicc)
ErrorHX<-slot(correction,"sderror")[nrow(Factortrans)]
HXmax<-iicc$HXmax
prob<-probability(Factortrans,Prob)
H<-entropy.Shannon(prob)
test<-entropy.corrected(H,ErrorHX,HXmax)
Run the code above in your browser using DataLab