update some R test codes
update some R test codes