** THIS IS FOR THE CG DATA **

summary of data

#summary of all cases by timescale tbl_summary(df[,c(2,6:23)],label = timescale ~ “Neuroradiologic Findings”,by=“timescale”)%>% bold_labels() %>%add_p()

#summary of all cases with NA removed by timescale
tbl_summary(df2c[,c(2,6:23)],label = timescale ~ “Neuroradiologic Findings”,by=“timescale”)%>% bold_labels() %>%add_p()

#summary of all cases by pre/postnatal tbl_summary(df[,c(6:24)],label = prepost ~ “Neuroradiologic Findings”,by=“prepost”)%>% bold_labels() %>%add_p()

#summary of all prenatal cases by timescale
tbl_summary(df_pre[,c(2,6:23)],label = timescale ~ “Neuroradiologic Findings”,by=“timescale”)%>% bold_labels() %>%add_p()

#summary of all postnatal cases by timescale tbl_summary(df_post[,c(2,6:23)],label = timescale ~ “Neuroradiologic Findings”,by=“timescale”)%>% bold_labels() %>%add_p()

** THIS IS FOR THE HUNG DATA **

dfc_pre <- dfc %>%
  filter(PRE.OR.POST == "prenatal" | PRE.OR.POST == "prenatal ")

dfc_post <- dfc %>%
  filter(PRE.OR.POST == "postnatal" | PRE.OR.POST == "postnatal ")

dfh_pre <- dfh %>%
  filter(PRE.OR.POST == "prenatal" | PRE.OR.POST == "prenatal ")

dfh_post <- dfh %>%
  filter(PRE.OR.POST == "postnatal" | PRE.OR.POST == "postnatal " | PRE.OR.POST == "post ")

Ratio of 2 planes AP Ratio of 2 planes within the lateral ventricle/ SI thickness of the CC Chiari Ratio of Ventricular to SAS for LV, BF, and EA cortical thickness elongation of CP glomus elongation of CP body width of L and R atrium

HUNG vs CG PRENATAL DIFFERENCES

