r - 努力将数学表达式转换为代码以便我可以表示它

我离开了一个给定的场景：

在1000头水牛的种群中有一种疾病。10%的感染者可能会出现并发症。疾病持续2周，幸存者终生免疫。一头水牛要100 欧元，疫苗要10 欧元 为整个牛群接种疫苗在经济上是否合理？

因此，做出一些假设并与之分开，我想出了这个：

只有在 -->

Y（死水牛）/（感染水牛）* 0.1* X（感染水牛）/（健康水牛）* 1000 健康水牛 * 100 欧元/（死水牛）> 10.000 欧元</p>

然后我简化了将最终死亡的并发症动物的百分比转化为从 0 到 1 的变量 (K)。

Y（死水牛）/（受感染水牛）* 0.1 * X（受感染水牛）/（健康水牛）= K。死水牛数量（D）= 1000 * K

然后是最简化的表达式：

F(x) = 成本 =(10*V) + 100*(D)

V= 接种疫苗的人数

D= 死亡人数= 1000*K；K 在 0 和 1 之间变化

我完全不知道如何将其输入 R 并将其表示为图形，我尝试过使用函数和曲线，但我尝试的一切基本上都是无稽之谈。

关于如何进行的任何想法？

标签： rmodel