Fukuta's U を算出するRスクリプト

UverWorldに似ていると言われた回数から、Fukuta's U を返すRスクリプトを作りました。
ご自由にお使い下さい。

スクリプト

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

FukutaU <- function(c){
 0.5 / (exp(1/c) - 0.5)
}

Fukuta's Uの概要

UverWorld のボーカルの人に似ているかどうか。

Fukuta's Uは理論上 0 から1 をとり、大きいほどUverWorld類似度が高い。

定義

UverWorld のひとに似てると言われた回数を C としたとき、

使用例

30回は似てると言われたことのあるじゅんや君と1回も言われたことのない私（てらさわ）との比較

> x <- c(30,0)     
>   names(x) <- c("じゅんや","てらさわ")
> 
> FukutaU(x)
 じゅんや  てらさわ 
0.9365135 0.0000000 
>  
> barplot(FukutaU(x),main="Fukuta's U")
>