t.test(dfh_pre$Ratio.of.2.planes.AP,dfc_pre$Ratio.of.2.planes.AP)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Ratio.of.2.planes.AP and dfc_pre$Ratio.of.2.planes.AP
## t = -0.80313, df = 106.19, p-value = 0.4237
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -6.113299  2.588299
## sample estimates:
## mean of x mean of y 
##   38.5000   40.2625
t.test(dfh_pre$Ratio.of.2.planes.within.Lat.ventricle.SI,dfc_pre$Ratio.of.2.planes.within.Lat.ventricle.SI)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Ratio.of.2.planes.within.Lat.ventricle.SI and dfc_pre$Ratio.of.2.planes.within.Lat.ventricle.SI
## t = 0.31436, df = 93.173, p-value = 0.7539
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.762513  2.425518
## sample estimates:
## mean of x mean of y 
## 10.254717  9.923214
t.test(dfh_pre$Thickness.of.CC,dfc_pre$Thickness.of.CC)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Thickness.of.CC and dfc_pre$Thickness.of.CC
## t = -3.1746, df = 83.906, p-value = 0.002098
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.6147984 -0.1412156
## sample estimates:
## mean of x mean of y 
##  1.636538  2.014545
t.test(dfh_pre$Chiari,dfc_pre$Chiari)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Chiari and dfc_pre$Chiari
## t = 1.1614, df = 136.43, p-value = 0.2475
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.6007502  2.3107175
## sample estimates:
## mean of x mean of y 
##  4.015278  3.160294
t.test(dfh_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.LV,dfc_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.LV)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.LV and dfc_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.LV
## t = 0.34903, df = 142.97, p-value = 0.7276
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.637491  2.339775
## sample estimates:
## mean of x mean of y 
##  14.32297  13.97183
t.test(dfh_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.BF,dfc_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.BF)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.BF and dfc_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.BF
## t = -0.50931, df = 140.72, p-value = 0.6113
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -5.134099  3.030673
## sample estimates:
## mean of x mean of y 
##  34.49054  35.54225
t.test(dfh_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.EA,dfc_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.EA)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.EA and dfc_pre$Ratio.of.Ventricular.to.Subarachnoid.Space.EA
## t = 0.37558, df = 140.27, p-value = 0.7078
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.5462667  0.8024905
## sample estimates:
## mean of x mean of y 
##  2.101351  1.973239
t.test(dfh_pre$cortical.thickness,dfc_pre$cortical.thickness)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$cortical.thickness and dfc_pre$cortical.thickness
## t = 0.35031, df = 142.97, p-value = 0.7266
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -1.636501  2.341487
## sample estimates:
## mean of x mean of y 
##  14.32432  13.97183
t.test(dfh_pre$elongation.of.CP.Glomus,dfc_pre$elongation.of.CP.Glomus)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$elongation.of.CP.Glomus and dfc_pre$elongation.of.CP.Glomus
## t = -1.9738, df = 100.52, p-value = 0.05115
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.627314223  0.001599937
## sample estimates:
## mean of x mean of y 
##  2.707143  3.020000
t.test(dfh_pre$Elongation.of.CP.body,dfc_pre$Elongation.of.CP.body)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Elongation.of.CP.body and dfc_pre$Elongation.of.CP.body
## t = -0.9979, df = 87.014, p-value = 0.3211
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.29181249  0.09673673
## sample estimates:
## mean of x mean of y 
##  1.454545  1.552083
t.test(dfh_pre$Width.of.L.Atrium,dfc_pre$Width.of.L.Atrium)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Width.of.L.Atrium and dfc_pre$Width.of.L.Atrium
## t = -0.42171, df = 142.95, p-value = 0.6739
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -3.563648  2.310451
## sample estimates:
## mean of x mean of y 
##  17.91507  18.54167
t.test(dfh_pre$Width.of.R.atrium,dfc_pre$Width.of.R.atrium)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_pre$Width.of.R.atrium and dfc_pre$Width.of.R.atrium
## t = -0.74028, df = 142.88, p-value = 0.4603
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -3.265616  1.486088
## sample estimates:
## mean of x mean of y 
##  15.26301  16.15278

Ratio of 2 planes AP Ratio of 2 planes within the lateral ventricle/ SI thickness of the CC Chiari Ratio of Ventricular to SAS for LV, BF, and EA cortical thickness elongation of CP glomus elongation of CP body width of L and R atrium

HUNG vs CG POSTNATAL DIFFERENCES

