make a test R file