Daten & Packages laden

Laden Sie die folgenden Packages und Data-Frames:

library(tidyverse)
library(broom)

urla = "https://www.phonetik.uni-muenchen.de/"
urlb = "studium_lehre/lehrmaterialien/R_speech_processing/Rdf/"
url = paste0(urla, urlb)
source(file.path(url, "sig.fn.R"))
l.df = read.table(file.path(url, "l.df.txt"), 
                  stringsAsFactors = T)
franken.df = l.df %>% 
  filter(Dial == "J") %>%
  select(Urteil, stim)

tap.df = read.table(file.path(url, "alvtap.txt"), 
                    stringsAsFactors = T)

ucla = read.csv("https://stats.idre.ucla.edu/wp-content/uploads/2016/02/sample.csv")
ucla = ucla %>%
  mutate(female = ifelse(female == 0, "M", "F"),
         hon = ifelse(hon == 0, "yes", "no"), 
         female = factor(female), 
         hon = factor(hon))
names(ucla)[1] = "sex"

a.df = read.table(file.path(url, "adaten.df.txt"),
                  stringsAsFactors = T)

cont2.df = read.table(file.path(url, "cont2.df.txt"), 
                    stringsAsFactors = T)

sigmoid = function(x, k = 0, m = 1) {
  exp(m * x + k) / (1 + exp(m * x + k))
}

Für (c), bei welchem F2-Wert liegt der Umkipppunkt zwischen /y/ und /u/?