, Enquête sur la durée relative des voyelles dans CV

. .. Méthode,

H. Ahn, Post-release Phonatory processes in English and Korean: Acoustic correlates and implications for Korean phonology. Doctoral dissertation, 1999.

S. Ahn, The interplay of phonology and morphology in Korean. Doctoral dissertation, 1985.

A. Llorach and E. , Explaining universal tendencies and language particulars in analogical change, Linguistic universals and language change, pp.144-183, 1965.

B. Andrésen and . Staalhane, On the perception of unreleased voiceless plosives in English, Language and Speech, vol.3, pp.109-119, 1960.

J. Avery and . Peter, Loanword clusters nativization rules in Tswana and Swahili: a comparative study, South African Journal of African Languages, vol.16, pp.33-41, 1996.

C. C. Best and G. W. Mcroberts, Infant Perception of Non-Native Consonant Contrasts that Adults Assimilate in Different Ways, Language and Speech, vol.46, pp.183-216, 2003.

D. Birdsong, Ultimate attainment in second language acquisition, Language, vol.68, pp.706-755, 1992.

D. Birdsong, Intransitivity and SE in French: Aspects of late L2 learnability. Paper presented at the Boston University, 1997.

D. Birdsong, Introduction: Whys and why nots of the critical period hypothesis for second language acquisition, Erlbaum Birdsong, David & Molis, M. 2001, vol.44, pp.235-249, 1999.

J. Blevins, The Syllable in Phonological Theory, 1995.

L. Bloomfield, Language, 1933.

P. Boersma, Cue constraints and their interactions in phonological perception and production, Phonology in perception, pp.55-110, 2009.

P. &. Boersma and S. Hamann, Loanword adaptation as first-language phonological perception. Presentation OCP 4, Rhodes, 2007.

P. &. Boersma and S. Hamann, Loanword adaptation as first-language phonological perception, Loanword phonology, pp.11-58, 2009.

G. Bohner, U. N. Danner, F. Siebler, and G. B. Samson, Rape myth acceptance and judgments of vulnerability to sexual assault: An Internet experiment, Experimental Psychology, issue.4, p.49, 2002.

Y. Cho and . Yu, The Blackwell companion to phonology, pp.2662-2684, 2011.

Y. Cho and . Yu, Syllable-based phonological processes, The handbook of Korean Linguistics, pp.22-40, 2015.

Y. Cho and . Yu, Korean Phonetics and Phonology, 2016.

G. N. Clements, The role of the sonority cycle in core syllabification. Papers in laboratory phonology I: Between the grammar and physics of speech, pp.283-333, 1990.

G. N. Clements, . Keyser, and J. Sammuel, CV Phonology: a Generative Theory of the Syllable, 1983.

F. Coetsem and . Van, Loan Phonology and the two transfer types in Language Contact, 1988.

. De-gruyter-mouton, Publication in Language Sciences, vol.27

E. Cohen, Strategien der Integration und Isolation nicht-nativer Einheiten und Strukturen, pp.51-64, 2010.

C. J. Crawford, Ville LaSalle (Québec): Didier Dart, S. 1987. An aerodynamic study of Korean stop consonants: Measurements and modeling, Journal of the Acoustical Society of America, vol.81, issue.1, pp.138-147, 1985.

L. Davidson, Characteristics of stop releases in American English spontaneous speech, Speech Communication, vol.53, pp.1042-1058, 2011.

S. Davis, Topics in syllable geometry, Geminates and Weight Manipulating Phonology in Chuukese (Trukese), 1985.

H. Kubozono, The Phonetics and Phonology of Geminate Consonants, pp.230-259

D. Jong, K. J. Cho, and M. , Loanword phonology and perceptual mapping: Comparing two corpora of Korean contact with English, Language, vol.88, issue.2, pp.341-368, 2012.

. Dell and M. Elmedlaoui, Syllabic Consonants and Syllabification in Imdlawn Tashlhiyt Berber, Journal of African Languages and Linguistics, vol.7, pp.105-130, 1985.

. Dell and M. Elmedlaoui, Syllabic Consonants in Berber: Some New Evidence, Journal of African Languages and Linguistics, vol.10, pp.1-17, 1988.

L. Deroy, K. Emmanuel, Y. Kazehi, and . Hirose, Epenthetic vowels in Japanese: a perceptual illusion, Les Belles Lettres Dupoux, vol.25, pp.1568-1578, 1956.

P. D. Eimas, Speech perception in early infancy, vol.2, pp.193-231, 1975.

J. A. Goldsmith, The syllable. The Handbook of Phonological Theory, vol.2, pp.94-125, 1993.

H. Goto, Auditory perception by normal Japanese adults of the sounds "l" and "r, Neuropsychologia, vol.9, issue.3, pp.317-323, 1971.

N. Hall, Cross-linguistic patterns of vowel intrusion, Phonology, vol.23, pp.387-429, 2006.

N. Hall, The Blackwell companion to phonology. 5 vols, pp.1576-1596, 2011.

