Difference between revisions of "Diversity index"
From Testiwiki
(→Answer) |
(→Answer) |
||
Line 20: | Line 20: | ||
} | } | ||
diversity <- function(species = 1:length(amount), amount = rep(1,length(species))){ | diversity <- function(species = 1:length(amount), amount = rep(1,length(species))){ | ||
− | |||
− | |||
pi <- tapply(amount, species, sum) | pi <- tapply(amount, species, sum) | ||
pi <- pi/sum(pi) | pi <- pi/sum(pi) | ||
Line 41: | Line 39: | ||
if(is.null(data)) {data <- c(1,4,6,9,3,4,5,6,5,4,3,3,5,5,7,5,5,4,3,4,5,6,8,9,5,4,5,4,3,3,4,9,6,6,4,5,3,2,1,1,2,3,4,3,2,3,4,5,6,7,7)} | if(is.null(data)) {data <- c(1,4,6,9,3,4,5,6,5,4,3,3,5,5,7,5,5,4,3,4,5,6,8,9,5,4,5,4,3,3,4,9,6,6,4,5,3,2,1,1,2,3,4,3,2,3,4,5,6,7,7)} | ||
data | data | ||
− | + | if(individual==TRUE) out <- diversity(species = data) else out <- diversity(amount = data) | |
− | |||
− | if(individual==TRUE) | ||
− | out <- diversity( | ||
print(xtable(out), type = 'html') | print(xtable(out), type = 'html') | ||
</rcode> | </rcode> |
Revision as of 17:57, 7 January 2012
This page is a method.
The page identifier is Op_en5455 |
---|
Moderator:Jouni (see all) |
This page is a stub. You may improve it into a full page, and then a rating bar will appear here. |
Upload data
|
Question
How to calculate diversity indices?
Answer
Upload your data to Opasnet Base. Use the function diversity to calculate the most common indices.
Actual function diversity
Example to use function
The data should be given in R format as a list of values in parenthesis, beginning with c:
c(3,5,3,5,2,1,3,3,4,2) or equivalently c(0.1,0.2,0.4,0.1,0.2)
where the values are either
- identifiers of the species 1,2,3... in which the individuals belong (one entry per individual), or
- abundancies of species, i.e. proportions of individuals belonging to each species among the whole population (one entry per species).
Rationale
Diversity indices are thoroughly described in Wikipedia.
See also
References
Related files
<mfanonymousfilelist></mfanonymousfilelist>