Chi cuadrado

A randomised clinical trial on the use of intermediate bonding on the retention of fissure sealants in children DOI: 10.1111/ipd.12165

# Overall
overall <- matrix(c(179, 154, 16, 41),ncol=2,byrow=TRUE)
colnames(overall) <- c("Bonded","Non-bonded")
rownames(overall) <- c("Éxito","Fracaso")
overall <- as.table(overall)
overall

        Bonded Non-bonded
Éxito      179        154
Fracaso     16         41

chisq.test(overall)

    Pearson's Chi-squared test with Yates' continuity correction

data:  overall
X-squared = 11.835, df = 1, p-value = 0.0005813

# Overall
Estudio <- matrix(c(17, 15, 8, 11), ncol = 2, byrow = TRUE)
colnames(Estudio) <- c("Nuevo","Control")
rownames(Estudio) <- c("Éxito","Fracaso")
Estudio <- as.table(Estudio)
Estudio

        Nuevo Control
Éxito      17      15
Fracaso     8      11

chisq.test(Estudio)

    Pearson's Chi-squared test with Yates' continuity correction

data:  Estudio
X-squared = 0.22225, df = 1, p-value = 0.6373

mosaicplot(Estudio, shade = T)

# Overall
Estudio <- matrix(c(170, 150, 80, 110),ncol=2,byrow=TRUE)
colnames(Estudio) <- c("Nuevo","Control")
rownames(Estudio) <- c("Éxito","Fracaso")
Estudio <- as.table(Estudio)
Estudio

        Nuevo Control
Éxito     170     150
Fracaso    80     110

chisq.test(Estudio)

    Pearson's Chi-squared test with Yates' continuity correction

data:  Estudio
X-squared = 5.3604, df = 1, p-value = 0.0206

mosaicplot(Estudio, shade = T)

prop.table(Estudio)*100

           Nuevo  Control
Éxito   33.33333 29.41176
Fracaso 15.68627 21.56863