Pregunta

Cree una tabla que rompa por consumo de cigarrillo y que se vean las tablas 2*2 para las otras dos variables.

Solución

Se procede a realizar la respectiva tabla que rompe por consumo de cigarrillo, para ello se corre el siguiente código :

tabcon_1 <- array(data = c(180,50, 108,12,10, 2, 90, 20), 
                   dim = c(2,2,2), 
                   dimnames = list("Alc" = c("S","N"),
                                   "Mar" = c("S","N"),
                                   "Cig" = c("S","N")))
tabcon_1
## , , Cig = S
## 
##    Mar
## Alc   S   N
##   S 180 108
##   N  50  12
## 
## , , Cig = N
## 
##    Mar
## Alc  S  N
##   S 10 90
##   N  2 20

En esta tabla se puede observar una relación interesante y es que hay un gran numero de personas (180) que al consumir cigarrillo tambien consumen Alcohol y Marihuana, en cambio hay solo 10 personas que consumen alcohol y marihuana cuando no consumen cigarrillo , disminuyendo el consumo de alcohol y marihuana considerablemente cuando no se consume cigarrillo.

Una vista general de los datos se puede observar en la siguiente tabla :

ftable(tabcon_1, row.vars = c("Cig","Alc"))
##         Mar   S   N
## Cig Alc            
## S   S       180 108
##     N        50  12
## N   S        10  90
##     N         2  20

Apartir de las siguientes tablas es posible identificar que la cantidad total de personas evaluadas fue de 472.

addmargins(tabcon_1)
## , , Cig = S
## 
##      Mar
## Alc     S   N Sum
##   S   180 108 288
##   N    50  12  62
##   Sum 230 120 350
## 
## , , Cig = N
## 
##      Mar
## Alc    S   N Sum
##   S   10  90 100
##   N    2  20  22
##   Sum 12 110 122
## 
## , , Cig = Sum
## 
##      Mar
## Alc     S   N Sum
##   S   190 198 388
##   N    52  32  84
##   Sum 242 230 472

Además a partir de estas tablas se identifica que existe una relación entre los que fuman cigarrillo y los que no fuman , esta relación es de 350:122 , esto significa que aproximadamente por cada 3 personas que fuman ,1 persona no fuma, teniendo asi una relación 3:1.

Ahora respondamos la siguiente pregunta : ¿Aquellos que fuman cigarros son más propensos al uso de la marihuana?

Solución

Teniendo en cuenta las tablas anteriores se puede observar que hay un total de 230 personas que al consumir cigarrillo tambien consumen marihuana, en comparación con solo 12 personas que tambien consumen marihuana pero no consumen cigarrillo, por lo tanto se puede inferir que son más propensos a usar marihuana aquellos que consumen cigarrillo.

Otra pregunta a responder es la siguiente : ¿Aquellos que toman alcohol son más propensos al uso de los cigarrillos?

Solución

Claramente el consumo de alcohol los vuelve más propensos al uso de los cigarrillos, esto se puede observar ya que en las tablas anteriores 108 personas que consumen alcohol tambien consumen cigarrillos, en cambio, cuando no se consume alcohol solo 12 personas consumen cigarrillo.

Para analizar otras relaciones, se realiza la tabla con los mismos datos, pero esta vez se expresan los resultados en sus respectivos porcentajes. Se procede de la siguiente forma para construir la tabla de porcentajes:

options(digits=3)
prop.table(tabcon_1, margin = c(1,3))
## , , Cig = S
## 
##    Mar
## Alc     S     N
##   S 0.625 0.375
##   N 0.806 0.194
## 
## , , Cig = N
## 
##    Mar
## Alc      S     N
##   S 0.1000 0.900
##   N 0.0909 0.909

En estas tablas se puede observar que el mayor porcentaje de personas que consumen cigarrillo son aquellas que no consumen alcohol, pero si consumen marihuana. Con un porcentaje de 80.6%.

Por otro lado , las personas que no consumen cigarrillo son mayormente aquellas que no consumen alcohol ni marihuana. Con un porcentaje de (90.9% ).