H. Morris, G. W. Hughes, and J. P. Radley, Acoustic properties of stop consonants, Journal of the Acoustic Society of America, vol.29, pp.107-123, 1957.

J. Han, M. Han, and R. S. Weitzman, The phonetics and phonology of "tense" and "plain" consonants in Korean. Doctoral dissertation, Phonetica, vol.22, pp.112-128, 1970.

W. J. Hardcastle, Some observations of the tense-lax distinction in initial stops in Korean, Journal of Phonetics, vol.1, pp.263-271, 1973.

R. Harnisch, Integration und Isolation von suffixverdächtigen Fremdwörtern -das Deutsche in typologischer Perspektive, pp.105-122, 2010.

K. Harrison and . David, Reduplication and Harmony in Tuvan, Proceedings of the Berkeley Linguistics Society 30: Session on Turkic, Dravidian & Caucasian Linguistics, 1999.

M. &. Haspelmath and U. Tadmor, Loanwords in the world's languages, a comparative handbook, 2009.

E. Haugen, The analysis of linguistic borrowing, Language, vol.26, pp.210-331, 1950.

B. Hayes, Compensatory lengthening in moraic phonology, Linguistic Inquiry, vol.20, pp.253-306, 1989.

B. Heine and . Tania, Language Contact and Grammatical Change, vol.308, 2005.

J. B. Henderson and B. H. Repp, Is a stop consonant released when followed by another stop consonant?, Phonetica, vol.39, pp.71-82, 1982.

Y. Heo, Vowel insertion as perceptual intrusion in loanword adaptation, 2010.

Y. Heo and A. Lee, Extraphonological Regularities in the Korean Adaptation of Foreign Liquids, Proceedings of WIGL 2005, vol.5, pp.80-92, 2005.

J. M. Hillenbrand, C. Lee, and T. Ushijima, Static and dynamic approaches to vowel perception, Journal of Phonetics, vol.2, pp.145-152, 1974.

S. Hiskey and N. A. Troop, Online longitudinal survey research: Viability and participation, Social Science Computer Review, vol.20, issue.3, pp.250-259, 2002.

M. S. Horswill and M. E. Coster, User-controlled photographic animations, photographbased questions, and questionnaires: Three instruments for measuring drivers' risk-taking behavior on the Internet, Behavior Research Methods, Instruments, and Computers, vol.33, pp.46-58, 2001.

A. S. House, On vowel duration in English, Journal of the Acoustical Society of America, vol.33, pp.1174-1178, 1961.

F. W. Householder, Unreleased PTK in, For Roman Jacobson, pp.235-244, 1956.

E. Hume, K. Johnson, M. Seo, and G. Tsardenelis, A cross-linguistic study of stop place perception, Proceedings of the 14th ICPhS, pp.2069-2072, 1999.

L. M. Hyman, Are there syllables in Gokana?, Current approaches to African linguistics, vol.2, pp.171-179, 1983.

L. M. Hyman, Does Gokana really have no syllables? Or: what's so great about being universal? Phonology 28, Foris Hyman, Larry M, pp.55-85, 1985.

L. M. Hyman, Does Gokana really have syllables? A postscript, Phonology, vol.32, pp.303-306, 2015.

C. Ito, Korean accent: internal reconstruction and historical development, Korean Linguistics, vol.15, issue.2, pp.129-198, 2013.

C. Ito, Loanword accentuation in Yanbian Korean: a weighted constraint analysis, Natural Language and Linguistic Theory, vol.32, pp.537-592, 2014.

G. Iverson, Korean s, Journal of Phonetics, vol.11, pp.191-200, 1983.

G. &. Iverson and J. Salmons, Aspiration and laryngeal representation in Germanic, Phonology, vol.12, issue.3, pp.369-396, 1995.

G. &. Iverson and J. Salmons, Glottal spreading bias in Germanic. Linguistische Berichte, pp.135-151, 1999.

G. &. Iverson and J. Salmons, Legacy specification in the laryngeal phonology of Dutch, Journal of Germanic linguistics, vol.15, issue.1, pp.1-26, 2003.

G. &. Iverson and J. Salmons, Laryngeal enhancement in early Germanic, Phonology, vol.20, issue.1, 2003.

G. &. Iverson and J. Salmons, Domains and directionality in the evolution of German final fortition, Phonology, vol.24, issue.1, 2007.

G. Iverson and . Lee, Variation as optimality in Korean cluster reduction, Proceedings of ESCOL 94, 1994.

W. Jongstra, Variation in reduction strategies in Dutch word-initial consonant clusters, 2003.

L. Lisker, Perceiving final voiceless stops without release: effects of preceding monophthongs versus nonmonophthongs, Phonetica, vol.56, issue.1-2, pp.44-55, 1999.

. Lisker and A. Leigh-&-abramson, A cross-language study of voicing in initial stops, vol.20, pp.384-422, 1964.

J. Local, Modelling intonational variability in children's speech, pp.85-103, 1982.

J. Lowenstamm, CV as the only syllable type, Currents Trends in Phonology. Models and Methods, pp.419-441, 1996.

