# pfadu = "http://www.phonetik.uni-muenchen.de/~jmh/lehre/Rdf"

library(ggplot2)
library(dplyr)
library(ez)
library(lmerTest)
library(emmeans)
source(file.path(pfadu, "phoc.txt"))
source(file.path(pfadu, "sig.fn.R"))

proben <- function(unten = 1,
                   oben = 6,
                   k = 10,
                   N = 50)
{
  # default: wir werfen 10 Wuerfel 50 Mal
  alle <- NULL
  for (j in 1:N) {
    ergebnis = mean(sample(unten:oben, k, replace = T))
    alle = c(alle, ergebnis)
  }
  alle
}


#Dann die benoetigten data.frames:
alvr = read.table(file.path(pfadu, "alvrk.txt"))
a.df = read.table(file.path(pfadu, "aufnahme.df.txt"))
formAB = read.table(file.path(pfadu,"formAB.txt"))
dbwort.df = read.table(file.path(pfadu,"dbwort.df.txt"))
########################################################################################################
# Ende des Headers #####################################################################################
########################################################################################################

# 1. In diesen Daten
head(alvr)
# werden Vokalstimuli, deren F2 (Faktor Stimulus) zwischen 803 und 1436 Hz schwankt,
# entweder als /Y/ oder /I/ wahrgenommen (Faktor Urteil).
# Inwiefern beeinflusst die F2-Variation in den Stimuli das Urteil?
# Bei welchem Hz-Wert kippt die Wahrnehmung von /I/ zu /Y/?



#2. Diese Daten
head(a.df)
# zeigen Reaktionszeiten von 12 Versuchspersonen (Vpn) auf unterschiedliche
# Woerter (Faktor Wort); die Versuchspersonengruppen waren
# entweder Kinder, Jugendliche, oder Erwachsene (Faktor Gruppe), und haben den Test
# einmal unter ruhigen Studio-Bedingungen, einmal unter Laerm durchgefuehrt (Faktor Ort).

# Inwiefern haben der Ort und die Gruppenzugehoerigkeit die Reaktionszeiten beeinflusst?


# 3. In dem data.frame
formAB
# sind Daten dreier Wiederholungen (Faktor Wdh) von Aeusserungen,
#  die von 6 Sprechern gemacht wurden. 

# Beantworten Sie durch eine Abbildung und einen statistischen Test folgende Frage:
# Inwiefern haengt in diesen Aeusserungen F1 vom Kontext ab?


# 4. Diese Daten
dbwort.df
# enthaelt db-Werte, die in verschiedenen Woertern (Wort),
# produziert von mehreren Versuchspersonen, gemessen wurden.

# a) Inwiefern beeinflussten Vokale (V) und das Geschlecht (G) der Sprecher
# die db-Werte? Beantworten Sie diese Frage mit einer Abbildung und einem statistischen Test! 

# b) Laesst sich Ihr Befund auf alle 6 Woerter verallgemeinern?
# Erstellen Sie zur Beantwortung dieser Frage eine neue Abbildung
# und eine andere statistische Analyse!