Update Test_1.R

add one more line