単回帰モデルの推定

ワークスペースには、販売データセット salesData がすでに読み込まれています。直近3か月の売上は当月の売上と強い正の相関があることを確認しました。そこで、まずはそれを説明変数として線形回帰に組み込みましょう。

lm() 関数を使って、salesLast3Mon を説明変数とする線形回帰モデルを指定し、オブジェクト salesSimpleModel に代入してください。
次に summary() 関数を使って、結果を確認してください。
回帰係数を見てください。2つの変数の関係は正か負か、どちらでしょうか？
当月の売上のばらつきのうち、直近3か月の売上でどの程度が説明できますか？