ハイレゾの話

2014/12/06Japan.R 2014＠株式会社フリークアウト

和田 計也

サイバー系

2014/12/06

この発表は個人の見解であり、所属する組織の公式見解ではありません。

いつものサイバー系

2

2014/12/06

u和田 計也（@wdkz）

u 静岡県袋井市出身

uサイバー系企業でデータマイニングエンジニア職u 趣味は音楽鑑賞u 最近は松浦亜弥ばっか聴いてます

u長いことバイオ業界にいたu バイオマーカ探索してたりu 枯草菌の研究してたり

自己紹介サイバー系

3

2014/12/06

ハイレゾ流行ってきましたね！(オレ的に)サイバー系

4

2014/12/06

ハイレゾで聴く価値のある曲って？？サイバー系

u 音の善し悪しは音源次第u １に録音u ２にプレマスタリングu ↑この二つがちゃんとしてないと、出口をハイレゾ化して

もお金の無駄u なお、NHKの音源は素晴らしいと思う。(おかあさんとい

っしょとか)5

自論

2014/12/06

私の現状サイバー系

u ハイレゾにはまだ手を出していないu いまだに年に100枚以上CDを買っている。理由は以下の３つ

u音質uデータ永続性u(中古市場を含めた)入手しやすい価格

u だが「あー、これCD買わんでもiTune Storeの音源で良かったわー」と感じるCDも少なくない

6

このご時世にCD買ってまで聴く価値あったわーと思えた曲はハイレゾ音源で聴く価値があるに違いない！(少なくとも自分は)

2014/12/06

やることサイバー系

u (本当に)適当にピックアップした曲を以下の２群にわける「CD買ってよかったわーって曲」「CD買わなきゃ良かったわーって曲」

u 上の曲のwavデータを用いて、機械学習u (あーでも未知データに対して予測できんわー、CD買わないと

データが入手できないじゃん...)とか言わないu CDデータから、ハイレゾ音源で聴く価値がありそうか無さそ

うか機械的に判定

7

完全に主観でジャッジ

2014/12/06

主観ジャッジ(全部好きな曲です)サイバー系

u 「CD買ってよかったわーって曲」•奥華子　「君の笑顔」「しあわせの鏡」「春夏秋冬」•Enya　「Caribbean Blue」「Only If」•Cyndi Lauper　「Time After Time」「True Colors」•しおりちゃん　「虹になりたい」「ウィンクでOK」「Butterfly」•加藤あすか　「Love Me, Please Love Me」•Norah Jones　「Come Away With Me」•中川翔子　「青春」•Michael Jackson　「Heal The World」「Human Nature」•松たか子　「Stay with me」「夢のしずく」•Cocco　「ウナイ」•浜崎あゆみ　「Who...」•平原綾香　「Jupiter」•佐藤すみれ　「君だけを守りたい」•JUDY AND MARY　「夕焼け」

8

2014/12/06

主観ジャッジ(全部好きな曲です)サイバー系

u 「CDじゃなくてもよかったわーって曲」•Perfume　「ポリリズム」「未来のミュージアム」•きゃりーぱみゅぱみゅ　「キミに100％」•Whiteberry　「自転車泥棒」「願い星」•未来玲可　「DOWN TO EARTH」•Day After Tommorow　「Smartly」•モーニング娘。　「LOVEマシーン」「恋愛レボリューション21」•かとうあすか　「大作戦」•move　「over drive」•内田有紀　「Only You」•けいおん　「ごはんはおかず」「NO, Thank You!」•TRF　「Love & Peace Forever」「EZ DO DANCE」•AKB48　「会いたかった」•Rumania Montevideo　「Still for your love」•宇多田ヒカル　「Can You Keep A Secret」•SHAKALABBITS　「Monster Tree」「Delorean」•センチメンタルバス　「サイクリングビート330」

9

2014/12/06

やったことサイバー系

u (買ってきたCDはiTunesでリッピングしてALACで保存してある)u ffmpegを使ってwavファイルに変換 (Rじゃない)

ffmpeg -i input.m4a output.wavu wavファイルからデータを曲開始後15秒～90秒の間だけ抽出　

(x軸:秒、y軸:Hz、z軸:強度)tuneR::readWave(‘output.wav’, from=15, to=90, units=‘seconds’) %>% seewave::spectro -> out.specstr(out.spec)

10

↑Aメロ＋サビを狙って

2014/12/06

データプロットするとこんな感じサイバー系

11

(๑˃̵ᴗ˂̵)!　CD買ってよかったわーっ曲 (́・ω・｀)iTune Storeでよくね？って曲

2014/12/06

やったこと・続きサイバー系

u 時間軸は無視して、音の周波数ごと(0.8kHzぐらいごと)に平均して現れる強度(デシベル)を説明変数に

u CD買ってよかった♪　悪かったを1,0の応答変数にu 変数間の相関が酷いので、PLS(Partial Least Square) glmを利

用library(plsRglm)mdl <- plsRglm(Y, X, nt=5, modele="pls-glm-logistic")

12

PLSに関してはこちらの未公開資料を参照してみて下さい→

↓潜在変数の数(適当に設定)

2014/12/06

やった手法・続き2サイバー系

mdl

13

AIC最小の潜在変数数(1)が決定される→

↓潜在変数に係る効果量

潜在変数(1)を算出するためのloading量→

2014/12/06

最近の衝撃サイバー系

スガシカオさん　　　　のこれ→

14

自分、あややの曲がいいなんてまったく思ってなかったのに、、、聴いてみたらめっちゃいいじゃん

でも、スガシカオさんに頼ることなくめっちゃいい曲わかるといいな

2014/12/06

評価方法サイバー系

15

u 「CD買ってよかったわーっていう松浦亜弥の曲」•松浦亜弥　「横浜ロンド」「渡良瀬橋」「いつもひとり」

u 「iTunes Storeでよかったんじゃね？っていう松浦亜弥の曲」•松浦亜弥　「Yeah!めっちゃホリデー」「奇跡の香りダンス」

この５曲がちゃんとCD買うべきかそうでないか予測できるかで評価

2014/12/06

結果　完璧！！サイバー系

mdl <- plsRglm(Y, X, nt=5, modele="pls-glm-logistic") #再登場matrix(predict(mdl, X.ayaya, type=”response”))

16

← Yeah!めっちゃホリディ← 奇跡の香りダンス← 横浜ロンド← 渡良瀬橋← みんなひとり

３曲ともこのアルバムに収録されてます！→

秋葉原界隈で大人気

2014/12/06

最後にサイバー系

17

u 女性ボーカルが綺麗に映える曲が好みだった自分の場合はうまくいきましたが、全ての人が満足いくレコメンドができるわけではありません。(たぶん)

u スピーカー欲しい人、低額で譲りますこれ↓の一個まえの型(GX100)左右ペア

@wdkzまでご連絡下さい！！