Create test1.R