H. Lüdtke, Die Alphabetschrift und das Problem der Lautsegmentierung, Phonetica, vol.20, pp.147-176, 1969.

I. Mackay, J. Flege, and S. Imai, Evaluating the effects of chronological age and sentence duration on degree of perceived foreign accent, Applied Psycholinguistics, vol.27, pp.157-183, 2006.

I. Maddieson, The Handbook of Phonetic Sciences, pp.619-639, 1997.

R. L. Majeres, Sex differences in phonological processes: Speeded matching and word reading, Memory and Cognition, vol.27, pp.246-253, 1999.

A. &. Malécot and E. Lindheimer, The Contribution of releases to the identification of final stops in French, Studia Linguistica, vol.20, issue.2, p.99109, 1966.

C. R. Marshall, J. Harris, and H. K. Van-der-lely, The nature of phonological representations in children with grammatical-specific language impairment, Proceedings of the University of Cambridge First Postgraduate Conference in Language Research, pp.511-517, 2003.

S. Martin, Korean morphophonemics, 1954.

S. Martin, A Reference Grammar of Korean: A Complete Guide to the Grammar and History of the Korean Language, 1992.

A. Martinet, Économie des changements linguistiques, vol.1, 1955.

, Grammatical borrowing in cross-linguistic perspective. Mouton de Gruyter, Empirical Approaches to Languages Typology 38, p.598, 2008.

M. Câmara, . ;. Joaquim, . Joaquim, . Reiko, Y. Cao et al., The development of a phonological illusion: a cross-linguistic study with Japanese and French infants, Developmental Science, vol.14, issue.4, pp.693-702, 1941.

J. D. Mccawley, Le rôle d'un système de traits phonologiques dans un théorie du langage. Langages 8. 112-123, 1967.

S. &. Peperkamp and E. Dupoux, Reinterpreting loanword adaptations: the role of perception, Proceedings of the 15th International Congress of Phonetic Sciences, pp.367-370, 2003.

S. Peperkamp, I. &. Vendelin, and K. Nakamura, On the perceptual origin of loanword adaptations: experimental evidence from Japanese, Phonology, vol.25, pp.129-164, 2008.

L. Perre and J. C. Ziegler, On-line activation of orthography in spoken word recognition, Brain Research, vol.1188, pp.132-140, 2007.

J. Pierrehumbert, Phonological and Phonetic Representation, Journal of Phonetics, vol.18, pp.465-477, 1990.

K. &. Pike and E. Pike, Immediate constituents of Mazatec syllables, International Journal of American Linguistics, vol.13, pp.78-91, 1947.

E. Polivanov, La perception des sons d'une langue étrangère, Travaux du Cercle Linguistique de Prague, vol.4, pp.79-96, 1931.

S. &. Poplack and D. Sankoff, Borrowing: The synchrony of integration, Linguistics, vol.22, pp.99-135, 1984.

E. Pulgram, . Syllable, . Word, C. T. Nexus, and . Hague, Proto-Korean and the Origin of Korean Accent. Studies in the Historical Phonology of Asian Languages, 1970.

U. Reips, Das psychologische Experimentieren im Internet, 1997.

, Online research with children, Current Internet science -trends, techniques, results. Aktuelle OnlineForschung -Trends, pp.245-265, 1999.

U. Reips, The Web experiment method: Advantages, disadvantages, and solutions, Psychological experiments on the Internet, pp.89-114, 2000.

U. Reips, Standards for Internet-based experimenting, Experimental Psychology, vol.49, pp.243-256, 2002.

U. Reips, Theory and techniques of conducting Web experiments, 2002.

, Online Social Sciences, pp.229-250

S. Rhee and . Yoo-kyung, Yengechayongeuy moumsapipey tayhan thongkyeycek kwanchalkwa ku uyuy. [A statistical observation of vowel insertion in English loanwords in Korean and its significance.] Studies in Phonetics, Phonology and Morphology, pp.153-176, 2001.

R. Ridouane, G. N. Clements, and R. Khatiwada, Tones and features: Phonetic and phonological perspectives, pp.264-291, 2011.

I. &. Vendelin and S. Peperkamp, The influence of orthography on loanword adaptations, Lingua, vol.116, pp.996-1007, 2006.

J. Vergnaud, Communication at the GLOW Meeting, 1982.

M. Vihman, Early syllables and the construction of phonology, Phonological development. Models, Research, Implications, pp.393-422, 1992.

W. S. Wang, Transition and Release as perceptual cues for final plosives, Journal of Speech and Hearing Research, vol.2, pp.66-73, 1959.

R. M. Warren, Perceptual Restoration of Missing Speech Sounds, Science, vol.167, issue.3917, pp.392-395, 1970.

H. Wegener, Durch Fremdwörter bedingte strukturelle Veränderungen im Deutschen. Scherer, Carmen & Holler, Anke (éds). 2010. Strategien der Integration und Isolation nicht-nativer Einheiten und Strukturen, pp.87-104, 2010.

