Ajout d'un script R de test.