norm_nearey {tidynorm} | R Documentation |
Nearey Normalize
Description
Nearey Normalize
Usage
norm_nearey(
.data,
...,
.by = NULL,
.by_formant = FALSE,
.drop_orig = FALSE,
.keep_params = FALSE,
.names = "{.formant}_lm",
.silent = FALSE
)
Arguments
.data |
A data frame containing vowel formant data |
... |
|
.by |
|
.by_formant |
Whether or not the normalization method is formant intrinsic. |
.drop_orig |
Whether or not to drop the original formant data columns. |
.keep_params |
Whether or not to keep the Location ( |
.names |
A |
.silent |
Whether or not the informational message should be printed. |
Details
When formant extrinsic:
\hat{F}_{ij} = \log(F_{ij}) - L
L = \frac{1}{MN}\sum_{i=1}^M\sum_{j=1}^N \log(F_{ij})
When formant intrinsic:
\hat{F}_{ij} = \log(F_{ij}) - L_{i}
L_i = \frac{1}{N}\sum_{j=1}^{N}\log(F_{ij})
Where
-
\hat{F}
is the normalized formant -
i
is the formant number -
j
is the token number
Value
A data frame of Nearey normalized formant values.
References
Nearey, T. M. (1978). Phonetic Feature Systems for Vowels [Ph.D.]. University of Alberta.
Examples
library(tidynorm)
ggplot2_inst <- require(ggplot2)
speaker_data_nearey <- speaker_data |>
norm_nearey(
F1:F3,
.by = speaker,
.by_formant = FALSE,
.names = "{.formant}_nearey"
)
if (ggplot2_inst) {
ggplot(
speaker_data_nearey,
aes(
F2_nearey,
F1_nearey,
color = speaker
)
) +
stat_density_2d(
bins = 4
) +
scale_color_brewer(
palette = "Dark2"
) +
scale_x_reverse() +
scale_y_reverse() +
coord_fixed() +
labs(
title = "Formant extrinsic"
)
}
speaker_data_nearey2 <- speaker_data |>
norm_nearey(
F1:F3,
.by = speaker,
.by_formant = TRUE,
.names = "{.formant}_nearey"
)
if (ggplot2_inst) {
ggplot(
speaker_data_nearey2,
aes(
F2_nearey,
F1_nearey,
color = speaker
)
) +
stat_density_2d(
bins = 4
) +
scale_color_brewer(
palette = "Dark2"
) +
scale_x_reverse() +
scale_y_reverse() +
coord_fixed() +
labs(
title = "Formant intrinsic"
)
}