dip = read.table(file.path(pfad, "dip.txt"))


# alle Reihen, Diphthong = "aI"
temp = dip[,2] =="aI"
erg = dip[temp,]


# alle Reihen Diphthong = "aI" oder "aU"

# alle Reihen, Diphthong = "aI" und Sprecher ist 67

# alle Reihen Diphthong = "aI" und Sprecher ist nicht 68

# wie oben, nur Spalten 1 und 3

mp = read.table(file.path(pfad, "mp.txt"))

# Alle Reihen wenn durv1 zwischen 100 und 150 liegt

# Alle Reihen wenn peak größer als 0.5 ist, quantity ist Q1 oder Q3

# Die peak Werte wenn der tail K ist und durv1 weniger als 150 ist

# eine Matrix (2D) von speaker und quantity wenn tail L ist

# Alle Reihen: speaker ist EC, KK, LS und quantity ist Q1, Q3