Create test2.r