R 如何指定线性函数和S形函数的组合公式

在

temp

上有一个数据帧

df\u heat

和

heat\u输出。作为第一个近似值，您可以使用两个线性模型和一个断点拟合曲线：

lm（数据=df\u热量，热量输出~temp+I（pmax（17温度，0）））


我喜欢为低温拟合线性模型，为高温拟合S形函数，就像（德语）中建议的那样。断裂点可以是5°C时的固定值


如何在R中指定此公式？
下面提出了一个模型。该方程包括四个参数a、c、tc和lambda。
曲线的形状由参数lambda控制。
非线性回归可用于评估四个参数，并与数据拟合

这看起来很有希望。附加问题：您知道如何将其转换为
R
公式吗？我想非线性模型的nls和参数自动计算的SSlogis是有原因的？对不起，我不熟悉软件R。我有自己的软件（不是商业软件）。我想R和其他商业软件一样可以做到这一点。主要的困难是初始粗略评估开始迭代演算所需的参数。这取决于大量的数据类型（分布、大小、散布等等）。您应该尝试使用自己的数据并查看。