M <- generateHazardMatrix(5)
largeM <- generateHazardMatrix(6)
oldM <- [email protected]
newM <- [email protected]
M_addedState <- addStateMatrix(newM, oldM, stateName ="newState", after =3, newCell=0)
Run the code above in your browser using DataLab