Added new testing.r file