Rで重回帰式 ref: http://qiita.com/ykchat/items/6ea116c5296947db435e