###Laden der gegebenen Daten
source("BLECH.DAT")
source("BLECH2.DAT")

###Prügung der Normalverteilungsannahme
##Q-Q-Normal-Plots
#Definition des Graphikfensters
par(mfrow=c(1,2))

#BLECH1
qqnorm(BLECH,pch=16)
qqline(BLECH,lwd=2)

#BLECH2
qqnorm(BLECH2,pch=16)
qqline(BLECH2,lwd=2)

##Shapiro-Wilk Test
#BLECH1
shapiro.test(BLECH)

#BLECH2
shapiro.test(BLECH2)

###Prüfung der Gleichheit der Varianen
var.test(BLECH,BLECH2)

###Prüfung der Gleichheit der Mittelwerte
##Annahme: Normalverteilte Daten und gleiche Varianzen
t.test(BLECH,BLECH2,var.equal=T,alternative="two.sided")

##Annahme: Normalverteilte Daten und verschiedene Varianzen
#(Lassen nun nur noch p-Wert und Wert der Teststatistik ausgeben)
t.test(BLECH,BLECH2,var.equal=F,alternative="two.sided")$p.value
t.test(BLECH,BLECH2,var.equal=F,alternative="two.sided")$statistic

##Annahme: keine zwingend normalverteilten Daten
wilcox.test(BLECH,BLECH2,alternative="two.sided")