add test_2.R