t.test(dfh_post$Ratio.of.2.planes.AP,dfc_post$Ratio.of.2.planes.AP)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Ratio.of.2.planes.AP and dfc_post$Ratio.of.2.planes.AP
## t = -0.31141, df = 67.794, p-value = 0.7564
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -4.818947  3.517966
## sample estimates:
## mean of x mean of y 
##  45.09118  45.74167
t.test(dfh_post$Ratio.of.2.planes.within.Lat.ventricle.SI,dfc_post$Ratio.of.2.planes.within.Lat.ventricle.SI)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Ratio.of.2.planes.within.Lat.ventricle.SI and dfc_post$Ratio.of.2.planes.within.Lat.ventricle.SI
## t = -0.30648, df = 63.946, p-value = 0.7602
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -2.950843  2.165876
## sample estimates:
## mean of x mean of y 
##  14.03529  14.42778
t.test(dfh_post$Thickness.of.CC,dfc_post$Thickness.of.CC)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Thickness.of.CC and dfc_post$Thickness.of.CC
## t = -2.8714, df = 46.203, p-value = 0.006149
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.8632490 -0.1517837
## sample estimates:
## mean of x mean of y 
##  1.664706  2.172222
t.test(dfh_post$Chiari,dfc_post$Chiari)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Chiari and dfc_post$Chiari
## t = -0.227, df = 68.226, p-value = 0.8211
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -4.614507  3.671809
## sample estimates:
## mean of x mean of y 
##  10.83143  11.30278
t.test(dfh_post$Ratio.of.Ventricular.to.Subarachnoid.Space.LV,dfc_post$Ratio.of.Ventricular.to.Subarachnoid.Space.LV)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Ratio.of.Ventricular.to.Subarachnoid.Space.LV and dfc_post$Ratio.of.Ventricular.to.Subarachnoid.Space.LV
## t = 1.6956, df = 66.312, p-value = 0.09466
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.1871576  2.2968401
## sample estimates:
## mean of x mean of y 
##  16.57429  15.51944
t.test(dfh_post$Ratio.of.Ventricular.to.Subarachnoid.Space.BF,dfc_post$Ratio.of.Ventricular.to.Subarachnoid.Space.BF)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Ratio.of.Ventricular.to.Subarachnoid.Space.BF and dfc_post$Ratio.of.Ventricular.to.Subarachnoid.Space.BF
## t = -0.21423, df = 68.554, p-value = 0.831
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -7.094183  5.718469
## sample estimates:
## mean of x mean of y 
##  47.13714  47.82500
t.test(dfh_post$Ratio.of.Ventricular.to.Subarachnoid.Space.EA,dfc_post$Ratio.of.Ventricular.to.Subarachnoid.Space.EA)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Ratio.of.Ventricular.to.Subarachnoid.Space.EA and dfc_post$Ratio.of.Ventricular.to.Subarachnoid.Space.EA
## t = 0.15184, df = 68.697, p-value = 0.8798
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.9008195  1.0492322
## sample estimates:
## mean of x mean of y 
##  2.971429  2.897222
t.test(dfh_post$cortical.thickness,dfc_post$cortical.thickness)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$cortical.thickness and dfc_post$cortical.thickness
## t = 1.6956, df = 66.312, p-value = 0.09466
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.1871576  2.2968401
## sample estimates:
## mean of x mean of y 
##  16.57429  15.51944
t.test(dfh_post$elongation.of.CP.Glomus,dfc_post$elongation.of.CP.Glomus)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$elongation.of.CP.Glomus and dfc_post$elongation.of.CP.Glomus
## t = -1.4801, df = 64.389, p-value = 0.1437
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.66216213  0.09851133
## sample estimates:
## mean of x mean of y 
##  2.654286  2.936111
t.test(dfh_post$Elongation.of.CP.body,dfc_post$Elongation.of.CP.body)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Elongation.of.CP.body and dfc_post$Elongation.of.CP.body
## t = -0.82561, df = 56.721, p-value = 0.4125
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -0.2615498  0.1088514
## sample estimates:
## mean of x mean of y 
##  1.451429  1.527778
t.test(dfh_post$Width.of.L.Atrium,dfc_post$Width.of.L.Atrium)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Width.of.L.Atrium and dfc_post$Width.of.L.Atrium
## t = -0.11973, df = 68.983, p-value = 0.905
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -4.407086  3.908038
## sample estimates:
## mean of x mean of y 
##  24.01714  24.26667
t.test(dfh_post$Width.of.R.atrium,dfc_post$Width.of.R.atrium)
## 
##  Welch Two Sample t-test
## 
## data:  dfh_post$Width.of.R.atrium and dfc_post$Width.of.R.atrium
## t = -0.25956, df = 68.664, p-value = 0.796
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -3.864142  2.974459
## sample estimates:
## mean of x mean of y 
##  20.78571  21.23056

#paired t-test hung vs guimares

# x = guimares 
# y = hung
df_combo <- inner_join(dfc[,c(1,15:17)],dfh[,c(1,14:16)],by="Pt..No",suffix=c(".CG",".HUNG"))

#distribution



#ggdensity(df_combo$Ratio.of.Ventricular.to.Subarachnoid.Space.LV.CG, 
#          main = "Density Vent SAS LV",
#          xlab = "ratios")

#t.test()