自分用メモ。 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) / ex…

研究室の。手巻き寿司。 腹いっぱい食べましたとさ。