ajout de code pour R