Looping over assign function with a fomula as a value in R

Question

I have 3 state variables: S, I and R. I would like to run a loop to create "N" differential equations (e.g. dS1, dS2,..., dSn, dI1, dI2,..., dIn, dR1, dR2,..., dRn