U. Weinreich, Languages in Contact: Findings and Problems, 1953.

O. Wenzel, Informationssuche und Flow: Nutzerverhalten auf unterschiedlich strukturierten Websites [Web design, search for information, and flow: User behavior on differently structured Web sites, 2001.

G. Lohmar, J. F. Werker, and R. C. Tees, Cross-language speech perception: Evidence for perceptual reorganization during the first year of life, Infant Behavior & Development, vol.7, issue.1, pp.49-63, 1984.

L. White and F. Genesee, How native is near-native? The issue of ultimate attainment in adult second language acquisition, Second Language Research, vol.12, pp.233-265, 1996.

J. Whitman, The accentuation of nominal stems in Proto-Korean, Theoretical issues in Korean linguistics, pp.425-439, 1994.

W. Whitney and . Dwight, Oriental and Linguistic Studies, 1874.

J. Wright, Laryngeal contrast in Seoul Korean. Doctoral dissertation, University of Pennsylvania Yi, Kwangoh. 1999. The internal structure of Korean syllables, Second International Conference on Cognitive Science, 2007.

M. Yip, Cantonese loanword phonology and optimality theory, Journal of East Asian Linguistics, vol.2, issue.3, pp.261-291, 1993.

Y. Zhang, P. K. Kuhl, T. Imada, M. Kotani, and J. Pruitt, Brain plasticity in behavioral and neuromagnetic measures: A perceptual training study, Outils Audacity Team. 2015. Audacity (R): Free Audio Editor and Recorder, vol.11, 2001.

, Version 2

K. Baker, English-Korean Transliteration List (v0.1), 2008.

-. ??, Histoire) -??

?. ???????, # menu déroulant # plusieurs choix possibles -??? (coréen) -?? (anglais) -???? (français) -??? (chinois) -??? (japonais) -??

. ???-??-???-???-?-?-??-???-?????-avez-vous-habité-en-corée,

. ???, . ???, and . ????,

. ?-?-oui, ??? non Où avez-vous habité en Corée ?

. ??, . ??, and . ???????, # menu déroulant # plusieurs choix possibles -?????(Séoul) -?????(Incheon) -??? (Gyeonggi) -??? (Gangwon) -?????(Busan) -?????(Daejeon) -?????(Daegu) -?????(Gwangju) -???????(Sejong) -?????(Ulsan) -???? (Chungcheong du Nord ) -????

, Si vous avez des commentaires, vous pouvez les noter dans cet encadré

?. ????,

, -read_excel

, Pour plotter la dispersion des données : sexe par âge JAB2KOexperiment_data$gender<-as.factor(JAB2KOexperiment_data$gender) # Pour mettre 'gender' en facteur GENDER.AGE <-plot(JAB2KOexperiment_data$gender, JAB2KOexperiment_data$age) title(xlab="Sexe

#. Pour-vérifier-les-niveaux,

, Pour ne retenir que 2 modalités, Burst et NoBurst JAB2KO<-JAB2KOexperiment_data

. Jab2ko&lt;-jab2ko, No Burst")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(), # pour supprimer le fond de la légende legend

, Pour plotter la dispersion des données : durée des voyelles par condition JAB2KO$condition<-as.factor(JAB2KO$condition)# Pour mettre 'condition' en facteur DUREEV.BURST<-plot(JAB2KO$condition, JAB2KO$vowel_length) title(xlab="Avec vs sans détente

, JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur DUREEV.EP <-plot(JAB2KO$epenthesis, JAB2KO$vowel_length) # Pour créer l'objet DUREEV.EP JAB2KO$epenthesis<-factor(JAB2KO$epenthesis, levels=c("yes, # Pour plotter la dispersion des données : durée des voyelles par adaptation épenthèse-non épenthèse JAB2KO$epenthesis<-as.factor

, COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj), data = JAB2KO, family = binomial

, #Pour créer un modèle regardant la relation entre l'épenthèse et la durée de la voyelle EP.DUREEV <-glmer(as.factor(epenthesis) ~ vowel_length + (1 | id_subj), data = JAB2KO, family = binomial) co-variables EP.COND.DUREEV <-glmer(as.factor(epenthesis) ~ condition + vowel_length + (1 | id_subj)

