library(readxl)
## Warning: le package 'readxl' a été compilé avec la version R 4.2.3
donnees<-read_excel("C://Users//melin//Documents//docStageBazan//donnees.xlsx")

Histogramme des âges :

hist(donnees$age, main = "Répartition des âges",xlab = "Âge",ylab = "Fréquence",col = "skyblue",border = "black")

Moyenne d’âge des participants :

moyenneAge=mean(donnees$age,na.rm=TRUE)
moyenneAge
## [1] 26.52137

La moyenne d’âge de ces participants est d’environ 26 ans et demi.

Age maximal parmi les participants :

ageMax=max(donnees$age,na.rm=TRUE)
ageMax
## [1] 62

L’âge maximal parmi ces participants est de 62 ans.

Age minimal parmi les participants :

ageMin=min(donnees$age,na.rm=TRUE)
ageMin
## [1] 18

L’âge minimal parmi ces participants est de 18 ans.

Ecart-type âge :

ecarttypeAge=sd(donnees$age,na.rm=TRUE)
ecarttypeAge
## [1] 10.42179

Erreur standard âge :

errStandAge=ecarttypeAge/sqrt(length(donnees$age))
errStandAge
## [1] 0.9594038

Seconde langue :

donnees$`seconde langue ou plus`<-factor(donnees$`seconde langue ou plus`,levels = c(0,1),labels = c("non","oui")) 

secondeLangue_distrib<-table(donnees$`seconde langue ou plus`)
print(secondeLangue_distrib)
## 
## non oui 
##  63  54

Sur l’ensemble de ces personnes, nous avons 54 personnes parlant une seconde langue (autre qu ele français) et 63 pratiquant seulement le français.

Naïveté et seconde langue :

naiveteLangue=split(donnees$`Score dichotomique de naiveté`,donnees$`seconde langue ou plus`)
naiveteLangue
## $non
##  [1] 1 1 0 1 1 0 1 1 0 0 1 1 0 1 1 1 1 1 1 1 1 0 1 0 0 1 0 0 0 1 0 1 1 0 1 1 0 1
## [39] 1 1 1 0 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 0 0 1
## 
## $oui
##  [1] 1 1 1 1 0 0 0 0 0 0 0 0 1 0 1 1 1 1 0 0 1 0 0 1 1 1 1 0 0 1 1 1 0 1 0 1 0 1
## [39] 0 0 1 0 1 1 1 1 1 1 0 0 1 1 1 1

Nous voyons qu’il y a 38 personnes sur 63 considérées comme naïves parmi les personnes ne parlant pas une seconde langue. Et 31 personnes sur 54 parmi les personnes ne parlant pas une seconde langue.

Naïveté :

donnees$`Score dichotomique de naiveté`<-factor(donnees$`Score dichotomique de naiveté`,levels = c(0,1),labels = c("non naïf","naïf")) 

naivete_distrib<-table(donnees$`Score dichotomique de naiveté`)
print(naivete_distrib)
## 
## non naïf     naïf 
##       48       70

Sur ces participants, 48 sont considérés comme non naïfs et 70 comme naïfs.

