1. Added example and test.R to understand how example ran