R : added sum test