updated test2.r