Discrete-time individual-based modeling in R

i)Write a function that simulates a fixed number of generations of a discrete time individual-based SIR model. Your function should have the following user-specified arguments: initial vector of individual labels (e.g., (S, S, S, I,S)), infection probability p, and number of generations.

ii. Assuming that initially, the population of interest has 9 susceptible individuals, 1 infectious individual, and 0 removed individuals, print 5 realizations of label vectors at each generation, usingp=0.3andr=5.