new test R file