add test R file