Made some changes...
1. Removed crazy values from state X and r and change to NaNs
2. Pulls from a distribution
3. Split up plots out of loop just for plotting ease