Comparing production of fricative(/s/-/sh/) between NE and NK speaker

WHAT

• Comparing production of fricative(/s/-/sh/) between NE and NK speaker

WHY

• In English, /s/ and /ʃ/ are phonemes but in Korean, /sh/ is allophone which only realize preceded by /i, y/. (/s/ -> [sh] / ____{/i/, /y/})

HOW

• 아래 minimal pair로 구성된 target word를 frame sentence(I said ___ again)에 넣어서 NE와 NK 화자 각각 한 명에게 발음시켰다.
• 그 다음 녹음된 마찰음의 spectrum을 추출한 후 Center of gravity와 intensity를 측정했다.

c('see', 'sit', 'same', 'sell', 'sock', 'so', 'sue') -> s   
c('she', 'shit', 'shame', 'shell', 'shock', 'show', 'shoe') -> sh   
c('i', 'lax_i', 'e', 'lex_e', 'back_a', 'o', 'u') -> vowel
(data.frame(s, sh, vowel) -> df_fri)

##      s    sh  vowel
## 1  see   she      i
## 2  sit  shit  lax_i
## 3 same shame      e
## 4 sell shell  lex_e
## 5 sock shock back_a
## 6   so  show      o
## 7  sue  shoe      u

RESULT

preparation

install.packages("sciplot")
install.packages("dplyr")

library(sciplot)
library(dplyr)

## 
## 다음의 패키지를 부착합니다: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

setwd("D:\\20150012\\L2 sound analysis\\Fricative")
read.delim(file = "fricative_result.txt") -> fri
sound <- fri$sound[1:14]
c('i', 'lax_i', 'e', 'lex_e', 'back_a', 'o', 'u') -> vowel
fricative <- c(rep('s', 7), rep('sh', 7))
df_fri2 <- data.frame(sound, vowel, fricative)
fri <- left_join(fri, df_fri2)

## Joining, by = "sound"

NE_fri <- fri[1:14,]
NK_fri <- fri[15:28,]

1. NK와 NE의 center of gravity 차이 비교

• NE와 NK 둘 다 sh보다 s의 center of gravity가 더 높다.

bargraph.CI(NK_fri$fricative, NK_fri$cog)

bargraph.CI(NE_fri$fricative, NE_fri$cog)

2. NK와 NE의 intensity 차이 비교

• NE는 sh의 intensity가 근소하게 높지만 NK는 s의 intensity가 근소하게 높다.

bargraph.CI(NK_fri$fricative, NK_fri$intensity)

bargraph.CI(NE_fri$fricative, NE_fri$intensity)

3. vowel quality에 따른 center of gravity 비교

• vowel quality에 따른 center of gravity는 유의미한 차이를 보지 못했다.

bargraph.CI(NK_fri$vowel, NK_fri$cog)

## Warning in arrows(xvals, if (lc) CI.L else mn.data, xvals, if (uc) CI.H else
## mn.data, : zero-length arrow is of indeterminate angle and so skipped

bargraph.CI(NE_fri$vowel, NE_fri$cog)