# To run the simulation with default parameters:
result <- simulate_Host_Heterogeneity_Model_ode()
# To choose values other than the standard one, specify them like this:
result <- simulate_Host_Heterogeneity_Model_ode(S1 = 2000,I1 = 2,R1 = 0,S2 = 400,I2 = 2,R2 = 0)
# You can display or further process the result, like this:
plot(result$ts[,'time'],result$ts[,'S1'],xlab='Time',ylab='Numbers',type='l')
print(paste('Max number of S1: ',max(result$ts[,'S1'])))
Run the code above in your browser using DataLab