R/pqSum.R

Defines functions pqSum

pqSum <-
function(p, q = q) {
  if (q != 1) {
    temp.sum <- sum(p[p > 0]^q)
  }
  if (q == 1) {
    temp.sum <- sum(p[p > 0] * log(p[p > 0]))
  }
  return(temp.sum)
}

Try the hierDiversity package in your browser

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

hierDiversity documentation built on May 2, 2019, 12:39 p.m.