Create test.R

test