seuil_HID

lebut etant de voir s’il y’a une amélioration des critères chez les patients ayant une HID < 660 ml vs >= 660 en pré traitement

Comparaison des groupes selon le seuil

Schema de Comparaison sur la base de l’homgénité

ggplot(Seuil, aes(y=VEMS_ml, x=seuil_CI_diff , colour=seuil_CI_diff, fill=seuil_CI_diff))+
   geom_jitter(height=0, width=0.25)+
   geom_boxplot(alpha=0.5,notch=TRUE)

## notch went outside hinges. Try setting notch=FALSE.

#les tests vont se faire à partir de “d” des données (d= donnée T0-donnée T1) des patients ayant une hyperinflation ensuite comparaison des deux groupes des patients : “CI_diff recalculé >=660” VS “CI_diff recalculé <660

Comparaison des groupes sup et inf

“Volume lobe

t.test(Seuil$volume.lobe~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$volume.lobe by Seuil$seuil_CI_diff
## t = 1.0749, df = 31, p-value = 0.2907
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -240.8231  777.5363
## sample estimates:
## mean in group inf mean in group sup 
##          945.0625          676.7059

“MMRC

t.test(Seuil$MMRC~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$MMRC by Seuil$seuil_CI_diff
## t = 0.27885, df = 33, p-value = 0.7821
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.6378477  0.8404621
## sample estimates:
## mean in group inf mean in group sup 
##          1.277778          1.176471

“BODE

t.test(Seuil$BODE~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$BODE by Seuil$seuil_CI_diff
## t = 0.55339, df = 29, p-value = 0.5842
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.977226  1.702226
## sample estimates:
## mean in group inf mean in group sup 
##            1.8000            1.4375

“VEMS

t.test(Seuil$VEMS_ml~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$VEMS_ml by Seuil$seuil_CI_diff
## t = 0.01877, df = 35, p-value = 0.9851
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -159.7987  162.7811
## sample estimates:
## mean in group inf mean in group sup 
##         -161.6667         -163.1579

“Tiffeneau

t.test(Seuil$Tiffe~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$Tiffe by Seuil$seuil_CI_diff
## t = -0.030971, df = 35, p-value = 0.9755
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -5.642943  5.473353
## sample estimates:
## mean in group inf mean in group sup 
##        -0.6111111        -0.5263158

“CV (ml)

t.test(Seuil$CV_ml~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$CV_ml by Seuil$seuil_CI_diff
## t = 0.013517, df = 35, p-value = 0.9893
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -335.8997  340.4026
## sample estimates:
## mean in group inf mean in group sup 
##         -227.2222         -229.4737

“CVF(ml)

t.test(Seuil$CVF_ml~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$CVF_ml by Seuil$seuil_CI_diff
## t = -0.18002, df = 35, p-value = 0.8582
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -352.9179  295.4267
## sample estimates:
## mean in group inf mean in group sup 
##         -317.1667         -288.4211

“VR (ml)

t.test(Seuil$VR_ml~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$VR_ml by Seuil$seuil_CI_diff
## t = 0.013885, df = 35, p-value = 0.989
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -556.1948  563.8556
## sample estimates:
## mean in group inf mean in group sup 
##          602.7778          598.9474

“CPT (ml)

t.test(Seuil$CPT_ml~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$CPT_ml by Seuil$seuil_CI_diff
## t = 0.56169, df = 35, p-value = 0.5779
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -500.9925  884.2615
## sample estimates:
## mean in group inf mean in group sup 
##          610.0556          418.4211

“TLCO

t.test(Seuil$TLCO~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$TLCO by Seuil$seuil_CI_diff
## t = 0.94815, df = 23, p-value = 0.3529
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -3.265059  8.790700
## sample estimates:
## mean in group inf mean in group sup 
##         -1.153846         -3.916667

“Pi%

t.test(Seuil$Pi_pct~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$Pi_pct by Seuil$seuil_CI_diff
## t = 0.91823, df = 16, p-value = 0.3721
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -14.54087  36.76309
## sample estimates:
## mean in group inf mean in group sup 
##         -25.77778         -36.88889

“Ci_rest recalculé

t.test(Seuil$Ci_rest.recalc~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$Ci_rest.recalc by Seuil$seuil_CI_diff
## t = 2.9713, df = 35, p-value = 0.005332
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  138.5423 736.1945
## sample estimates:
## mean in group inf mean in group sup 
##          240.0000         -197.3684

“Ci pic recalculé

t.test(Seuil$CI_pic.recalc_2~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$CI_pic.recalc_2 by Seuil$seuil_CI_diff
## t = -0.83969, df = 35, p-value = 0.4068
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -310.4897  128.7938
## sample estimates:
## mean in group inf mean in group sup 
##         -196.1111         -105.2632

“CI_diff_recalculé

t.test(Seuil$CI_diff.recalc~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$CI_diff.recalc by Seuil$seuil_CI_diff
## t = -3.9391, df = 35, p-value = 0.0003722
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -800.4459 -255.9868
## sample estimates:
## mean in group inf mean in group sup 
##        -436.11111          92.10526

“CI Isopuissance

t.test(Seuil$CI_isoP~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$CI_isoP by Seuil$seuil_CI_diff
## t = -0.39288, df = 35, p-value = 0.6968
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -350.9191  237.1180
## sample estimates:
## mean in group inf mean in group sup 
##         -231.1111         -174.2105

“temps en seconde

t.test(Seuil$temps_sec~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$temps_sec by Seuil$seuil_CI_diff
## t = -0.78628, df = 35, p-value = 0.437
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -151.71812   67.00466
## sample estimates:
## mean in group inf mean in group sup 
##        -39.777778          2.578947

“VT isotime

t.test(Seuil$VT_isotime~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$VT_isotime by Seuil$seuil_CI_diff
## t = 0.79469, df = 35, p-value = 0.4322
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -127.8773  292.3919
## sample estimates:
## mean in group inf mean in group sup 
##         -115.1111         -197.3684

“VT_pic

t.test(Seuil$vt_pic~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$vt_pic by Seuil$seuil_CI_diff
## t = 0.65312, df = 35, p-value = 0.5179
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -112.4439  219.1105
## sample estimates:
## mean in group inf mean in group sup 
##         -63.66667        -117.00000

t.test(Seuil$vt_pic~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$vt_pic by Seuil$seuil_CI_diff
## t = 0.65312, df = 35, p-value = 0.5179
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -112.4439  219.1105
## sample estimates:
## mean in group inf mean in group sup 
##         -63.66667        -117.00000

“VRI_isotime

t.test(Seuil$VRI_isotime~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$VRI_isotime by Seuil$seuil_CI_diff
## t = -1.5235, df = 35, p-value = 0.1366
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -324.59203   46.27624
## sample estimates:
## mean in group inf mean in group sup 
##        -116.00000          23.15789

“distance parcourue

t.test(Seuil$dist_parc~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$dist_parc by Seuil$seuil_CI_diff
## t = 0.15842, df = 30, p-value = 0.8752
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -41.62045  48.62045
## sample estimates:
## mean in group inf mean in group sup 
##          -34.4375          -37.9375

“Nadir

t.test(Seuil$Nadir_sat~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$Nadir_sat by Seuil$seuil_CI_diff
## t = -0.47893, df = 30, p-value = 0.6355
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -5.593223  3.468223
## sample estimates:
## mean in group inf mean in group sup 
##           -1.6875           -0.6250

“EELV au repos

t.test(Seuil$EELV_repos~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$EELV_repos by Seuil$seuil_CI_diff
## t = -0.59928, df = 35, p-value = 0.5528
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1078.1743   586.7065
## sample estimates:
## mean in group inf mean in group sup 
##          370.0556          615.7895

“EELV pic

t.test(Seuil$EELV_pic~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$EELV_pic by Seuil$seuil_CI_diff
## t = 0.78978, df = 35, p-value = 0.435
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -443.6267 1008.5917
## sample estimates:
## mean in group inf mean in group sup 
##          806.1667          523.6842

“EELV_IsoP

t.test(Seuil$EELV_isoP~ Seuil$seuil_CI_diff, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  Seuil$EELV_isoP by Seuil$seuil_CI_diff
## t = 0.66472, df = 35, p-value = 0.5106
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -510.5055 1007.5757
## sample estimates:
## mean in group inf mean in group sup 
##          841.1667          592.6316