Rでお遊び：Rでカラオケしませんか？「karaoke」パッケージ

wavファイルのボーカル部分を減衰、エコー処理？するパッケージの紹介です。処理ファイルによってはノイズが再生されます。ファイル再生の音量に注意してください。

処理ファイルの適性があるようですが、面白いので紹介します。

パッケージバージョンは1.0。実行コマンドはR version 3.2.3で確認しています。

＜おすすめのRに関する書籍です＞

改訂3版 R言語逆引きハンドブック | 石田 基広

Amazonで石田 基広の改訂3版 R言語逆引きハンドブック。アマゾンならポイント還元本が多数。石田 基広作品ほか、お急ぎ便対象商品は当日お届けも可能。また改訂3版 R言語逆引きハンドブックもアマゾン配送商品なら通常配送無料。

www.amazon.co.jp

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#パッケージのインストール
install.packages("karaoke")

#パッケージの読み込み
library("karaoke")
library("tcltk")

#wavファイルを指定
WavFile <- paste0(as.character(tkgetOpenFile(title = "wavファイルを選択",
                                             filetypes = '{"wavファイル" {".wav"}}',
                                             initialfile = "*.wav")))

#保存場所を指定
SeveDir <- paste0(as.character(tkchooseDirectory(title = "保存場所を選択"), sep = "", collapse =""),
                  "/KARAOKE.wav")

#ボーカル部分を減衰,エコー処理？してKARAOKE.wavで出力
karaoke(infile = WavFile,
        outfile = SeveDir,
        sampf = NULL)           

少しでも、あなたの解析が楽になりますように！！

＜おすすめのRに関する書籍です＞

Rクックブック 第2版 | J.D.Long, Paul Teetor, 大橋真也

AmazonでJ.D.Long, Paul Teetor, 大橋真也のRクックブック 第2版。アマゾンならポイント還元本が多数。J.D.Long, Paul Teetor, 大橋真也作品ほか、お急ぎ便対象商品は当日お届けも可能。またRクックブック 第2版もアマゾン配送商品なら通常配送無料。

www.amazon.co.jp