Create testing.R

need to delete