試作モデル

2つの物体間の距離ごとに測定した重力のデータセットが与えられ、特定の距離から力を予測するシンプルなモデルを構築する課題です。まずは単回帰（線形回帰）で試してみたいと考えています。データは distance と force の120組からなり、newton として読み込まれています。

ベースRの線形モデル関数を使って newton データに対する線形モデルを構築し、lr_force に代入します。
予測値を元の newton データに結合して、新しいデータフレーム df を作成します。
ggplot() を使って、distance に対する force の散布図を作成します。
散布図に当てはめ値を用いた回帰直線を追加します。