分析SIR模型的遇到的问题！！！ 寻求帮助啊！！

我目前遇到的麻烦是我想用R建立一个方程，可以找到每个天数(day) T,T=0,1,2,3...有多少人是还没被感染但是可以被感染（Susceptible），已经被感染（Infective），或者感染了但是还没有产生症状（Exposed）。

当中我已经得知在每个时间T，

如果一个人是(S) 则t<Pro - (1+E),
如果他是（I）则 Pro-1<= t < =Eru + min(dead),
如果他是（E）则 Pro - (1+E) < =t < Pro - 1              
Pro 表示 他最开始出现症状的天数（发烧），Eru表示 他恶化的天数（出诊），而min(dead) 的表示如果 他最终痊愈，则min(dead)=0,如果他在5天出诊后死亡则min(dead)=5

就是说在R里面，Input = day (T= 0,1,2,3....)
output = E 和 I 还有 S 在每个 t 时的数量。

关于数据，第一例出现症状的人他的Pro 为0（10月30日），Eru为7 (11月6日) ，dead为0（没有死亡）。第二个人出现在11月1日出现症状，所以的Pro为2，11月 5日恶化，所以他的Eru为6（2+4） ，他最终在11月12日死亡，则min(dead)=7，以此类推。。

导师建议用什么where指令，从谷歌到谷姐搜个边也没找到所以然..

我反而觉得是用类似于
S<- function(T, ...)
{
answer<-(...)
return(answer)
}
这个样的指令。。。。但是中间...无法实现...不知道是我不该用还是怎样，哥哥姐姐们给点宝贵意见啊！！ 万分感谢！！！