Delete Random Test Data.R