R/entropy.Renyi.R

Defines functions entropy.Renyi

Documented in entropy.Renyi

entropy.Renyi <-function(wind,q){
	h<-apply(wind,2,function(y){
			sum(y^q)
		})
	H<-(1/(1-q))*log2(h+.Machine$double.eps)

	return(H)
}

Try the MEET package in your browser

Any scripts or data that you put into this service are public.

MEET documentation built on May 2, 2019, 5:52 p.m.