Create testing.R