redundancy: To calculate redundancy
In MEET: MEET: Motif Elements Estimation Toolkit

Description Usage Arguments Details Author(s) See Also Examples

This function calculates the redundancy of random variable X with N possibles states

1	redundancy(HX, HXmax, Herror, finite, correction = TRUE)

`HX`	A entropy vector
`HXmax`	Maximum entropy
`Herror`	Error entropy
`finite`	Finite Sample Size
`correction`	If TRUE, considers correction of the finite Sample size

This function depends the correction.redundancy

Joan Maynou <joan.maynouatupc.edu>

correction.redundancy, correction.entropy, entropy.Shannon,entropy.Renyi

require("MEET")
data(BackgroundOrganism)
data(iicc)
q<-iicc$q
Factortrans<-iicc$Transcriptionfactor
HXmax<-iicc$HXmax
correction<-correction.entropy(q,p=nrow(Factortrans),long=1,iicc)
Herror<-slot(correction,"Herror")
pmX<-probability(Factortrans,Prob)
HX<-switch(iicc$classentropy,"Shannon"=entropy.Shannon(pmX),"Renyi"=entropy.Renyi(pmX,q))
test<-redundancy(HX,HXmax,Herror,finite=nrow(Factortrans),correction=TRUE)