, CONDxDUREEV <-glmer(as.factor(epenthesis) ~ condition * vowel_length + (1 | id_subj), data = JAB2KO, family = binomial

. Ep, E. P. Cond, E. C. Dureev, E. P. Dureev, . Condxdureev et al., U")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(, données: CHICARRE_AIU <-ggplot(JAB2KO, aes(x = input_vowel, fill = epenthesis)) + geom_bar(position = "fill", colour="black", size=0.5, width=0.7) #geom_errorbar(aes(ymax=high.ci, ymin=low.ci), width=0.2, size=0.5, color="black") + xlab

, Catégorie vocalique") ylab("Epenthèses vs Non-épenthèses

. Chicarre_aiu-+-scale_x_discrete, Catégorie vocalique") + scale_y_continuous(name="Epenthèses vs non-épenthèses

, Pour plotter la dispersion des données : f0 moyen par catégorie vocalique JAB2KO$input_vowel<-as.factor(JAB2KO$input_vowel) # Pour mettre 'input_vowel' en facteur F0.AIU <-plot(JAB2KO$input_vowel, JAB2KO$phn_f0_mean) title(xlab="Catégorie vocalique

, Pour plotter la dispersion des données : f0 moyen par condition JAB2KO$condition<-as.factor(JAB2KO$condition) # Pour mettre 'condition' en facteur F0.COND <-plot(JAB2KO$condition, JAB2KO$phn_f0_mean) title(xlab="Condition

, Pour plotter la dispersion des données : f0 moyen par épenthèse JAB2KO$epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur F0.EP <-plot(JAB2KO$epenthesis, JAB2KO$phn_f0_mean) title(xlab="Epenthèses vs Non-épenthèse

, COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj), data = JAB2KO, family = binomial

. &lt;-glmer, as.factor(epenthesis) ~ phn_f0_mean + (1 | id_subj), data = JAB2KO, family = binomial

. &lt;-glmer, as.factor(epenthesis) ~ condition + phn_f0_mean + (1 | id_subj), data = JAB2KO, family = binomial

, CONDxF0 <-glmer(as.factor(epenthesis) ~ condition * phn_f0_mean + (1 | id_subj), data = JAB2KO, family = binomial) summary(EP.CONDxF0)

, # Pour comparer les quatre modèles anova

. ################################################-f1,

, Pour plotter la dispersion des données : f1 moyen par catégorie vocalique JAB2KO$input_vowel<-as.factor(JAB2KO$input_vowel) # Pour mettre 'input_vowel' en facteur F1.AIU <-plot(JAB2KO$input_vowel, JAB2KO$phn_f1_mean) title(xlab="Catégorie vocalique

, Pour plotter la dispersion des données : f1 moyen par condition JAB2KO$condition<-as.factor(JAB2KO$condition) # Pour mettre 'condition' en facteur F1.COND <-plot(JAB2KO$condition, JAB2KO$phn_f1_mean) title(xlab="Condition

, 2")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(, # Pour plotter la dispersion des données : f1 moyen par épenthèse JAB2KO$epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur F1.EP <-plot(JAB2KO$epenthesis, JAB2KO$phn_f1_mean) title(xlab="Epenthèses vs Non-épenthèse

, Catégorie vocalique") ylab("Epenthèses vs Non-épenthèses

. Chicarre_mvtf1-+-scale_x_discrete, Catégorie vocalique") + scale_y_continuous(name="Epenthèses vs non-épenthèses

, COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj), data = JAB2KO, family = binomial

. &lt;-glmer, data = JAB2KO, family = binomial) co-variables EP.COND.F1 <-glmer(as.factor(epenthesis) ~ condition + (phn_f1_mean * phn_f1_mvt) + (1 | id_subj), data = JAB2KO, family = binomial) interaction EP.CONDxF1<-glmer(as.factor(epenthesis) ~ condition * (phn_f1_mean * phn_f1_mvt) + (1 | id_subj), as.factor(epenthesis) ~ phn_f1_mean * phn_f1_mvt + (1 | id_subj)

, # Pour comparer les quatre modèles anova

. ################################################-f2,

, Pour plotter la dispersion des données : f2 moyen par catégorie vocalique JAB2KO$input_vowel<-as.factor(JAB2KO$input_vowel) # Pour mettre 'input_vowel' en facteur F2.AIU <-plot(JAB2KO$input_vowel, JAB2KO$phn_f2_mean) title(xlab="Catégorie vocalique

, Pour plotter la dispersion des données : f2 moyen par condition JAB2KO$condition<-as.factor(JAB2KO$condition) # Pour mettre 'condition' en facteur F0.COND <-plot(JAB2KO$condition, JAB2KO$phn_f2_mean) title(xlab="Condition

, 2")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(, # Pour plotter la dispersion des données : f2 moyen par épenthèse JAB2KO$epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur F2.EP <-plot(JAB2KO$epenthesis, JAB2KO$phn_f2_mean) title(xlab="Epenthèses vs Non-épenthèse

, Catégorie vocalique") ylab("Epenthèses vs Non-épenthèses

. Chicarre_mvtf2-+-scale_x_discrete, Catégorie vocalique") + scale_y_continuous(name="Epenthèses vs non-épenthèses

, COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj), data = JAB2KO, family = binomial

