x <- rnorm(50, mean = 0, sd = 2) # génération d'un échantillon x suivant la loi normale y <- rnorm(30, mean = 1, sd = 1)# génération d'un échantillon y suivant la loi normale var.test(x, y) # test F