Update TothStationaryDensity.R

Minor re-factoring, plot both sides of the book