update on test.r