Many thanks for sharing this beautiful work. At the point
TableForm@RandomSample[sim["History"], 3]
I am getting the error: RandomSample::smplen: RandomSample cannot generate a sample of length 3, which is greater than the length of the sample set {}. If you want a choice of possibly repeated elements from the set, use RandomChoice.
What am I getting wrong?