Expanded random_test.R