R/entropy.Shannon.R

Defines functions entropy.Shannon

Documented in entropy.Shannon

entropy.Shannon <-function(wind){
	
	H<-apply(wind,2,function(y){
			 h<- (-y*log2(y+.Machine$double.eps))
			 h[which(is.na(h))]<-0
			 return(sum(h))
			 })
			 
		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.