Bartlett_test.R

# Comparación de varianzas, más de dos muestras
# Test de Bartlett

set.seed(10)
x1 <- rnorm(30,10,1)
x2 <- rnorm(30,10,1.1)
x3 <- rnorm(30,10,1.2)
 
x <- data.frame(x1=x1,x2=x2,x3=x3)

var <- bartlett.test(x)
print(var)

## 
##  Bartlett test of homogeneity of variances
## 
## data:  x
## Bartlett's K-squared = 2.9527, df = 2, p-value = 0.2285