ajout dans script R : courbes se ressemblent