# Beispiel Einfaktor Varianzanalyse, Erläuterung in der Vorlesung
insect<-read.table("C:/Users/stamue/Documents/Dateien/R-Programme/insectdata.R",header=T)
anova(lm(insect$count~insect$spray),data=insect) #Alternative aov()
plot(insect$count~insect$spray)
#Paarweise Paarvergleiche mit Bonferroni Methode mit Irrtumsw. k*\alpha
pairwise.t.test(insect$count,insect$spray,p.adj="bonferroni")
#Test ohne Varianzgleichheit(Welschtest)
oneway.test(insect$count~insect$spray)