## Métodos Estadísticos Básicos - Nivelación cohorte 2017 - Maestría en Estadística

## TABLAS DE CONTINGENCIA
## Datos tomados a estudiantes de Métodos Estadísticos I
## de la Licenciatura en Estadística - Semestre A-2014
                          ##### Prof. Gudberto León - Feb 2017 #####

MEI <- read.table("C:\\Users\\Gudberto\\Dropbox\\Materias que dicto\\Maestría Estadística\\Programas R\\Datos\\Datos A-2014.prn",
                  header=T)

attach(MEI)

MEI

#Tabla de una entrada:
table(Sexo)
table(TipoLic)
table(NivelEduMad)

# Tabla de dos entradas:
Tabla2.MEI <- table(Sexo,NivelEduMad)
Tabla2.MEI

t(Tabla2.MEI)              # Transpone la tabla: Tabla2.MEI

# Marginales de la tabla de dos entradas:
margin.table(Tabla2.MEI,2) # Muestra la marginal por columnas de: Tabla2.MEI
margin.table(Tabla2.MEI,1) # Muestra la marginal por filas de: Tabla2.MEI

# Frecuencias relativas (proporciones) en la tabla de dos entradas:
prop.table(Tabla2.MEI,2) # Muestra las proporciones con respecto a columnas de: Tabla2.MEI
prop.table(Tabla2.MEI,1) # Muestra las proporciones con respecto a filas de: Tabla2.MEI

Tabla2.MEI/sum(Tabla2.MEI) # Muestra las proporciones con respecto al total de: Tabla2.MEI


# Tabla de tres entradas:
Tabla3.MEI <- ftable(Sexo + TipoLic ~ NivelEduMad)

# Marginales en tablas de tres entradas:
# Para poder calcular las marginales y frecuencias relativas de las marginales
# hay que usar la función "table", no funciona en "ftable".

Tabla03 <- table(NivelEduMad, Sexo, TipoLic)

# Tablas marginales de una variable
margin.table(Tabla03,1)
margin.table(Tabla03,2)
margin.table(Tabla03,3)

# Tablas marginales de dos variables
margin.table(Tabla03,c(1,3))
margin.table(Tabla03,c(3,1))

margin.table(Tabla03,c(1,2))
margin.table(Tabla03,c(2,1))

# Frecuencias relativas en tablas marginales
prop.table(Tabla03,c(1,3))
prop.table(Tabla03,c(2,1))