Change default example.
Print R-code at the end of example.