TimeConstraint option allows one to stop the evolution early. If an evolution object is requested, it will return
a partial result, otherwise, it will just give $Aborted:
In[] := WolframModel[{{1, 2}} -> {{1, 3}, {1, 3}, {3, 2}},
{{1, 1}}, Infinity, TimeConstraint -> 1]![Out[] = WolframModelEvolutionObject[... Generations: 9...10, Events: 12454 ...]](/maxitg/SetReplace/raw/7b4fabdc33857213970323e2e94d4b9fefdf46ed/Documentation/Images/TimeConstrainedEvolutionObject.png)