Rで行動経済学：時間割引データに割引モデル曲線をフィットしてグラフを描画する方法