Create test1.r