Updated random_test.R