R : added plus test