Nothing
MRQ <- function(Z) {
# polarization index (Montalvo and Reynal-Querol 2005); cited in Ziller 2014
z <- length(Z)
# standardizing frequency vector if necessary
if (!sum(Z) == 1) Z <- Z/sum(Z)
4 * sum(Z[1:z]^2*(1-Z))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.