stuartjonesstats

monsterlist <- c() #This will hold the number of disabled in each sim run

for (h in 1:100){ #Repeat simulation 100 times


disabled <- c() #This will hold the disabled within each sim run

population <- as.vector(c(rep(0,10000))) #The population of 10,000