---
title: "tabela"
output: pdf_document
---
```{r, include=F}
#---------------------------------------------------------
# Preparo da sessao
pkg <- c( "Hmisc", "reshape", "plyr", "tables", "gmodels", "xtable")
sapply(pkg, require, character.only = TRUE)
#------------------------------------------------------------
# lendo os dados
da <- read.csv("D:/data.csv", sep =";")
#------------------------------------------------------------
# reordenando fatores
da$escopai <- factor(da$escopai, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado"))
da$escomae <- factor(da$escomae, levels = c("Primário", "Médio", "Graduação", "Pós-Graduação", "Mestrado", "Doutorado"))
```
Tabela de escolaridade dos genitores
```{r, echo=FALSE, results='asis'}
latex (tabular ( (Factor(escopai, "Níveis de escolaridade")) ~ (Factor(escopai, "Pai")) + (Factor(escomae, "Mãe") ), data=da ))
```