2023_Tabletas efervescentes C.albicans

library("tidyverse")

#df

df <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSiNayKcnFBJyT4W3uUwJiVhQjCzkigIa0ONek8aQQGLhw6_9kStkMtMffUjFwOoyeDW7gU33me8vYN/pub?gid=119729383&single=true&output=csv")

#agrupo

#ANOVA test

#summary

summary(aov1)

            Df Sum Sq Mean Sq F value Pr(>F)
df$Marca     4  107.2   26.81   2.004  0.109
Residuals   49  655.6   13.38               

#Intervalos de confianza

library("Publish")
library("prodlim")

#IC

ci.mean(df$Halos~df$Marca, data=df)

 df$Marca    mean  CI-95%       
 Control(+)  24.00 [23.06;24.94]
 Corega Tabs 24.67 [22.54;26.79]
 Efferdent   25.33 [22.89;27.78]
 Polident    24.00 [21.83;26.17]
 Walgreens   27.75 [24.79;30.71]