var_test.R

# Comparación de varianzas, dos muestras
set.seed(10)
x1 <- rnorm(30,10,1)
x2 <- rnorm(30,10,1.5)

var <- var.test(x1,x2)
print(var)

## 
##  F test to compare two variances
## 
## data:  x1 and x2
## F = 0.3717, num df = 29, denom df = 29, p-value = 0.009565
## alternative hypothesis: true ratio of variances is not equal to 1
## 95 percent confidence interval:
##  0.1769196 0.7809555
## sample estimates:
## ratio of variances 
##          0.3717073