Create testing.r