I think the naming functions in the TS matrix in the MicroSim function in Appendix B should be (in lines 128 and 129):
rownames(TS) <- paste("Ind", 1:n.i, sep = " ") # name the rows of the matrix
colnames(TS) <- paste("Cycle", 0:n.t, sep = " ") # name the columns of the matrix
From:
rownames(TS) <- paste("Cycle", 0:n.t, sep = " ") # name the rows of the matrix
colnames(TS) <- paste("Ind", 1:n.s, sep = " ") # name the columns of the matrix