R Sample Source Code