# Comparación de medias, ANOVA
# Prueba paramétrica
datos <-read.table(file="http://pastebin.com/raw.php?i=UHacpEu2",header=T)
# mediante factores
x <- datos$x # Se extrae la variable x de la tabla
f <- datos$f # Factores
test <- aov(x~f)
print(summary(test))## Df Sum Sq Mean Sq F value Pr(>F)
## f 2 15.41 7.704 8.337 3e-04 ***
## Residuals 297 274.46 0.924
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1