AZC値を算出するRスクリプト（バンドメンバーの独占度を示す指標）

以下をコピー＆ペーストしてください

azc <- function(m){
   sum(max(m/sum(m)) - (m/sum(m))
    )/(
   length(m)-1)
}

あるバンドにおいて、特定の人物（一般的にボーカル）に人気・知名度・貢献度が一極集中している度合を、「安全地帯」にちなみAZCとする。

「人気・知名度・貢献度」などを一括して「重要度」としたとき、n人で構成されるバンドのメンバーそれぞれの「重要度」mを

$m = \{{m_{1}, m_{2}, m_{i}, \cdots m_{n} }\}$

とする。すると、各メンバーの重要度のシェアpは、

$p = \{ \frac{m_{1}}{\sum{m}}, \frac{m_{2}}{\sum{m}}, \frac{m_{i}}{\sum{m}}, \cdots \frac{m_{n}}{\sum{m}} \}$

このとき、AZC値は、

$AZC = \frac {\sum{(\max{p} - p_{i})}}{ n-1}$

AZC値は理論上 0 から1 をとり、大きいほど独占度が強い。一般的に、

こにしき（言葉・日本社会・教育）