Calculates the Shannon entropy value
shannon(p)
p
A vector of epiallele probabilities
The Shannon entropy value
a<-c(rep(0,13),60.86960,0.00000,39.1304) shannon(a)