added R test plyr