Create test3.r