formule en R + comparaisons