備忘録のために、Rのサンプルコードをアップロードしました。