Dear Mrs Megha Narayanan,
Thank you for your excellent work. I downloaded your code, but I get an error message every time I verify it. Can you help me out here?
Error:
$RecursionLimit: Recursion depth of 1024 exceeded during evaluation of Flatten[mList]
If[RandomReal[{0, recoveryTime}] < mProb,
iCounter = KeyDrop[iCounter, #]; mList = Append[mList, #],
Nothing] & /@ Keys[iCounter];
mList = Flatten[mList];
Thanks and best regards,... Jos
