library(Hmisc)
library(knitr) 
library(rmarkdown) 
library(markdown)
library(tidyverse)
library(car)
library(rcompanion)
library(tidyverse)
library(rstatix)
library(ggpubr)
library(car)
library(prettyR)

Descriptif_total_V2 <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/Descriptif_total_V2.csv", stringsAsFactors=TRUE)

valves_total <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/valves_total.csv", stringsAsFactors=TRUE)

NoValves_total <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/NoValves_total.csv", stringsAsFactors=TRUE)

Groupe1_total <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/Groupe_1/Groupe1_total.csv", stringsAsFactors=TRUE)

Groupe1_Valves <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/Groupe_1/Groupe1_Valves.csv", stringsAsFactors=TRUE)
G1_V<-Groupe1_Valves

Groupe1_NoValves <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/Groupe_1/Groupe1_NoValves.csv", stringsAsFactors=TRUE)
G1_NV<-Groupe1_NoValves

Groupe2_total <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/Groupe_2/Groupe2_total.csv", stringsAsFactors=TRUE)

Groupe2_Valves <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/Groupe_2/Groupe2_Valves.csv", stringsAsFactors=TRUE)
G2_V<-Groupe2_Valves

Groupe2_NoValves <- read.csv2("C:/Users/mallah.s/Desktop/Stats et Theses/Valves_Lucile/doc_08_08_22/Groupe_2/Groupe2_NoValves.csv", stringsAsFactors=TRUE)
G2_NV<-Groupe2_NoValves

Evolution des resulats des patients

1er Groupe

VEMS à 3 mois

comparaison moyennes

