Create test.R