Daten & Packages laden

Bitte eingeben:

Zeit erlaubt: 90 Minuten. Bitte alle Fragen beantworten und Ihre Rmd-Datei regelmäßig speichern. Schicken Sie am Ende der Klausur Ihre Rmd Datei an Jonathan Harrington Email = .

Laden Sie die folgenden Packages und Data-Frames:

library(tidyverse)
library(broom)
library(gridExtra)
library(lmerTest)
library(emmeans)
library(MuMIn)
library(afex)
sigmoid = function(x, k = 0, m = 1) {
  exp(m * x + k) / (1 + exp(m * x + k))
}
urla = "https://www.phonetik.uni-muenchen.de/studium_lehre/"
urlb = "lehrmaterialien/R_speech_processing/Rdf"
url = paste0(urla, urlb)
v.df = read.table(file.path(url, "vdata.txt"), 
                          stringsAsFactors = T)
s.df = read.table(file.path(url, "sib2.df.txt"), 
                          stringsAsFactors = T) %>%
  mutate(G = substring(Vpn, 1, 1)) %>%
  filter(G == "M") %>%
  mutate(Vpn = factor(Vpn))
sg.df = read.table(file.path(url, "sagtp.df.txt"), 
                  stringsAsFactors = T)
p.df = read.table(file.path(url, "preasp.txt"), 
                  stringsAsFactors = T)
# Erwachsene: normale Sprechgeschwindigkeit
e_n = c(46, 50, 58, 57, 48, 44, 57, 50, 47, 51)
# Kinder: normale Sprechgeschwindigkeit
c_n = c(75, 43, 72, 82, 81, 62, 84, 79, 75, 68)

Die Vokaldauern derselben untebtonten Silbe produziert von denselben Sprechern aber zu einer schnellen Sprechgeschwindigkeit waren wie folgt:

# Erwachsene: schnelle Sprechgeschwindigkeit
e_s = c(14, 35, 32, 27, 35, 11, 35, 34, 29, 29)
# Kinder: schnelle Sprechgeschwindigkeit
c_s = c(67, 55, 73, 70, 68, 45, 31, 35, 59, 74)

Prüfen Sie durch eine Abbildung und statistischen Test, ob die Sprechergruppe und/oder Sprechgeschwindigkeit einen Einfluss auf die Vokaldauern hatten.

Ihre Antwort: