{"provider_name":"Hatena Blog","blog_url":"https://marui.hatenablog.com/","author_name":"amarui","width":"100%","blog_title":"\u4e38\u4e95\u7d9c\u7814","height":"190","published":"2013-05-22 10:21:07","type":"rich","provider_url":"https://hatena.blog","version":"1.0","categories":["R"],"title":"\u5b9f\u52b9\u5024(RMS)\u3092\u8a08\u7b97\u3059\u308b","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmarui.hatenablog.com%2Fentry%2F20130522%2F1369185667\" title=\"\u5b9f\u52b9\u5024(RMS)\u3092\u8a08\u7b97\u3059\u308b - \u4e38\u4e95\u7d9c\u7814\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":"http://cdn-ak.f.st-hatena.com/images/fotolife/a/amarui/20130522/20130522102046.png","author_url":"https://blog.hatena.ne.jp/amarui/","url":"https://marui.hatenablog.com/entry/20130522/1369185667","description":"\u3053\u308c\u307e\u3067Matlab\u3067\u3084\u3063\u3066\u304d\u305f\u3053\u3068\u3092R\u8a00\u8a9e\u3067\u7f6e\u304d\u63db\u3048\u3089\u308c\u306a\u3044\u304b\u3001\u691c\u8a0e\u3092\u7d9a\u3051\u3066\u3044\u307e\u3059\u3002R\u8a00\u8a9e\u306f\u7d71\u8a08\u51e6\u7406\u306b\u5f37\u3044\u306e\u3067\u3059\u304c\u6c4e\u7528\u7684\u306b\u3082\u7528\u3044\u308b\u3053\u3068\u304c\u3067\u304d\u308b\u306e\u3067\u3001\u3082\u3061\u308d\u3093\u4fe1\u53f7\u51e6\u7406\u7684\u306a\u3053\u3068\u304c\u3067\u304d\u306a\u3044\u308f\u3051\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u4eca\u56de\u306f\u97f3\u30d5\u30a1\u30a4\u30eb\u306e\u5b9f\u52b9\u5024\u306e\u8a08\u7b97\u3092\u3057\u3066\u307f\u307e\u3057\u305f\u3002\u305f\u3060\u3057\u3001\u97f3\u30d5\u30a1\u30a4\u30eb\u5168\u4f53\u306e\u5b9f\u52b9\u5024\u3067\u306f\u306a\u304f\u3001\u6642\u9593\u5206\u5272\u3092\u3057\u3066\u5b9f\u52b9\u5024\u304c\u3069\u306e\u3088\u3046\u306b\u5909\u52d5\u3057\u3066\u3044\u308b\u304b\u3092\u898b\u3089\u308c\u308b\u3088\u3046\u306b\u3057\u3066\u307f\u307e\u3057\u305f\u3002 # \u97f3\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u8fbc\u307f library(tuneR) wobj <- readWave(\"soundfile.wav\") # \u30b9\u30c6\u30ec\u30aa\u306e\u5834\u5408\u306f\u30e2\u30ce\u30e9\u30eb\u306b\u5909\u63db if (wobj@stereo == TRUE) { x <- (wobj\u2026"}