MEET (version 5.1.1)

redundancy: To calculate redundancy

Description

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

Usage

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

Arguments

HX

A entropy vector

HXmax

Maximum entropy

Herror

Error entropy

finite

Finite Sample Size

correction

If TRUE, considers correction of the finite Sample size

Details

This function depends the correction.redundancy

See Also

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

Examples

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)