R Ifelse温度模型

我正在R中建立一个模型，我在开尔文CSV文件中有一个每日温度数据的数据框。我将为每个站点分别运行模型。我建立模型的文献基于状态：当温度上升到285.15以上时，产卵被诱导，ER降低到0，这意味着我的图形输出应该下降到零，并在温度降低后再次开始爬升。我的问题是：如何将此命令写入R？到目前为止，我写了：

spawn <- ER
spawning <- ifelse(Mussel_Daily_Temp$AS_TEMP > 285.15, ER-ER, 0)

我的参数如下所示：

param <- list(Temperature = Mussel_Daily_Temp$AS_TEMP, etc....)

---

任何帮助都将不胜感激

您走的是正确的道路：

ifelse(Mussel_Daily_Temp$AS_TEMP > 285.15, 'ER-ER', 0)

---

警告消息：1:在doTryCatchreturnexpr，name，parentenv，handler:显示列表重画不完整2:在doTryCatchreturnexpr，name，parentenv，handler:无效图形状态中，它在控制台中返回了以下内容…在不更改赋值器的情况下尝试，很遗憾…没有显示错误。这就是我目前所拥有的：spawn 285.15，'ER-ER'，0请给出一些示例数据和预期结果。整个模型使用周期性水温数据（以开尔文为单位），因此每年一次，水温将升高到285.15 K以上——足以触发产卵事件，从而耗尽“ER”或有效繁殖储备——我指的是数据框。请将Mussel_Daily_Temp的头部粘贴到问题中，并在代码运行后显示数据。

ifelse(Mussel_Daily_Temp$AS_TEMP > 285.15, 'ER-ER', 0)