Changed testing R files into two