Update test.R