t.test(G1_V$VEMS._mL_0,G1_V$VEMS_.ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$VEMS._mL_0 and G1_V$VEMS_.ml._1
## t = -1.8829, df = 16, p-value = 0.07802
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -465.18713   27.54008
## sample estimates:
## mean of the differences 
##               -218.8235

comparaison médianes

wilcox.test(G1_V$VEMS._mL_0,G1_V$VEMS_.ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G1_V$VEMS._mL_0 and G1_V$VEMS_.ml._1
## V = 30.5, p-value = 0.05564
## alternative hypothesis: true location shift is not equal to 0

VEMS à 1 an

comparaison moyennes

t.test(G1_V$VEMS._mL_0,G1_V$VEMS_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$VEMS._mL_0 and G1_V$VEMS_.ml._2
## t = -0.83555, df = 11, p-value = 0.4212
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -284.6766  128.0100
## sample estimates:
## mean of the differences 
##               -78.33333

Comparaison médianes

wilcox.test(G1_V$VEMS._mL_0,G1_V$VEMS_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G1_V$VEMS._mL_0 and G1_V$VEMS_.ml._2
## V = 24, p-value = 0.4496
## alternative hypothesis: true location shift is not equal to 0

TM6 à 3 mois

comparaison moyennes

t.test(G1_V$TM6_.m._0,G1_V$TM6_.m._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$TM6_.m._0 and G1_V$TM6_.m._1
## t = 0.038596, df = 12, p-value = 0.9698
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -51.18565  53.03180
## sample estimates:
## mean of the differences 
##               0.9230769

Comparaison médianes

wilcox.test(G1_V$TM6_.m._0,G1_V$TM6_.m._1, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G1_V$TM6_.m._0 and G1_V$TM6_.m._1
## V = 35, p-value = 0.4973
## alternative hypothesis: true location shift is not equal to 0

TM6 à 1 an

comparaison moyennes

t.test(G1_V$TM6_.m._0,G1_V$TM6_.m._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$TM6_.m._0 and G1_V$TM6_.m._2
## t = -0.54759, df = 7, p-value = 0.601
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -103.70543   64.70543
## sample estimates:
## mean of the differences 
##                   -19.5

Comparaison médianes

wilcox.test(G1_V$TM6_.m._0,G1_V$TM6_.m._2, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G1_V$TM6_.m._0 and G1_V$TM6_.m._2
## V = 14, p-value = 0.6406
## alternative hypothesis: true location shift is not equal to 0

VR à 3 mois

comparaison moyennes

t.test(G1_V$VR_ml_0,G1_V$VR..ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$VR_ml_0 and G1_V$VR..ml._1
## t = 0.90853, df = 16, p-value = 0.3771
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -332.5480  831.3716
## sample estimates:
## mean of the differences 
##                249.4118

Comparaison médianes

wilcox.test(G1_V$VR_ml_0,G1_V$VR..ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G1_V$VR_ml_0 and G1_V$VR..ml._1
## V = 95, p-value = 0.4038
## alternative hypothesis: true location shift is not equal to 0

VR à 1 an

comparaison moyennes

t.test(G1_V$VR_ml_0,G1_V$VR_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$VR_ml_0 and G1_V$VR_.ml._2
## t = 0.50512, df = 10, p-value = 0.6244
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -790.7575 1254.3939
## sample estimates:
## mean of the differences 
##                231.8182

Comparaison médianes

wilcox.test(G1_V$VR_ml_0,G1_V$VR_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G1_V$VR_ml_0 and G1_V$VR_.ml._2
## V = 43, p-value = 0.4131
## alternative hypothesis: true location shift is not equal to 0

CVF à 3 mois

comparaison moyennes

t.test(G1_V$CVF_ml_0,G1_V$CVF_.ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$CVF_ml_0 and G1_V$CVF_.ml._1
## t = -1.9379, df = 15, p-value = 0.0717
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -565.66098   26.91098
## sample estimates:
## mean of the differences 
##                -269.375

Comparaison médianes

wilcox.test(G1_V$CVF_ml_0,G1_V$CVF_.ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G1_V$CVF_ml_0 and G1_V$CVF_.ml._1
## V = 34.5, p-value = 0.08788
## alternative hypothesis: true location shift is not equal to 0

CVF à 1an

comparaison moyennes

t.test(G1_V$CVF_ml_0,G1_V$CVF_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$CVF_ml_0 and G1_V$CVF_.ml._2
## t = -0.045365, df = 9, p-value = 0.9648
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -559.5175  537.5175
## sample estimates:
## mean of the differences 
##                     -11

Comparaison médianes

wilcox.test(G1_V$CVF_ml_0,G1_V$CVF_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G1_V$CVF_ml_0 and G1_V$CVF_.ml._2
## V = 26, p-value = 0.9219
## alternative hypothesis: true location shift is not equal to 0

CPT à 3 mois

comparaison moyennes

t.test(G1_V$CPT_ml_0,G1_V$CPT_.ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$CPT_ml_0 and G1_V$CPT_.ml._1
## t = 0.48658, df = 16, p-value = 0.6332
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -257.4832  410.8949
## sample estimates:
## mean of the differences 
##                76.70588

Comparaison médianes

wilcox.test(G1_V$CPT_ml_0,G1_V$CPT_.ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G1_V$CPT_ml_0 and G1_V$CPT_.ml._1
## V = 72, p-value = 0.8536
## alternative hypothesis: true location shift is not equal to 0

CPT à 1 an

comparaison moyennes

t.test(G1_V$CPT_ml_0,G1_V$CPT_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$CPT_ml_0 and G1_V$CPT_.ml._2
## t = 0.3278, df = 10, p-value = 0.7498
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -386.8339  520.2884
## sample estimates:
## mean of the differences 
##                66.72727

Comparaison médianes

wilcox.test(G1_V$CPT_ml_0,G1_V$CPT_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G1_V$CPT_ml_0 and G1_V$CPT_.ml._2
## V = 35, p-value = 0.8984
## alternative hypothesis: true location shift is not equal to 0

BODE à 3 mois

comparaison moyennes

t.test(G1_V$BODE_calcul_0,G1_V$BODE.calculé_1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$BODE_calcul_0 and G1_V$BODE.calculé_1
## t = 2.3094, df = 12, p-value = 0.03952
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.06959553 2.39194293
## sample estimates:
## mean of the differences 
##                1.230769

Comparaison médianes

wilcox.test(G1_V$BODE_calcul_0,G1_V$BODE.calculé_1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G1_V$BODE_calcul_0 and G1_V$BODE.calculé_1
## V = 74.5, p-value = 0.03564
## alternative hypothesis: true location shift is not equal to 0

BODE à 1 an

comparaison moyennes

t.test(G1_V$BODE_calcul_0,G1_V$calcul.bode_2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G1_V$BODE_calcul_0 and G1_V$calcul.bode_2
## t = 1.5667, df = 7, p-value = 0.1612
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.5729665  2.8229665
## sample estimates:
## mean of the differences 
##                   1.125

Comparaison médianes

wilcox.test(G1_V$BODE_calcul_0,G1_V$calcul.bode_2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G1_V$BODE_calcul_0 and G1_V$calcul.bode_2
## V = 17, p-value = 0.2021
## alternative hypothesis: true location shift is not equal to 0

2eme groupe

VEMS à 3 mois

comparaison moyennes

t.test(G2_V$VEMS._mL_0,G2_V$VEMS_.ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$VEMS._mL_0 and G2_V$VEMS_.ml._1
## t = -4.5992, df = 32, p-value = 6.345e-05
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -235.23467  -90.82594
## sample estimates:
## mean of the differences 
##               -163.0303

comparaison médianes

wilcox.test(G2_V$VEMS._mL_0,G2_V$VEMS_.ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$VEMS._mL_0 and G2_V$VEMS_.ml._1
## V = 78.5, p-value = 0.0003165
## alternative hypothesis: true location shift is not equal to 0

VEMS à 1 an

comparaison moyennes

t.test(G2_V$VEMS._mL_0,G2_V$VEMS_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$VEMS._mL_0 and G2_V$VEMS_.ml._2
## t = -3.9212, df = 17, p-value = 0.0011
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -205.07355  -61.59311
## sample estimates:
## mean of the differences 
##               -133.3333

Comparaison médianes

wilcox.test(G2_V$VEMS._mL_0,G2_V$VEMS_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$VEMS._mL_0 and G2_V$VEMS_.ml._2
## V = 18.5, p-value = 0.003717
## alternative hypothesis: true location shift is not equal to 0

TM6 à 3 mois

comparaison moyennes

t.test(G2_V$TM6_.m._0,G2_V$TM6_.m._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$TM6_.m._0 and G2_V$TM6_.m._1
## t = -2.2543, df = 24, p-value = 0.03358
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -103.055881   -4.544119
## sample estimates:
## mean of the differences 
##                   -53.8

Comparaison médianes

wilcox.test(G2_V$TM6_.m._0,G2_V$TM6_.m._1, paired = TRUE)

## 
##  Wilcoxon signed rank exact test
## 
## data:  G2_V$TM6_.m._0 and G2_V$TM6_.m._1
## V = 70, p-value = 0.01145
## alternative hypothesis: true location shift is not equal to 0

TM6 à 1 an

comparaison moyennes

t.test(G2_V$TM6_.m._0,G2_V$TM6_.m._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$TM6_.m._0 and G2_V$TM6_.m._2
## t = -1.2102, df = 12, p-value = 0.2495
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -104.90853   29.98545
## sample estimates:
## mean of the differences 
##               -37.46154

Comparaison médianes

wilcox.test(G2_V$TM6_.m._0,G2_V$TM6_.m._2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$TM6_.m._0 and G2_V$TM6_.m._2
## V = 23.5, p-value = 0.2391
## alternative hypothesis: true location shift is not equal to 0

VR à 3 mois

comparaison moyennes

t.test(G2_V$VR_ml_0,G2_V$VR..ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$VR_ml_0 and G2_V$VR..ml._1
## t = 7.2956, df = 32, p-value = 2.717e-08
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##   676.8955 1201.2863
## sample estimates:
## mean of the differences 
##                939.0909

Comparaison médianes

wilcox.test(G2_V$VR_ml_0,G2_V$VR..ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$VR_ml_0 and G2_V$VR..ml._1
## V = 521, p-value = 1.615e-06
## alternative hypothesis: true location shift is not equal to 0

VR à 1 an

comparaison moyennes

t.test(G2_V$VR_ml_0,G2_V$VR_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$VR_ml_0 and G2_V$VR_.ml._2
## t = 3.9275, df = 16, p-value = 0.001202
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##   347.0795 1161.1558
## sample estimates:
## mean of the differences 
##                754.1176

Comparaison médianes

wilcox.test(G2_V$VR_ml_0,G2_V$VR_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$VR_ml_0 and G2_V$VR_.ml._2
## V = 122, p-value = 0.00566
## alternative hypothesis: true location shift is not equal to 0

CVF à 3 mois

comparaison moyennes

t.test(G2_V$CVF_ml_0,G2_V$CVF_.ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$CVF_ml_0 and G2_V$CVF_.ml._1
## t = -4.1456, df = 30, p-value = 0.0002555
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -643.2293 -218.6416
## sample estimates:
## mean of the differences 
##               -430.9355

Comparaison médianes

wilcox.test(G2_V$CVF_ml_0,G2_V$CVF_.ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$CVF_ml_0 and G2_V$CVF_.ml._1
## V = 75, p-value = 0.0007234
## alternative hypothesis: true location shift is not equal to 0

CVF à 1an

comparaison moyennes

t.test(G2_V$CVF_ml_0,G2_V$CVF_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$CVF_ml_0 and G2_V$CVF_.ml._2
## t = -3.5355, df = 16, p-value = 0.00275
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -602.1118 -150.7117
## sample estimates:
## mean of the differences 
##               -376.4118

Comparaison médianes

wilcox.test(G2_V$CVF_ml_0,G2_V$CVF_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$CVF_ml_0 and G2_V$CVF_.ml._2
## V = 15.5, p-value = 0.004179
## alternative hypothesis: true location shift is not equal to 0

CPT à 3 mois

comparaison moyennes

t.test(G2_V$CPT_ml_0,G2_V$CPT_.ml._1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$CPT_ml_0 and G2_V$CPT_.ml._1
## t = 4.4335, df = 32, p-value = 0.0001022
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  224.2669 605.4906
## sample estimates:
## mean of the differences 
##                414.8788

Comparaison médianes

wilcox.test(G2_V$CPT_ml_0,G2_V$CPT_.ml._1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$CPT_ml_0 and G2_V$CPT_.ml._1
## V = 476, p-value = 0.0004927
## alternative hypothesis: true location shift is not equal to 0

CPT à 1 an

comparaison moyennes

t.test(G2_V$CPT_ml_0,G2_V$CPT_.ml._2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$CPT_ml_0 and G2_V$CPT_.ml._2
## t = 2.1756, df = 16, p-value = 0.04492
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##    8.543208 658.633262
## sample estimates:
## mean of the differences 
##                333.5882

Comparaison médianes

wilcox.test(G2_V$CPT_ml_0,G2_V$CPT_.ml._2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$CPT_ml_0 and G2_V$CPT_.ml._2
## V = 114, p-value = 0.07982
## alternative hypothesis: true location shift is not equal to 0

BODE à 3 mois

comparaison moyennes

t.test(G2_V$BODE_calcul_0,G2_V$BODE.calculé_1, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$BODE_calcul_0 and G2_V$BODE.calculé_1
## t = 6.8016, df = 23, p-value = 6.164e-07
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  1.333730 2.499603
## sample estimates:
## mean of the differences 
##                1.916667

Comparaison médianes

wilcox.test(G2_V$BODE_calcul_0,G2_V$BODE.calculé_1, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$BODE_calcul_0 and G2_V$BODE.calculé_1
## V = 264.5, p-value = 0.0001036
## alternative hypothesis: true location shift is not equal to 0

BODE à 1 an

comparaison moyennes

t.test(G2_V$BODE_calcul_0,G2_V$calcul.bode_2, paired = TRUE)

## 
##  Paired t-test
## 
## data:  G2_V$BODE_calcul_0 and G2_V$calcul.bode_2
## t = 4.0959, df = 12, p-value = 0.001483
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.8641017 2.8282060
## sample estimates:
## mean of the differences 
##                1.846154

Comparaison médianes

wilcox.test(G2_V$BODE_calcul_0,G2_V$calcul.bode_2, paired = TRUE)

## 
##  Wilcoxon signed rank test with continuity correction
## 
## data:  G2_V$BODE_calcul_0 and G2_V$calcul.bode_2
## V = 84.5, p-value = 0.006185
## alternative hypothesis: true location shift is not equal to 0

timesEvolve_valves

MALLAH Siham

2022-08-10

Evolution des resulats des patients

1er Groupe

VEMS à 3 mois

VEMS à 1 an

TM6 à 3 mois

TM6 à 1 an

VR à 3 mois

VR à 1 an

CVF à 3 mois

CVF à 1an

CPT à 3 mois

CPT à 1 an

BODE à 3 mois

BODE à 1 an

2eme groupe

VEMS à 3 mois

VEMS à 1 an

TM6 à 3 mois

TM6 à 1 an

VR à 3 mois

VR à 1 an

CVF à 3 mois

CVF à 1an

CPT à 3 mois

CPT à 1 an

BODE à 3 mois

BODE à 1 an