################################################
ai = read.table(file.path(pfadu, "ai.txt"))

# Für den vorhandenen Data-Frame 'ai' schreiben Sie R-Befehle für:
# F1 von Beobachtung 10
ai[10,1]
# oder
ai$F1[10]

# F1, Beobachtungen 12 und 14

# F1, Beobachtungen 1-5, 16, und 21-25

# Alle Werte der Lippe, außer dem zweiten

# Alle Werte des Kiefers, außer den ersten 10

# Beobachtungen 18, 20, 24

# F1 und Kiefer, Beobachtungen 20-25 (2 Spalten, 6 Reihen)

# F1 und Lippe, Beobachtungen 9, 12, 18 (2 Spalten, 3 Reihen)

# 'Lippe + Kiefer' aller Beobachtungen (eine Spalte, also einen Wert pro Beobachtung)

# F1 aller Beobachtungen minus 100

# Der F1-Mittelwert aller Beobachtungen

# F1 aller Beobachtungen minus den F1-Mittelwert


asp = read.table(file.path(pfadu, "asp.txt"))
# Wieviele Beobachtungen gibt es? Wieviele Variablen?

# Verwenden Sie die 'head()' Funktion, um die ersten paar Reihen zu sehen

# Identifizieren Sie die Variablen-Namen: Diese sind: 'd': die Aspirationsdauer, 'Wort': das Wort, in dem die Aspiration vorkam, 'Vpn': die Versuchsperson (Sprecher); 'Kons': der Konsonant, in dem die Aspiration vorkam;  'Bet': ob die Silbe, in der die Aspiration vorkam, betont war, oder nicht.

# Berechnen Sie den Dauer-Mittelwert aller Beobachtungen

# Berechnen Sie den Dauer-Mittelwert von Beobachtungen 1 bis 1000

# Verwenden Sie die 'table()' Funktion, um die Konsonanten zu tabellieren