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