Update test.R

test