#Biostatistics 240

#ONE-WAY ANOVA TABLE
#WELCH'S F-TEST FOR ALL MEANS

ZAR=read.table("ZarEX10.3R.txt")
ZAR
attach(ZAR)

Y=potassium
X=factor(variety)

options(digits=12)
anova(lm(Y~X))

?oneway.test
oneway.test(Y~X,var.equal=FALSE)