2017_postrados

Paquetes

abro excel postrados

summary(df3)

       Genero       Edad        cepillo   Frecuencia                      higiene 
 Femenino :8   Min.   : 33.00   No:7    Min.   :0.0000   Asistida por cuidador:5  
 Masculino:7   1st Qu.: 74.00   Si:8    1st Qu.:0.0000   Autonoma             :4  
               Median : 81.00           Median :1.0000   No realiza higiene   :6  
               Mean   : 75.73           Mean   :0.9333                            
               3rd Qu.: 88.00           3rd Qu.:1.0000                            
               Max.   :100.00           Max.   :3.0000                            
                                                                                  
                                               X..ltimo.control.dental       C        
 Hace menos de un a\303\261o                                     : 1   Min.   :0.000  
 Hace m\303\241s de cinco a\303\261os y menos de diez a\303\261os: 1   1st Qu.:0.000  
 Hace m\303\241s de diez a\303\261os                             : 2   Median :2.000  
 Hace m\303\241s de un a\303\261o y menos de cinco a\303\261os   : 1   Mean   :2.133  
 No recuerda                                                     :10   3rd Qu.:3.500  
                                                                       Max.   :7.000  
                                                                                      
       O                P             COPD            EPB            IHO            IG      
 Min.   :0.0000   Min.   : 0.0   Min.   :11.00   Min.   :2.00   Min.   :2.0   Min.   :1.00  
 1st Qu.:0.0000   1st Qu.:19.0   1st Qu.:21.00   1st Qu.:3.25   1st Qu.:2.0   1st Qu.:2.00  
 Median :0.0000   Median :24.0   Median :25.00   Median :4.00   Median :2.5   Median :2.00  
 Mean   :0.7333   Mean   :21.2   Mean   :23.87   Mean   :3.60   Mean   :2.5   Mean   :2.20  
 3rd Qu.:0.0000   3rd Qu.:28.0   3rd Qu.:28.00   3rd Qu.:4.00   3rd Qu.:3.0   3rd Qu.:2.75  
 Max.   :8.0000   Max.   :28.0   Max.   :28.00   Max.   :4.00   Max.   :3.0   Max.   :3.00  
                                                 NA's   :5      NA's   :9     NA's   :5     
 Uso.protesis
 No:12       
 Si: 3       
             
             
             
             
             

Agrupo por genero y calculamos m.tendencia central para COPD (Promedio y desviacion estandar)

Agrupo por: tiene o no tiene cepillo segun indice COPD

Existen diferencias en el tener o no cepillo o el índice COPD ???

t.test(df3$COPD~df3$cepillo)

    Welch Two Sample t-test

data:  df3$COPD by df3$cepillo
t = 1.5437, df = 10.051, p-value = 0.1535
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -1.769595  9.769595
sample estimates:
mean in group No mean in group Si 
              26               22 

Transformo de factor a numero para el item higiene

agrupo por higiene (segun niveles ) y calculo COPD

df3 %>% 
ggplot(aes(x=higiene, y=COPD)) +
  geom_boxplot() +
theme_economist() +
  ggtitle("Tipo de higiene")

There were 50 or more warnings (use warnings() to see the first 50)

Grafico en mosaico para tipo de higiene y COPD (observar residuales)

Existe diferencia estadistica entre forma de higine y COPD

summary(diferencia)

            Df Sum Sq Mean Sq F value Pr(>F)
df3$higiene  2   12.9    6.47   0.192  0.828
Residuals   12  404.8   33.73               

abro excel postrados y creo un nuevo df eque lo denomino df4

summary(df4)

       Genero       Edad        cepillo   Frecuencia        higiene    X..ltimo.control.dental
 Femenino :8   Min.   : 33.00   No:7    Min.   :0.0000   Min.   :1.0   Min.   :1.000          
 Masculino:7   1st Qu.: 74.00   Si:8    1st Qu.:0.0000   1st Qu.:1.0   1st Qu.:1.000          
               Median : 81.00           Median :1.0000   Median :2.0   Median :1.000          
               Mean   : 75.73           Mean   :0.9333   Mean   :1.6   Mean   :1.933          
               3rd Qu.: 88.00           3rd Qu.:1.0000   3rd Qu.:2.0   3rd Qu.:2.500          
               Max.   :100.00           Max.   :3.0000   Max.   :2.0   Max.   :5.000          
                                                                                              
       C               O                P             COPD            EPB            IHO     
 Min.   :0.000   Min.   :0.0000   Min.   : 0.0   Min.   :11.00   Min.   :2.00   Min.   :2.0  
 1st Qu.:0.000   1st Qu.:0.0000   1st Qu.:19.0   1st Qu.:21.00   1st Qu.:3.25   1st Qu.:2.0  
 Median :2.000   Median :0.0000   Median :24.0   Median :25.00   Median :4.00   Median :2.5  
 Mean   :2.133   Mean   :0.7333   Mean   :21.2   Mean   :23.87   Mean   :3.60   Mean   :2.5  
 3rd Qu.:3.500   3rd Qu.:0.0000   3rd Qu.:28.0   3rd Qu.:28.00   3rd Qu.:4.00   3rd Qu.:3.0  
 Max.   :7.000   Max.   :8.0000   Max.   :28.0   Max.   :28.00   Max.   :4.00   Max.   :3.0  
                                                                 NA's   :5      NA's   :9    
       IG       Uso.protesis
 Min.   :1.00   No:12       
 1st Qu.:2.00   Si: 3       
 Median :2.00               
 Mean   :2.20               
 3rd Qu.:2.75               
 Max.   :3.00               
 NA's   :5                  

agrupo por cepillo (si/no) e higiene (ahora mi higiene es 1:No se cepilla, 2: Se cepilla (agrupo el 2 y el 3 en un solo parametro))

existe diferencia entre cepillado (si no)e higiene siendo higiene =(no realiza)(si realiza)

chisq.test(df4$higiene,df4$cepillo)

Chi-squared approximation may be incorrect

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

data:  df4$higiene and df4$cepillo
X-squared = 0, df = 1, p-value = 1

Uso de protesis por genero

Diferencia entre uso de protesis y genero

chisq.test(df4$Genero,df4$Uso.protesis)

Chi-squared approximation may be incorrect

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

data:  df4$Genero and df4$Uso.protesis
X-squared = 1.356, df = 1, p-value = 0.2442

diferencias entre el componte P del COPD y el genero ????

t.test(df4$P~df4$Genero)

    Welch Two Sample t-test

data:  df4$P by df4$Genero
t = 1.0856, df = 12.094, p-value = 0.2988
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -4.954912 14.812055
sample estimates:
 mean in group Femenino mean in group Masculino 
               23.50000                18.57143