R中的样条：正弦波的外推

Question

我需要推断一个数据集的最大值。如下图所示，我想使用曲线两端的斜率以及它们之间的时间（x轴）来推断最大值。回归应该是正弦波。

我如何使用R完成这项任务？我已经尝试了splinefun函数，但是无法管理斜率的输入。斜率的计算方式无关紧要。我可以计算它们并将它们键入R代码中，或者，如果可能的话，可以由R本身使用数据集来完成。数据集只是一个x，y集，其中x是时间，y是随机参数。

谢谢！

Answer 1