library(ggplot2)
library(dplyr)
library(ez)

###########################################################################
# 1. 'Uebungen'
###########################################################################
# 1. 
ger = read.table(file.path(pfadu, "ger.df.txt"))
# Die Bewegung (mm) des Kiefers wurde von 10 Sprechern mit zwei 
# verschiedenen Geraeten erhoben.
# Haben die Geraete einen Einfluss auf die Messwerte?
# Testen Sie, ob die Werte gepaart sind!


# 2.
# Fuer den vorhandenen Data-Frame 'trees' pruefen Sie
# inwiefern Height aus Volume  vorhersagbar ist. 
# Schaetzen Sie Height ein bei einem Volumen von 110.

head(trees)


# 3. 
form = read.table(file.path(pfadu, "f2.int.df.txt"))
# 25 Versuchspersonen produzierten /ipi/ und
# F2 wurde im Vokal kurz vor dem /p/ und kurz nach dem /p/ gemessen.
# Hat die Position (ob davor oder danach) einen Einfluss auf F2?

# 4. 
# Fuer diese Daten wurde F2 - F1 (Hz) in einem Vokal
# zwischen 1910 und 1997 gemessen. aendert sich F2-F1 mit der Zeit?
# Wenn ja, schaetzen Sie den Wert von F2-F1 ein im Jahr 2012.

jahr = c(1910, 1920, 1930, 1940, 1950, 1959, 1969, 1978, 1987, 1997)
fdat = c(139, 149, 157, 175, 216, 303, 390, 449, 462, 487)

# 5. 
# Fuer diese Daten:
zweit = read.table(file.path(pfadu, "zweit.df.txt"))
# nahmen Versuchspersonen (Vpn) an einem Test in einer zweiten Sprache teil 
# (l2score). Pruefen Sie durch eine Abbildung und statistischen Test, 
# ob l2score durch Geschlecht (G) beeinflusst wird.
# Geschlecht ist eindeutig between. Gibt es aber einen Wert pro Sprecher?


# 6. 
# Die Grundfrequenz wurde in der selben Person
# in einem Zeitraum von 10 Jahren gemessen.
# Der erste Werte ist aus 1987, der letzte aus 1996
# 137.0   131.2   127.1   123.4   119.2   114.6   109.6   104.5   99.4    95.3
# aendert sich die Grundfrequenz mit der Zeit?
# Wenn ja, welchen Wert muesste f0 im Jahr 2000 gehabt haben?
grund = c(137, 131.2, 127.1, 123.4, 119.2, 114.6, 109.6, 104.5, 99.4, 95.3)