library(ggplot2)
library(dplyr)

################### 1. Fuer den Data-Frame preasp:
preasp = read.table(file.path(pfadu, "preasp.txt"))

# Berechnen Sie:

# 1a. den Mittelwert der Vokaldauer (vdur) der ersten 100 Beobachtungen

# 1b. die Standard-Abweichung der Vokaldauer (vdur)

# 1c. die Summe der Verschlussdauer (clodur) und Verschlussloesungsdauer (clorel) 
# (also eine Summe pro Beobachtung).

# 1d. den Mittelwert der Vokaldauer (vdur) der letzten 250 Beobachtungen.



# 1e. das Verhaeltnis der Vokaldauer (vdur) zur Verschlussdauer (clodur) 
# (ein Verhaeltnis pro Beobachtung).


# 1f. den interquartalen Bereich der Verschlussdauer (clodur).


########## 2.  Man kann mittels dplyr eine Funktion auf eine numerische Variable 
# getrennt fuer die Stufen einer oder mehrere Faktoren anwenden, in dem man
# der Schreibweise in modularisierter Form einen group_by()-Befehl anfuegt:
preasp%>%
  group_by(vtype)%>%
  summarise(mean(vdur))
#bzw.fuer Vokal UND Region:
preasp%>%
  group_by(region,vtype)%>%
  summarise(mean(vdur))

# N.B.: Man kann, muss aber nicht die einzelnen Module in eine neue Zeile schreiben; z.B.
preasp%>%group_by(region,vtype)%>%summarise(mean(vdur))


# (a) Berechnen Sie die Mittelwerte der Verschlussdauer (clodur) in Plosiven 
# mit und ohne Praeaspiration (Faktor: Pre)

# (b) Berechnen Sie die Standardweichungen der Vokaldauer (vdur) 
# in den Vokalen /a, e, o/ (Faktor vtype) mit und ohne Betonung (Faktor ptonic).




########## 3. Die VOT-Werte in einem initialen /t/ fuer 9 franzoesische Sprecher waren:
davor = c(3, 0, 6, 7, 4, 3, 2, 1, 4)
# Die VOT-Werte nachdem die selben 9 Sprecher deutsche Woerter gehoert hatten waren:
danach = c(5, 1, 5, 7, 10, 9, 7, 11, 8)
# Pruefen Sie anhand von einer Abbildungen und einem statistischem Test, 
# ob VOT aufgrund der Wahrnehmung beeinflusst wird.




########## 4. Die VOT-Werte fuer /d/ von 15 deutschen monolingualen Sprechern waren:
mon = c(26, 26, 26, 28, 18, 21, 19, 25, 23, 29, 22, 22, 24, 23, 22)

# Die VOT-Werte fuer /d/ von 15 deutsch-franzoesisch bilingualen Sprechern waren:
bil = c(18, 20, 20, 26, 17, 23, 20, 16, 20, 18, 21, 29, 20, 25, 19)

# Pruefen Sie anhand einer Abbildungen und statistischem Test, 
# ob VOT aufgrund der Sprachkenntnisse beeinflusst wird.




########## 5.Dieser Data-Frame:
wort = read.table(file.path(pfadu, "wort.txt"))

# enthaelt die folgenden Variablen:
# Properkannt (a): die Proportion der richtig erkannten Woerter in einem Fremdsprachentest
# Wochen (b): wieviele Wochen die Teilnehmer im Land der Fremdsprache gewohnt hatten.
# Gruppe (c): ob die Teilnehmer Anfaenger oder Fortgeschrittene sind.
# Geschult (d): ob die Teilnehmer an einem Kurs in der Fremdsprache teilgenommen hatten.
# Vpn (e): eine Verschluesselung fuer die Versuchsperson.

# i. Pruefen anhand einer Abbildung, inwiefern (a) von (b) beeinflusst wird.

ggplot(wort)+
  aes(x=Wochen,y=Properkannt)+
  geom_point()

# ii. Erstellen Sie noch einmal dieselbe Abbildung wie in i., 
# aber differenzieren Sie durch eine Farbkodierung zusaetzlich 
# in der Abbildung zwischen Anfaengern und Fortgeschritten (c).
ggplot(wort)+
  aes(x=Wochen,y=Properkannt,col=Gruppe)+
  geom_point()

# iii. Pruefen Sie durch eine Abbildung, ob Proberkannt (a)
# (1) von der Gruppe (c) 
# und/oder 
# (2) von der Teilnahme an einem Kurs in der Fremdsprache (d)
# beeinflusst wird.

########## 6. Dieser Vektor enthaelt 24 Reaktionszeitmessungen (in Millisekunden), 
# um /t, d/ zu differenzieren. 
rt = c(147, 116, 152, 160, 157, 164, 271, 220, 227, 272, 263, 280, 173, 149, 110, 101, 132, 107, 146, 148, 146, 118, 129, 169)

# Die Reaktionszeiten wurden von 2 Dialektgruppen (Franken, Oberbayern) 
# und 2 Altersgruppen (alt/jung) wie folgt erhoben:
# Elemente 1-6: Die Versuchspersonen waren aus Franken und jung
# Elemente 7-12: Die Versuchspersonanen waren aus Franken und alt
# Elemente 13-18: Die Versuchspersonen waren aus Oberbayern und jung
# Elemente 19-24: Die Versuchspersonanen waren aus Oberbayern und alt

# Pruefen Sie anhand einer Abbildung, ob die Reaktionszeiten von der Region 
# und/oder Altersgruppe beeinflusst wurden.