ti <- c("Zone du noyau", "Première périphérie", "Seconde périphérie", "Elements contrastés")
if (type == 'classical') {
par(oma=c(1,3,3,1))
ti <- c("Zone du noyau", "Première périphérie", "Seconde périphérie", "Elements contrastés")
if (type == 'classical') {
par(oma=c(1,3,3,1))