R Walkthrough __top__: X-change