. &lt;-glmer, data = JAB2KO, family = binomial) co-variables EP.COND.F2 <-glmer(as.factor(epenthesis) ~ condition + (phn_f2_mean * phn_f2_mvt) + (1 | id_subj), data = JAB2KO, family = binomial) interaction EP.CONDxF2<-glmer(as.factor(epenthesis) ~ condition * (phn_f2_mean * phn_f2_mvt) + (1 | id_subj), as.factor(epenthesis) ~ phn_f2_mean * phn_f2_mvt + (1 | id_subj)

, # Pour comparer les quatre modèles anova

. ################################################-f3,

, Pour plotter la dispersion des données : f3 moyen par catégorie vocalique JAB2KO$input_vowel<-as.factor(JAB2KO$input_vowel) # Pour mettre 'input_vowel' en facteur F3.AIU <-plot(JAB2KO$input_vowel, JAB2KO$phn_f3_mean) title(xlab="Catégorie vocalique

, Pour plotter la dispersion des données : f3 moyen par condition JAB2KO$condition<-as.factor(JAB2KO$condition) # Pour mettre 'condition' en facteur F3.COND <-plot(JAB2KO$condition, JAB2KO$phn_f3_mean) title(xlab="Condition

, 2")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(, # Pour plotter la dispersion des données : f3 moyen par épenthèse JAB2KO$epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur F3.EP <-plot(JAB2KO$epenthesis, JAB2KO$phn_f3_mean) title(xlab="Epenthèses vs Non-épenthèse

, Catégorie vocalique") ylab("Epenthèses vs Non-épenthèses

. Chicarre_mvtf3-+-scale_x_discrete, Epenthèses vs non-épenthèses") epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur #Pour créer un modèle regardant la relation entre l'épenthèse et la condition EP.COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj)

. &lt;-glmer, data = JAB2KO, family = binomial) co-variables EP.COND.F3 <-glmer(as.factor(epenthesis) ~ condition + (phn_f3_mean * phn_f3_mvt) + (1 | id_subj), data = JAB2KO, family = binomial) interaction EP.CONDxF3<-glmer(as.factor(epenthesis) ~ condition * (phn_f3_mean * phn_f3_mvt) + (1 | id_subj), as.factor(epenthesis) ~ phn_f3_mean * phn_f3_mvt + (1 | id_subj)

, # Pour comparer les quatre modèles anova

. ################################################-f4,

, Pour plotter la dispersion des données : f4 moyen par catégorie vocalique JAB2KO$input_vowel<-as.factor(JAB2KO$input_vowel) # Pour mettre 'input_vowel' en facteur F4.AIU <-plot(JAB2KO$input_vowel, JAB2KO$phn_f4_mean) title(xlab="Catégorie vocalique

. #-pourquoi-ne, donne plus le même type de graphique? # Pour plotter la dispersion des données : f4 moyen par condition JAB2KO$condition<-as.factor(JAB2KO$condition) # Pour mettre 'condition' en facteur F4.COND <-plot(JAB2KO$condition, JAB2KO$phn_f4_mean) title(xlab="Condition

. #-pourquoi-ne, 2")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(), # pour supprimer le fond de la légende legend, donne plus le même type de graphique? # Pour plotter la dispersion des données : f4 moyen par épenthèse JAB2KO$epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur F4.EP <-plot(JAB2KO$epenthesis, JAB2KO$phn_f4_mean) title(xlab="Epenthèses vs Non-épenthèse

, Catégorie vocalique") ylab("Epenthèses vs Non-épenthèses

. Chicarre_mvtf4-+-scale_x_discrete, Catégorie vocalique") + scale_y_continuous(name="Epenthèses vs non-épenthèses

, Pour mettre 'epenthesis' en facteur #Pour créer un modèle regardant la relation entre l'épenthèse et la condition EP.COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj)

. &lt;-glmer, data = JAB2KO, family = binomial) co-variables EP.COND.F4 <-glmer(as.factor(epenthesis) ~ condition + (phn_f4_mean * phn_f4_mvt) + (1 | id_subj), data = JAB2KO, family = binomial) interaction #EP.CONDxF4<-glmer(as.factor(epenthesis) ~ condition * (phn_f4_mean * phn_f4_mvt) + # (1 | id_subj), as.factor(epenthesis) ~ phn_f4_mean * phn_f4_mvt + (1 | id_subj)

, CONDxF4<-glm(as.factor(epenthesis) ~ condition * (phn_f4_mean * phn_f4_mvt), data = JAB2KO, family = binomial)

, Je fais ici un modèle glm et non glmer car ce dernier provoque une message d'erreur: # fixed-effect model matrix is rank deficient so dropping 9 columns / coefficients # Error in pwrssUpdate(pp, resp, tol = tolPwrss, GQmat = GQmat, compDev = compDev

, # Pour comparer les quatre modèles anova

. ################################################-phn_nrj,

, Pour plotter la dispersion des données : f4 moyen par catégorie vocalique JAB2KO$input_vowel<-as.factor(JAB2KO$input_vowel) # Pour mettre 'input_vowel' en facteur PHNNRJ.AIU <-plot(JAB2KO$input_vowel, JAB2KO$phn_nrj_mean) title(xlab="Catégorie vocalique

, Pour plotter la dispersion des données : f4 moyen par condition JAB2KO$condition<-as.factor(JAB2KO$condition) # Pour mettre 'condition' en facteur PHNNRJ.COND <-plot(JAB2KO$condition, JAB2KO$phn_nrj_mean) title(xlab="Condition

