Update test.r