音声処理での距離尺度

自分用メモ。

f <- c(4, 8, 3, -3, 4, 10, 8, 7)
y1 <- c(-3, 3, 0, -1, 2, 6, 3, -2)
y2 <- c(-1, 6, 8, 6, 1, 3, 6, 11)

# ユークリッド距離
sqrt(sum((f - y1)^2))
sqrt(sum((f - y2)^2))

# 板倉-斎藤歪み距離
1 / length(f) * sum(f - y1 + exp(y1) / exp(f) - 1)
1 / length(f) * sum(f - y2 + exp(y2) / exp(f) - 1)

Rで7行。