. #-pourquoi-ne, donne plus le même type de graphique? # Pour plotter la dispersion des données : épenthèses par énergie de la voyelle JAB2KO$epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur PHN_NRJ.EP <-plot

, Pour réordonner 'yes' et 'no' PHN_NRJ.EP <-plot(JAB2KO$epenthesis, JAB2KO$phn_nrj_mean) title(xlab="Epenthèses vs Non-épenthèses

, #Pour créer un modèle regardant la relation entre l'épenthèse et la condition EP.COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj), data = JAB2KO

, PHNNRJ <-glmer(as.factor(epenthesis) ~ phn_nrj_mean + (1 | id_subj), data = JAB2KO, family = binomial) summary(EP.PHNNRJ)

+. Xlab, 2")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(), # pour supprimer le fond de la légende legend.text=element_text(size=rel, fill=NA, size=1), plot.background=element_rect(fill="white",colour=NA), strip.background=element_rect(fill="white"), strip.text=element_text(size=rel

, Catégorie vocalique") ylab("Epenthèses vs Non-épenthèses

. Chicarre_poa-+-scale_x_discrete, Catégorie vocalique") + scale_y_continuous(name="Epenthèses vs non-épenthèses

, Pour plotter la dispersion des données : durée de l'occlusion par point d'articulation JAB2KO$input_coda<-as.factor(JAB2KO$input_coda) # Pour mettre 'input_vowel' en facteur DUREEC.POA <-plot(JAB2KO$input_coda, JAB2KO$closure_length) title(xlab="Point d'articulation de la coda

, Pour plotter la dispersion des données : durée de l'occlusion par condition JAB2KO$condition<-as.factor(JAB2KO$condition) # Pour mettre 'condition' en facteur DUREEC.COND <-plot(JAB2KO$condition, JAB2KO$closure_length) title(xlab="Condition

, Pour plotter la dispersion des données : épenthèses par énergie de la voyelle JAB2KO$epenthesis<-as.factor(JAB2KO$epenthesis) # Pour mettre 'epenthesis' en facteur DUREEC, EP <

, no")) # Pour réordonner 'yes' et 'no' DUREEC.EP <-plot(JAB2KO$epenthesis, JAB2KO$closure_length) title(xlab="Epenthèses vs Non-épenthèses

, Pour distinguer l'effet du point d'articulation et celui de la durée de l'occlusion # Pour créer un modèle regardant la relation entre l'épenthèse et le point d'articulation EP.POA <-glmer(as.factor(epenthesis) ~ input_coda + (1 | id_subj), data = JAB2KO

, Pour créer un modèle regardant la relation entre l'épenthèse et la durée de l'occlusion EP.DUREEC <-glmer(as.factor(epenthesis) ~ closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle regardant la relation entre l'épenthèse et la durée de l'occlusion EP.POA.DUREEC <-glmer(as.factor(epenthesis) ~ input_coda + closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle regardant la relation entre l'épenthèse et la durée de l'occlusion EP.POAxDUREEC <-glmer(as.factor(epenthesis) ~ input_coda * closure_length + (1 | id_subj), data = JAB2KO

. Ep, E. P. Poa, E. P. Dureec, E. P. Dureec, and . Poaxdureec, # Pour comparer les modèles anova

#. Pour, articulation et durée de l'occlusion) et de la condition #Pour créer un modèle regardant la relation entre l'épenthèse et la condition EP.COND <-glmer(as.factor(epenthesis) ~ condition + (1 | id_subj), data = JAB2KO

, Pour créer un modèle regardant la relation entre l'épenthèse et le point d'articulation EP.POA <-glmer(as.factor(epenthesis) ~ input_coda + (1 | id_subj), data = JAB2KO, family = binomial) summary

, Pour créer un modèle regardant la relation entre l'épenthèse et la durée de l'occlusion EP.DUREEC <-glmer(as.factor(epenthesis) ~ closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle regardant la relation entre l'épenthèse et la durée de l'occlusion EP.POA.DUREEC <-glmer(as.factor(epenthesis) ~ input_coda + closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle regardant la relation entre l'épenthèse et la durée de l'occlusion EP.POAxDUREEC <-glmer(as.factor(epenthesis) ~ input_coda * closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle de l'épenthèse où condition et point d'articulation sont en co-variables EP.COND.POA <-glmer(as.factor(epenthesis) ~ condition + input_coda + (1 | id_subj), data = JAB2KO

, Pour créer un modèle de l'épenthèse où condition et point d'articulation sont en interaction EP.CONDxPOA <-glmer(as.factor(epenthesis) ~ condition * input_coda + (1 | id_subj), data = JAB2KO, family = binomial) summary

, Pour créer un modèle de l'épenthèse où condition et durée de l'occlusion sont en co-variables EP.COND.DUREEC <-glmer(as.factor(epenthesis) ~ condition + closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle de l'épenthèse où condition et durée de l'occlusion sont en interaction EP.CONDxDUREEC <-glmer(as.factor(epenthesis) ~ condition * closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle de l'épenthèse où condition, point d'articulation et durée de l'occlusion # sont en co-variables EP.COND.POA.DUREEC <-glmer(as.factor(epenthesis) ~ condition + input_coda + closure_length + (1 | id_subj), data = JAB2KO

, Pour créer un modèle de l'épenthèse où condition, point d'articulation et durée de l'occlusion # sont en interaction EP.CONDxPOAxDUREEC <-glmer(as.factor(epenthesis) ~ condition * input_coda * closure_length + (1 | id_subj), data = JAB2KO, family = binomial) summary(EP.CONDxPOAxDUREEC) input_coda*closure_length + condition + (1 |id_subj), data = JAB2KO

. Ep, E. P. Cond, E. P. Poa, E. P. Dureec, E. P. F0 et al., EP.CONDxPOA.DUREEC, test="Chisq") détente: catégorielle ou graduelle? ################################ ################################ # Pour réduire l'observation aux items AVEC détente JAB2KO.BURST<-JAB2KOexperiment_data

, JAB2KO.BURST<-JAB2KO.BURST[JAB2KO.BURST$epenthesis=="yes"| JAB2KO.BURST$epenthesis=="no

, Pour plotter la dispersion des données : épenthèse par durée de la détente JAB2KO.BURST$epenthesis<-as.factor(JAB2KO.BURST$epenthesis) # Pour mettre 'epenthesis' en facteur PLOT.EP.DUREED <-plot(JAB2KO.BURST$epenthesis, JAB2KO.BURST$burst_length) title(xlab="Non-épenthèse vs Epenthèse

, Pour faire un modèle de l'épenthèse par rapport à la durée de la détente EP.DUREED <-glmer(as.factor(epenthesis) ~ burst_length + (1 | id_subj)

, Pour plotter la dispersion des données : épenthèse par durée de la détente JAB2KO.BURST$epenthesis<-as.factor(JAB2KO.BURST$epenthesis) # Pour mettre 'epenthesis' en facteur PLOT.EP.INTENSD <-plot(JAB2KO.BURST$epenthesis, JAB2KO.BURST$burst_intensity_mean) title(xlab="Non-épenthèse vs Epenthèse

. Ep, E. P. Cond, and E. P. Dureed, no")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(), # pour supprimer le fond de la légende legend, # Pour faire un modèle de l'épenthèse par rapport à lintensité de la détente EP.INTENSD <-glmer(as.factor(epenthesis) ~ burst_intensity_mean + (1 | id_subj), data = JAB2KO, family = binomial) summary(EP.INTENSD) anova

, Hommes vs Femmes") ylab("Epenthèses vs Non-épenthèses

. Chicarre_gender-+-scale_x_discrete, Hommes vs Femmes") + scale_y_continuous(name="Epenthèses vs non-épenthèses

. L&apos;âge, age")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(), # pour supprimer le fond de la légende legend.text=element_text(size=rel, étude des participants ################################ données: CHICARRE_AGE.PLOT <-ggplot(JAB2KO, aes(x = age, fill = epenthesis)) + geom_bar(position = "fill", colour="black", size=0.5, width=0.7) #geom_errorbar(aes(ymax=high.ci, ymin=low.ci), width=0.2, size=0.5, color="black") + xlab

C. Plot-+-scale_x_discrete, Âge") + scale_y_continuous(name="Epenthèses

, Epenthèses") scale_x_discrete(labels=c("diploma")) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(, Pour mettre 'epenthesis' en facteur CHICARRE_DIPLOMA <-chisq.test(x = JAB2KO$epenthesis, y = JAB2KO$diploma) données: JAB2KO$diploma <-factor(JAB2KO$diploma, levels = c

, Diplôme") ylab("Epenthèses")

C. Plot-+-scale_x_discrete, Diplôme") + scale_y_continuous(name="Epenthèses

, JAB2KO.L2 <-JAB2KO.L2[JAB2KO.L2$epenthesis=="yes"| JAB2KO.L2$epenthesis=="no

|. Jab2ko and . L2$l2_3==, Langue seconde") ylab("Epenthèses") scale_x_discrete(labels=c()) + scale_colour_grey(start = 0.2, end = 0.8, na.value = "red")+ # pour avoir des tons de gris theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank(), # pour supprimer les grilles principales et secondaires legend.position=c(1,1), # pour positionner la légende à un autre emplacement legend.justification=c(1,1), # pour modifier le point de la légende à partir duquel les nouvelles coordonnées sont appliquées legend.background=element_blank(, données: CHICARRE_L2 <-ggplot(JAB2KO, aes(x = L2_1, fill = epenthesis)) + geom_bar(position = "fill", colour="black", size=0.5, width=0.7) #geom_errorbar(aes(ymax=high.ci, ymin=low.ci), width=0.2, size=0.5, color="black") + xlab

, Langue seconde") ylab, Epenthèses

C. Plot-+-scale_x_discrete, Langue seconde") + scale_y_continuous(name="Epenthèses