# make html-version of this manual with:
# rmarkdown::find_pandoc(dir = "/opt/homebrew/bin")
# rmarkdown::render("scripts/plotraw.r")

setwd("..")

source("scripts/plotfunctions.r")

# set font
oldpar <- par(family = "CharisSIL")

Ma: heute

heute <- read.delim("../data/Ma_heute.csv")
mapHeute <- make_map(heute)
## WARNING criterion: 0.188087 > Objective: 0.010000
##  Increase maxit or decrease Objective
map(heute, mapHeute, title = "heute 0: Kognate")

map(heute, mapHeute, "heute", 1, title = "heute 3: H")

map(heute, mapHeute, "heute", 2, title = "heute 2: EU", ncol = 3, cex = .5, col = "heeringa")

map(heute, mapHeute, "heute", 3, title = "heute 3: extra N")

map(heute, mapHeute, "heute", 4, title = "heute 4: T", col = c("darkgrey", "orange", "red", "red", "grey", "blue"))

map(heute, mapHeute, "heute", 5, title = "heute 5: Schwa")

Mb: neue

neue <- read.delim("../data/Mb_neue.csv")
mapNeue <- make_map(neue)
## WARNING criterion: 1.085710 > Objective: 0.010000
##  Increase maxit or decrease Objective
map(neue, mapNeue, title = "neue 0: Kognate")

# separate vowels
# map(neue, mapNeue, "neue", 2, ncol = 2, cex = .8) # first vowel
# map(neue, mapNeue, "neue", 3, ncol = 1, cex = .8) # second vowel
# map(neue, mapNeue, "neue", 4, ncol = 1, cex = .8) # glide

# combine vowels
vowels <- paste0(get_column(neue, "neue", 2), get_column(neue, "neue", 3), get_column(neue, "neue", 4))
vowels <- gsub("-", "", vowels)
vowels[vowels == "NANANA"] <- NA

map(neue, mapNeue, "neue", 1, title = "neue 1: N")

map(neue, mapNeue, column = vowels, title = "neue 2-3-4: EU", ncol = 3, cex = .5, col = "heeringa")

map(neue, mapNeue, "neue", 5, title = "neue 5: Schwa", ncol = 2, cex = .8)

Mc: breit

breit <- read.delim("../data/Mc_breit.csv")
mapBreit <- make_map(breit)
## WARNING criterion: 0.947543 > Objective: 0.010000
##  Increase maxit or decrease Objective
map(breit, mapBreit, title = "breit 0: Kognate")

map(breit, mapBreit, "breit", 1, title = "breit 1: B")

map(breit, mapBreit, "breit", 2, title = "breit 2: R")

map(breit, mapBreit, "breit", 3, title = "breit 3: EI", ncol = 3, cex = .5, col = "heeringa") 

map(breit, mapBreit, "breit", 4, title = "breit 4: T")

Md: keine

keine <- read.delim("../data/Md_keine.csv")
mapKeine <- make_map(keine)
## WARNING criterion: 0.173061 > Objective: 0.010000
##  Increase maxit or decrease Objective
map(keine, mapKeine, title = "keine 0: Kognate")

map(keine, mapKeine, "keine", 1, title = "keine 1: K")

map(keine, mapKeine, "keine", 2, title = "keine 2: extra L")

map(keine, mapKeine, "keine", 3, title = "keine 3: EI", ncol = 3, cex = .4, col = "heeringa")

map(keine, mapKeine, "keine", 4, title = "keine 4: N", cex = .8)

map(keine, mapKeine, "keine", 5, title = "keine 5: Schwa")

Me: unser

unser <- read.delim("../data/Me_unser.csv")
mapUnser <- make_map(unser)
## WARNING criterion: 0.131636 > Objective: 0.010000
##  Increase maxit or decrease Objective
map(unser, mapUnser, title = "unser 0: Kognate")

map(unser, mapUnser, "unser", 1, title = "unser 1: U", ncol = 2, cex = .5, col = "heeringa")