Dental decay and bacteria

Data from Teanpaisan, R., Kintarak, S., Chuncharoen, C., Akkayanont, P., 1995. Mutans streptococci and dental caries in schoolchildren in southern Thailand. Community Dent. Oral Epidemiol. 23, 317–318.

library(epiDisplay)

Loading required package: foreign
Loading required package: survival
Loading required package: MASS
Loading required package: nnet

data(Decay)

EDA

head(Decay)

  decay strep
1     1 150.0
2     1 150.0
3     1   8.0
4     1  78.0
5     0  12.5
6     0  45.5

epiDisplay::des(Decay)

 
 No. of observations =  436 
  Variable      Class           Description        
1 decay         numeric         Any decayed tooth  
2 strep         numeric         CFU of mutan strep.

epiDisplay::summ(Decay)

No. of observations = 436

  Var. name obs. mean   median  s.d.   min.   max.  
1 decay     436  0.63   1       0.48   0      1     
2 strep     436  95.25  105     53.5   0.5    152.5 

Decay %>%
  ggplot2::ggplot(aes(x = strep)) +
  geom_histogram(bins = 10) +
  facet_grid(decay ~ .)

Error in Decay %>% ggplot2::ggplot(aes(x = strep)) : 
  no se pudo encontrar la función "%>%"

Inferential

Decay$decay <- as.factor(Decay$decay)

Error in is.factor(x) : objeto 'Decay' no encontrado

epiDisplay::statStack (
  cont.var = strep,
  by = decay,
  dataFrame = Decay,
  iqr = "auto",
  var.labels = TRUE,
  decimal = 1,
  assumption.p.value = .01
  )

  Total              CFU of mutan strep.   median(IQR)   Test         P value
  Any decayed tooth                                      Ranksum test < 0.001
0 161                                    60 (25.5,150)                       
1 275                                    122 (63.2,150)