Osteotomie_naviguee <- read.csv("C:/Users/mallah.s/Desktop/Stats et Theses/Osteotomie_naviguee_Debonnecase/Osteotomie_naviguee.csv", sep=";", stringsAsFactors=TRUE)
library(funModeling)
library(ggplot2)
library(rcompanion)
library(car)
library(rmarkdown)
library(knitr)
library(markdown)
library(tidyverse)
library(summarytools)
summary(Osteotomie_naviguee)
## N. Sexe Age Esthetique Fonctionnelle
## Min. : 1.00 F: 8 Min. :18.00 Bosse/cyphose: 2 Non: 3
## 1st Qu.: 5.75 H:12 1st Qu.:23.75 Les deux :14 Oui:17
## Median :10.50 Median :35.00 Nez devie : 4
## Mean :10.50 Mean :35.30
## 3rd Qu.:15.25 3rd Qu.:40.25
## Max. :20.00 Max. :66.00
##
## Congenitale Post_traumatique MiRa_pre_op MiRa_pre_op_vue_frontale
## Non:15 Non: 5 Min. :26.00 Min. :10.0
## Oui: 5 Oui:15 1st Qu.:27.75 1st Qu.:14.0
## Median :29.50 Median :15.0
## Mean :29.90 Mean :14.7
## 3rd Qu.:31.25 3rd Qu.:16.0
## Max. :36.00 Max. :17.0
##
## MiRa_pre_op_vue_latérale MiRa_pre_op_vue_basale MiRa_post_op
## Min. : 5.00 Min. :4.0 Min. :33.00
## 1st Qu.: 7.75 1st Qu.:5.0 1st Qu.:34.75
## Median : 9.00 Median :6.5 Median :36.00
## Mean : 8.90 Mean :6.2 Mean :35.75
## 3rd Qu.:10.00 3rd Qu.:7.0 3rd Qu.:36.25
## Max. :12.00 Max. :8.0 Max. :39.00
##
## MiRa_post_op_vue_frontale MiRa_post_op_vue_latérale MiRa_post_op_vue_basale
## Min. :15.0 Min. :10.00 Min. :6.0
## 1st Qu.:16.0 1st Qu.:11.00 1st Qu.:7.0
## Median :17.0 Median :12.00 Median :7.0
## Mean :16.9 Mean :11.85 Mean :7.1
## 3rd Qu.:18.0 3rd Qu.:12.25 3rd Qu.:8.0
## Max. :18.0 Max. :14.00 Max. :8.0
##
## NOSE_pre_op NOSE_post_op QFACE_préop_nez QFACE_préop_narine
## Min. : 1.00 Min. : 0.000 Min. : 0.00 Min. : 0.00
## 1st Qu.: 6.00 1st Qu.: 0.000 1st Qu.:32.25 1st Qu.: 47.75
## Median :11.00 Median : 0.000 Median :38.50 Median : 59.50
## Mean :10.95 Mean : 2.053 Mean :38.10 Mean : 53.95
## 3rd Qu.:16.00 3rd Qu.: 3.500 3rd Qu.:49.00 3rd Qu.: 64.00
## Max. :20.00 Max. :15.000 Max. :56.00 Max. :100.00
## NA's :1
## QFACE_post_op_nez QFACE_postop_narine EVA_J7 EVA_J12
## Min. : 49.0 Min. : 49.0 Min. :0.000 Min. :0.00
## 1st Qu.: 61.5 1st Qu.: 82.5 1st Qu.:1.000 1st Qu.:0.00
## Median : 74.0 Median : 91.0 Median :1.000 Median :0.00
## Mean : 76.6 Mean : 87.6 Mean :1.526 Mean :0.05
## 3rd Qu.: 92.5 3rd Qu.:100.0 3rd Qu.:2.000 3rd Qu.:0.00
## Max. :100.0 Max. :100.0 Max. :6.000 Max. :1.00
## NA's :1
## EVA_derniere_cs Oedeme_J7_OD Oedeme_J7_OG Oedeme_J12_OD Oedeme_J12_OG
## Min. :0 Min. :0.0 Min. :0.0000 Min. :0.00 Min. :0.00
## 1st Qu.:0 1st Qu.:0.0 1st Qu.:0.0000 1st Qu.:0.00 1st Qu.:0.00
## Median :0 Median :0.0 Median :0.0000 Median :0.00 Median :0.00
## Mean :0 Mean :0.6 Mean :0.6316 Mean :0.25 Mean :0.25
## 3rd Qu.:0 3rd Qu.:1.0 3rd Qu.:1.0000 3rd Qu.:0.00 3rd Qu.:0.00
## Max. :0 Max. :3.0 Max. :3.0000 Max. :2.00 Max. :2.00
## NA's :1
## Ecchymose_J7_OD Ecchymose_J7_OG Ecchymose_J12_OD Ecchymose_J12_OG Infection
## Min. :0.000 Min. :0.000 Min. :0.00 Min. :0.00 Non:20
## 1st Qu.:0.000 1st Qu.:0.000 1st Qu.:0.00 1st Qu.:0.00
## Median :1.000 Median :1.000 Median :1.00 Median :1.00
## Mean :1.474 Mean :1.316 Mean :1.35 Mean :1.25
## 3rd Qu.:3.000 3rd Qu.:2.500 3rd Qu.:3.00 3rd Qu.:2.25
## Max. :4.000 Max. :4.000 Max. :4.00 Max. :4.00
## NA's :1 NA's :1
## Antibiotherapie Saignement Mechage Suivi_mois Planification_Xir_min
## Non:20 Non:20 Non:20 Min. : 3.00 Min. :15.0
## 1st Qu.: 6.75 1st Qu.:18.0
## Median : 7.00 Median :22.0
## Mean : 7.60 Mean :24.6
## 3rd Qu.: 9.00 3rd Qu.:25.5
## Max. :13.00 Max. :55.0
##
## P_Xir_Neuronav_min P_Xir_MER.TDM_patient.min P_Xir_Champage.infiltration_min
## Min. : 2.000 Min. :2.0 Min. : 2.00
## 1st Qu.: 2.500 1st Qu.:2.0 1st Qu.: 3.00
## Median : 3.000 Median :2.5 Median : 4.00
## Mean : 3.474 Mean :3.1 Mean : 6.00
## 3rd Qu.: 4.000 3rd Qu.:4.0 3rd Qu.: 9.25
## Max. :10.000 Max. :7.0 Max. :20.00
## NA's :1
## P_Xir_VA_disjonction_min P_Xir_Osteotomie_toit.ouvert_min
## Min. :17.00 Min. :33.00
## 1st Qu.:22.00 1st Qu.:39.75
## Median :28.50 Median :48.00
## Mean :27.20 Mean :50.10
## 3rd Qu.:31.25 3rd Qu.:56.25
## Max. :38.00 Max. :78.00
##
## P_Xir_Septoplastie_min P_Xir_Gestion1_3_moyen_min P_Xir_Gestion.pointe_min
## Min. : 6.0 Min. : 7.00 Min. :10.00
## 1st Qu.:11.0 1st Qu.: 9.75 1st Qu.:12.75
## Median :16.5 Median :13.50 Median :17.00
## Mean :16.6 Mean :14.25 Mean :16.65
## 3rd Qu.:20.0 3rd Qu.:17.00 3rd Qu.:20.00
## Max. :34.0 Max. :30.00 Max. :26.00
##
## P_Xir_fermeture_plaques.min P_Xir_Fin_min P_Xir_Calibration_instruments_nbre
## Min. :10.0 Min. :103.0 Min. :2.0
## 1st Qu.:12.0 1st Qu.:131.8 1st Qu.:2.0
## Median :14.0 Median :138.0 Median :2.5
## Mean :14.4 Mean :144.4 Mean :3.1
## 3rd Qu.:15.5 3rd Qu.:159.2 3rd Qu.:4.0
## Max. :26.0 Max. :180.0 Max. :6.0
##
## P_Xir_Saignements_volume P_Xir_Toit.ouvert_D_grade P_Xir_Toit_ouvert_G
## Min. : 50.00 Min. :1.0 Min. :1.00
## 1st Qu.: 71.25 1st Qu.:1.0 1st Qu.:1.00
## Median : 75.00 Median :1.0 Median :1.00
## Mean : 78.00 Mean :1.1 Mean :1.15
## 3rd Qu.:100.00 3rd Qu.:1.0 3rd Qu.:1.00
## Max. :100.00 Max. :2.0 Max. :2.00
##
## P_Xir_Laterale_D P_Xir_Laterale_G P_Xir_Transverse_D P_Xir_Transverse_G
## Min. :1.00 Min. :1.00 Min. :2.0 Min. :1.00
## 1st Qu.:1.00 1st Qu.:1.00 1st Qu.:2.0 1st Qu.:2.00
## Median :1.00 Median :1.00 Median :2.0 Median :2.00
## Mean :1.15 Mean :1.15 Mean :2.4 Mean :2.35
## 3rd Qu.:1.00 3rd Qu.:1.00 3rd Qu.:3.0 3rd Qu.:3.00
## Max. :2.00 Max. :2.00 Max. :3.0 Max. :3.00
##
## P_Xir_Mobilisation_volets P_Xir_Avantages P_Xir_Desavantages
## Min. :1.00 Mode:logical :17
## 1st Qu.:1.00 NA's:20 BRULURE : 1
## Median :1.00 brulure sous cut droite: 1
## Mean :1.25 phlyctène : 1
## 3rd Qu.:1.25
## Max. :2.00
##
pour comparer les scores pré et post-opératoire des échelles MiRa, NOSE et Q FACE :
t.test(Osteotomie_naviguee$MiRa_pre_op, Osteotomie_naviguee$MiRa_post_op, paired=TRUE)
##
## Paired t-test
##
## data: Osteotomie_naviguee$MiRa_pre_op and Osteotomie_naviguee$MiRa_post_op
## t = -11.153, df = 19, p-value = 8.83e-10
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## -6.947854 -4.752146
## sample estimates:
## mean difference
## -5.85
Legain moyen de valeur Mira preop et post op est de 5.85 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa des sujets après l’operation est significativement différent du MIRA observé avant celle-ci, dans le sens d’une croissance.
##
## Paired t-test
##
## data: Osteotomie_naviguee$MiRa_pre_op_vue_basale and Osteotomie_naviguee$MiRa_post_op_vue_basale
## t = -2.8536, df = 19, p-value = 0.01016
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## -1.5601283 -0.2398717
## sample estimates:
## mean difference
## -0.9
Le gain moyen de valeur Mira basale preop et post op est de 0.9 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa basale des sujets après l’operation est significativement différent du MIRA basale observé avant celle-ci, dans le sens d’une croissance.
##
## Paired t-test
##
## data: Osteotomie_naviguee$MiRa_pre_op_vue_latérale and Osteotomie_naviguee$MiRa_post_op_vue_latérale
## t = -7.6202, df = 19, p-value = 3.425e-07
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## -3.760269 -2.139731
## sample estimates:
## mean difference
## -2.95
Le gain moyen de valeur Mira laterale preop et post op est de 2.95 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa laterale des sujets après l’operation est significativement différent du MIRA laterale observé avant celle-ci, dans le sens d’une croissance.
##
## Paired t-test
##
## data: Osteotomie_naviguee$MiRa_pre_op_vue_frontale and Osteotomie_naviguee$MiRa_post_op_vue_frontale
## t = -6.8497, df = 19, p-value = 1.55e-06
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## -2.872242 -1.527758
## sample estimates:
## mean difference
## -2.2
Le gain moyen de valeur Mira frontale preop et post op est de 2.2 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que le MIRa frontale des sujets après l’operation est significativement différent du MIRA frontale observé avant celle-ci, dans le sens d’une croissance.
##
## Paired t-test
##
## data: Osteotomie_naviguee$NOSE_pre_op and Osteotomie_naviguee$NOSE_post_op
## t = 5.921, df = 18, p-value = 1.325e-05
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## 5.738669 12.050805
## sample estimates:
## mean difference
## 8.894737
La perte moyenne de valeur NOSE preop et post op est de 8.894 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que NOSE des sujets après l’operation est significativement différent du NOSE observé avant celle-ci, dans le sens d’une decroissance.
##
## Paired t-test
##
## data: Osteotomie_naviguee$QFACE_préop_nez and Osteotomie_naviguee$QFACE_post_op_nez
## t = -8.5301, df = 19, p-value = 6.38e-08
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## -47.94672 -29.05328
## sample estimates:
## mean difference
## -38.5
Le gain moyen de valeur QFACE nez preop et post op est de 38.5. La p-value du test est <0.05. Ainsi, les résultats nous indiquent quele QFACE nez des sujets après l’operation est significativement différent du QFace observé avant celle-ci, dans le sens d’une croissance.
##
## Paired t-test
##
## data: Osteotomie_naviguee$QFACE_préop_narine and Osteotomie_naviguee$QFACE_postop_narine
## t = -5.01, df = 19, p-value = 7.774e-05
## alternative hypothesis: true mean difference is not equal to 0
## 95 percent confidence interval:
## -47.70789 -19.59211
## sample estimates:
## mean difference
## -33.65
La gain moyen de la valeur QFACE narine preop et post op est de 33.65 . La p-value du test est <0.05. Ainsi, les résultats nous indiquent que QFACE narine des sujets après l’operation est significativement différent du QFACE narine observé avant celle-ci, dans le sens d’une croissance.
Pour le taux de complications, les échelles d’ecchymoses et œdème, et la douleur post-opératoire :
Pour la procédure menée à son terme, les grades de mobilisation des volets osseux, la durée de chaque étape, et le nombre de calibrations :
## Procédure menée à son terme
Pour évaluer la courbe d apprentissage :