changing test.R
test