##Einlesen der Daten
setting<-read.table("SETTING.DAT")
a<-setting[,1]
b<-setting[,2]
c<-setting[,3]
d<-setting[,4]

##Lagemaße
#Quantile und des Medians
quantile(a,p=c(0.25,0.5,0.75),type=2)
quantile(b,p=c(0.25,0.5,0.75),type=2)
quantile(c,p=c(0.25,0.5,0.75),type=2)
quantile(d,p=c(0.25,0.5,0.75),type=2)

#Mittelwerte
mean(a)
mean(b)
mean(c)
mean(d)

##Streuungsmaße
#Spannweite
max(a)-min(a)
max(b)-min(b)
max(c)-min(c)
max(d)-min(d)

#Quartilsabstand
quantile(a,p=0.75,type=2)-quantile(a,p=0.25,type=2)
quantile(b,p=0.75,type=2)-quantile(b,p=0.25,type=2)
quantile(c,p=0.75,type=2)-quantile(c,p=0.25,type=2)
quantile(d,p=0.75,type=2)-quantile(d,p=0.25,type=2)

#Median der absoluten Abweichung
mad(a,constant=1)
mad(b,constant=1)
mad(c,constant=1)
mad(d,constant=1)

#Standardabweichung
sd(a)
sd(b)
sd(c)
sd(d)

#Varianz
var(a)
var(b)
var(c)
var(d)

#Quartilskoeffizient
2*(quantile(a,p=0.75,type=2)-quantile(a,p=0.25,type=2))/(quantile(a,p=0.75,type=2)+quantile(a,p=0.25,type=2))
2*(quantile(b,p=0.75,type=2)-quantile(b,p=0.25,type=2))/(quantile(b,p=0.75,type=2)+quantile(b,p=0.25,type=2))
2*(quantile(c,p=0.75,type=2)-quantile(c,p=0.25,type=2))/(quantile(c,p=0.75,type=2)+quantile(c,p=0.25,type=2))
2*(quantile(d,p=0.75,type=2)-quantile(d,p=0.25,type=2))/(quantile(d,p=0.75,type=2)+quantile(d,p=0.25,type=2))

#Variationskoeffizient #berücksichtigt "Größe" der Daten
sd(a)/mean(a)
sd(b)/mean(b)
sd(c)/mean(c)
sd(d)/mean(d)