comparaison_selon homogenite

Comparaison des groupes selon homogénité

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

ggplot(HOM, aes(y=VEMS_ml, x=Homogenite , colour=Homogenite, fill=Homogenite))+
   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 : “homogènes” VS “non homogènes”

Comparaison des groupes homgene VS non homogene

“Volume lobe

t.test(HOM$volume.lobe~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$volume.lobe by HOM$Homogenite
## t = 1.5995, df = 29, p-value = 0.1206
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -106.4907  870.7176
## sample estimates:
##     mean in group homog mean in group Non homog 
##                959.4706                577.3571

“MMRC

t.test(HOM$MMRC~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$MMRC by HOM$Homogenite
## t = 1.596, df = 32, p-value = 0.1203
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.1531623  1.2619342
## sample estimates:
##     mean in group homog mean in group Non homog 
##               1.4210526               0.8666667

“BODE

t.test(HOM$BODE~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$BODE by HOM$Homogenite
## t = 2.8268, df = 28, p-value = 0.008581
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  0.454555 2.846880
## sample estimates:
##     mean in group homog mean in group Non homog 
##               2.1052632               0.4545455

“VEMS

t.test(HOM$VEMS_ml~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$VEMS_ml by HOM$Homogenite
## t = -0.86231, df = 33, p-value = 0.3947
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -235.1565   95.1565
## sample estimates:
##     mean in group homog mean in group Non homog 
##                    -178                    -108

“Tiffeneau

t.test(HOM$Tiffe~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$Tiffe by HOM$Homogenite
## t = -1.7918, df = 33, p-value = 0.08234
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -9.9298207  0.6298207
## sample estimates:
##     mean in group homog mean in group Non homog 
##                   -1.85                    2.80

“CV (ml)

t.test(HOM$CV_ml~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$CV_ml by HOM$Homogenite
## t = 0.90773, df = 33, p-value = 0.3706
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -194.268  507.268
## sample estimates:
##     mean in group homog mean in group Non homog 
##                  -183.5                  -340.0

“CVF(ml)

t.test(HOM$CVF_ml~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$CVF_ml by HOM$Homogenite
## t = 0.37223, df = 33, p-value = 0.7121
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -282.5301  409.0635
## sample estimates:
##     mean in group homog mean in group Non homog 
##               -282.0000               -345.2667

“VR (ml)

t.test(HOM$VR_ml~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$VR_ml by HOM$Homogenite
## t = 0.034045, df = 33, p-value = 0.973
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -587.6017  607.6017
## sample estimates:
##     mean in group homog mean in group Non homog 
##                     614                     604

“CPT (ml)

t.test(HOM$CPT_ml~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$CPT_ml by HOM$Homogenite
## t = 0.85517, df = 33, p-value = 0.3986
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -423.9012 1038.6679
## sample estimates:
##     mean in group homog mean in group Non homog 
##                646.0500                338.6667

“TLCO

t.test(HOM$TLCO~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$TLCO by HOM$Homogenite
## t = 1.9921, df = 22, p-value = 0.05892
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.2335641 11.6085641
## sample estimates:
##     mean in group homog mean in group Non homog 
##                 -1.0625                 -6.7500

“Pi%

t.test(HOM$Pi_pct~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$Pi_pct by HOM$Homogenite
## t = -1.3864, df = 16, p-value = 0.1846
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -43.626307   9.126307
## sample estimates:
##     mean in group homog mean in group Non homog 
##               -37.08333               -19.83333

“Ci_rest recalculé

t.test(HOM$Ci_rest.recalc~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$Ci_rest.recalc by HOM$Homogenite
## t = -0.42401, df = 33, p-value = 0.6743
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -429.0734  281.0734
## sample estimates:
##     mean in group homog mean in group Non homog 
##                     -16                      58

“Ci pic recalculé

t.test(HOM$CI_pic.recalc_2~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$CI_pic.recalc_2 by HOM$Homogenite
## t = -1.089, df = 33, p-value = 0.2841
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -353.7578  107.0911
## sample estimates:
##     mean in group homog mean in group Non homog 
##              -198.00000               -74.66667

“CI_diff_recalculé

t.test(HOM$CI_diff.recalc~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$CI_diff.recalc by HOM$Homogenite
## t = -0.29425, df = 33, p-value = 0.7704
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -390.4388  291.7721
## sample estimates:
##     mean in group homog mean in group Non homog 
##               -182.0000               -132.6667

“CI Isopuissance

t.test(HOM$CI_isoP~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$CI_isoP by HOM$Homogenite
## t = -1.0769, df = 33, p-value = 0.2894
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -471.4380  145.1047
## sample estimates:
##     mean in group homog mean in group Non homog 
##               -270.5000               -107.3333

“temps en seconde

t.test(HOM$temps_sec~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$temps_sec by HOM$Homogenite
## t = -1.9658, df = 33, p-value = 0.05778
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -210.920469    3.620469
## sample estimates:
##     mean in group homog mean in group Non homog 
##                  -64.25                   39.40

“VT isotime

t.test(HOM$VT_isotime~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$VT_isotime by HOM$Homogenite
## t = -0.79231, df = 33, p-value = 0.4338
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -307.2488  135.0155
## sample estimates:
##     mean in group homog mean in group Non homog 
##              -185.45000               -99.33333

“VT_pic

t.test(HOM$vt_pic~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$vt_pic by HOM$Homogenite
## t = -1.1959, df = 33, p-value = 0.2402
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -259.67320   67.40653
## sample estimates:
##     mean in group homog mean in group Non homog 
##              -121.00000               -24.86667

t.test(HOM$vt_pic~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$vt_pic by HOM$Homogenite
## t = -1.1959, df = 33, p-value = 0.2402
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -259.67320   67.40653
## sample estimates:
##     mean in group homog mean in group Non homog 
##              -121.00000               -24.86667

“VRI_isotime

t.test(HOM$VRI_isotime~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$VRI_isotime by HOM$Homogenite
## t = -0.77582, df = 33, p-value = 0.4434
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -279.1056  125.0056
## sample estimates:
##     mean in group homog mean in group Non homog 
##                  -85.05                   -8.00

“distance parcourue

t.test(HOM$dist_parc~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$dist_parc by HOM$Homogenite
## t = 0.80731, df = 29, p-value = 0.4261
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -28.30893  65.23201
## sample estimates:
##     mean in group homog mean in group Non homog 
##               -28.00000               -46.46154

“Nadir

t.test(HOM$Nadir_sat~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$Nadir_sat by HOM$Homogenite
## t = -0.58767, df = 29, p-value = 0.5613
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -6.042674  3.345195
## sample estimates:
##     mean in group homog mean in group Non homog 
##              -1.7058824              -0.3571429

“EELV au repos

t.test(HOM$EELV_repos~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$EELV_repos by HOM$Homogenite
## t = 0.88603, df = 33, p-value = 0.382
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -494.3499 1257.1166
## sample estimates:
##     mean in group homog mean in group Non homog 
##                662.0500                280.6667

“EELV pic

t.test(HOM$EELV_pic~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$EELV_pic by HOM$Homogenite
## t = 1.1413, df = 33, p-value = 0.262
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -337.1051 1198.5384
## sample estimates:
##     mean in group homog mean in group Non homog 
##                844.0500                413.3333

“EELV_IsoP

t.test(HOM$EELV_isoP~ HOM$Homogenite, var.equal=TRUE)

## 
##  Two Sample t-test
## 
## data:  HOM$EELV_isoP by HOM$Homogenite
## t = 1.1978, df = 33, p-value = 0.2395
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -328.6987 1269.7987
## sample estimates:
##     mean in group homog mean in group Non homog 
##                  916.55                  446.00