naiveteAge=split(donnees$`Score dichotomique de naiveté`,donnees$age)
naiveteAge
## $`18`
##  [1] naïf     non naïf naïf     non naïf non naïf non naïf non naïf non naïf
##  [9] naïf     naïf     naïf     non naïf naïf     naïf     non naïf naïf    
## [17] non naïf non naïf
## Levels: non naïf naïf
## 
## $`19`
##  [1] naïf     naïf     naïf     non naïf non naïf non naïf non naïf naïf    
##  [9] naïf     naïf    
## Levels: non naïf naïf
## 
## $`20`
##  [1] non naïf naïf     naïf     non naïf naïf     naïf     non naïf non naïf
##  [9] non naïf non naïf naïf     non naïf naïf     non naïf naïf     naïf    
## [17] non naïf naïf     naïf     naïf     naïf     non naïf
## Levels: non naïf naïf
## 
## $`21`
## [1] naïf     non naïf non naïf non naïf
## Levels: non naïf naïf
## 
## $`22`
##  [1] naïf     non naïf naïf     naïf     naïf     non naïf non naïf naïf    
##  [9] naïf     non naïf
## Levels: non naïf naïf
## 
## $`23`
## [1] naïf     naïf     non naïf naïf    
## Levels: non naïf naïf
## 
## $`24`
## [1] naïf     naïf     non naïf non naïf naïf    
## Levels: non naïf naïf
## 
## $`25`
## [1] naïf naïf naïf
## Levels: non naïf naïf
## 
## $`26`
## [1] non naïf naïf    
## Levels: non naïf naïf
## 
## $`27`
## [1] naïf     non naïf non naïf naïf    
## Levels: non naïf naïf
## 
## $`28`
## [1] non naïf naïf     naïf    
## Levels: non naïf naïf
## 
## $`29`
## [1] naïf     non naïf
## Levels: non naïf naïf
## 
## $`31`
## [1] naïf naïf
## Levels: non naïf naïf
## 
## $`32`
## [1] naïf     non naïf
## Levels: non naïf naïf
## 
## $`33`
## [1] non naïf
## Levels: non naïf naïf
## 
## $`34`
## [1] non naïf naïf     naïf    
## Levels: non naïf naïf
## 
## $`35`
## [1] naïf
## Levels: non naïf naïf
## 
## $`37`
## [1] naïf naïf
## Levels: non naïf naïf
## 
## $`38`
## [1] naïf naïf
## Levels: non naïf naïf
## 
## $`39`
## [1] naïf     non naïf naïf    
## Levels: non naïf naïf
## 
## $`40`
## [1] naïf
## Levels: non naïf naïf
## 
## $`41`
## [1] naïf
## Levels: non naïf naïf
## 
## $`42`
## [1] naïf
## Levels: non naïf naïf
## 
## $`43`
## [1] naïf
## Levels: non naïf naïf
## 
## $`44`
## [1] naïf
## Levels: non naïf naïf
## 
## $`46`
## [1] non naïf
## Levels: non naïf naïf
## 
## $`50`
## [1] naïf
## Levels: non naïf naïf
## 
## $`51`
## [1] non naïf
## Levels: non naïf naïf
## 
## $`52`
## [1] naïf
## Levels: non naïf naïf
## 
## $`53`
## [1] naïf
## Levels: non naïf naïf
## 
## $`55`
## [1] non naïf non naïf
## Levels: non naïf naïf
## 
## $`59`
## [1] naïf
## Levels: non naïf naïf
## 
## $`62`
## [1] non naïf
## Levels: non naïf naïf

Nombre de personnes naïves et non naïves pour chaque âge :

naivete_by_age <- table(donnees$age,donnees$`Score dichotomique de naiveté`)
print(naivete_by_age)
##     
##      non naïf naïf
##   18       10    8
##   19        4    6
##   20       10   12
##   21        3    1
##   22        4    6
##   23        1    3
##   24        2    3
##   25        0    3
##   26        1    1
##   27        2    2
##   28        1    2
##   29        1    1
##   31        0    2
##   32        1    1
##   33        1    0
##   34        1    2
##   35        0    1
##   37        0    2
##   38        0    2
##   39        1    2
##   40        0    1
##   41        0    1
##   42        0    1
##   43        0    1
##   44        0    1
##   46        1    0
##   50        0    1
##   51        1    0
##   52        0    1
##   53        0    1
##   55        2    0
##   59        0    1
##   62        1    0

Nombre de personnes naïves et non naïves pour les personnes ayant ou non une seconde langue :

naivete_by_langue <- table(donnees$`seconde langue ou plus`,donnees$`Score dichotomique de naiveté`)
print(naivete_by_langue)
##      
##       non naïf naïf
##   non       25   38
##   oui       23   31

Nous avons : - 25 personnes ne parlant pas une seconde langue, non naïves - 38 personnes ne parlant pas une seconde langue, naïves - 23 personnes parlant une seconde langue, non naïves - 31 personnes parlant une seconde langue, naïves