difM6_group1 <- donnes_exo$pas.M6.best[donnes_exo$groupe =="Trt1"] - donnes_exo$pas.M0[donnes_exo$groupe =="Trt1"]
difM6_group2 <- donnes_exo$pas.M6.best[donnes_exo$groupe =="Trt2"] - donnes_exo$pas.M0[donnes_exo$groupe =="Trt2"]
t.test(difM6_group1)
t.test(difM6_group2)
t.test(difM6_group1,difM6_group2)
-5.95+5.03