在时间序列数据上拟合倒数二次模型

Question

我想在数据框中拟合一个倒数二次模型（合理模型），如下所示：

 df: 

 group       score_for_group
   1            2.000000
   2            3.000000
   3            2.333333
   4            1.750000
   5            2.000000
   6            1.833333
   7            2.416667
   8            1.916667
   9            1.750000
  10            2.166667
  11            2.116667
  12            1.916667

[1] 2.000000 3.000000 2.333333 1.750000 2.000000 1.833333 2.416667 1.916667
[9] 1.750000 2.166667 2.116667 1.916667 1.944444 1.611111 1.722222 1.777778
[17] 1.877778 1.944444 1.958333 1.833333 2.041667 2.020833 1.908333 1.916667
[25] 1.733333 1.833333 1.800000 1.933333 1.893333 1.866667 1.888889 1.805556
[33] 1.833333 1.847222 1.822222 1.805556 1.833333 1.904762 1.880952 1.833333
[41] 1.804762 1.809524 1.708333 1.708333 1.750000 1.708333 1.683333 1.687500
[49] 1.611111 1.666667 1.648148 1.611111 1.611111 1.611111 1.650000 1.600000
[57] 1.650000 1.625000 1.630000 1.616667 1.469697 1.560606 1.590909 1.651515
[65] 1.651515 1.651515 1.513889 1.555556 1.625000 1.638889 1.647222 1.652778
[73] 1.679487 1.717949 1.705128 1.698718

模型是：

 model <- function(t, a, b, c, d) {
  (a + b*t)/(1 + c*t + d*t^2)
   }

我不知道如何在我的数据上生成该模型（带有曲线的相对图）以及如何设置初始参数。

有人可以帮我吗？

提前谢谢

E。