fPielou {OnomasticDiversity}

Calculate the Pielou's diversity index

Description

This function obtains the Pielou's diversity index which is an index that measures diversity along with species richness introduced by Evelyn Chrystalla Pielou. It is a method for quantifying species biodiversity that can be adapted to the context of onomastic.

Usage

fPielou(x, k, n, location, s)

Arguments

x

dataframe of the data values for each species not null (because if you have a sample, there might be species that are not represented).

k

name of a variable which represents absolute frequency for each species.

n

name of a variable which represents total number of individuals.

location

represents the grouping element.

s

vector which represents number of species.

Details

For a community i, the Pielou's diversity index is defined by J^{\prime} = \frac{H^{\prime}}{\log_2S_i}, where H^{\prime} denotes the Shannon-Wiener index and \log_2S_i denotes the maximum diversity H^{\prime}_{\max}. Pielou's index is the Shannon-Weiner index computed for the sample S_i and represents a measure of Evenness of the community. If all species are represented in equal numbers in the sample, then J^{\prime} = 1. If one species strongly dominates J^{\prime} is close to zero.

In onomastic context, S_i are all surnames in region (\approx community diversity context) i.

Value

A dataframe containing the following components:

location

represents the grouping element, for example the communities / regions.

pielou

the value of the Pielou's diversity index.

Author(s)

Maria Jose Ginzo Villamayor

References

Pielou, E. C. (1966) The measurement of diversity in different types of biological collections. Journal of Theoretical Biology, 13, 131-144.

See Also

fMargalef, fMenhinick, fShannon, fSheldon, fSimpson, fSimpsonInf, fGeneralisedMean, fGeometricMean, fHeip.

Examples

library(sqldf)
data(surnamesgal14)

apes2=sqldf('select  muni, count(surname) as ni,
sum(number) as population from surnamesgal14
group by muni;')

result = fPielou (x= surnamesgal14[surnamesgal14$number != 0,],
k="number", n="population", location  = "muni", s = apes2$ni )
result

data(namesmengal16)

names2=sqldf('select  muni, count(name) as ni,
sum(number) as population from namesmengal16
group by muni;')

result = fPielou (x= namesmengal16[namesmengal16$number != 0,],
k="number", n="population", location  = "muni", s = names2$ni )
result

data(nameswomengal16)

names2=sqldf('select  muni, count(name) as ni,
sum(number) as population from nameswomengal16
group by muni;')

result = fPielou (x= nameswomengal16[nameswomengal16$number != 0,],
k="number", n="population", location  = "muni", s = names2$ni )
result