Penetracion sellante en esmalte deproteneizado de lesiones cariosas naturales

Packages

Datasets

Dataset 1

Dataset 2

Dataset 3

Descriptive stats

Gráficos

Sellante

Lesion

Comparación profundidad lesión y penetración del sellante

ggplot(aes(y = LD, x = Grupo, fill = Tipo), data = df) +
        geom_boxplot() +
        ggtitle("Profundidad de lesiones y penetracion de sellante por grupo") +
        labs(x="Grupo",y= "Profundidad en (" * mu ~ "m)" ) + 
        theme_minimal()

Porcentaje penetración

ggplot(aes(y = Porcentaje.Penetracion, x = Grupo), data = df3) +
        geom_boxplot() +
        ggtitle("Porcentaje de penetración del sellante en lesión por grupo") +
        labs(x="Grupo",y= "Porcentaje de penetración" ) + 
        ylim(0,100) +
        theme_minimal()

Análisis inferenciales

supuestos

ANOVA

Correlation analysis

Aquí el asunto es: cuál es el efecto de la profundidad de la lesión en la penetración de la resina?

Primero, son las lesiones similares?

No, son distintas

Y penetran los sellantes iguales?

DF3

Comparación entre grupos

Normalidad

Chequeo normalidad

ggplot(df3, aes(Sellante, Lesion, color=Grupo, shape = Grupo)) +
        geom_point(size = 3) + 
        xlab("Profundidad penetración sellante en um") + ylab("Profundidad lesión en um") +
        labs(title = "Relación entre profundidad de la lesión y penetración del sellante") + 
        ylim(0, 60) + xlim(0, 35) + 
        geom_smooth(method="lm", fill=NA) +
        theme_minimal()