diff --git a/DESCRIPTION b/DESCRIPTION
index 4092c8312a7ce2fc2c03c52b8ae8d2b62d3a2062..030f20002ab7b78484166f93cf668e509202b2b2 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -43,6 +43,7 @@ Suggests:
     reshape2,
     MASS,
     qcc,
-    multcomp
+    multcomp,
+    vcd
 VignetteBuilder: knitr
 RoxygenNote: 5.0.1
diff --git a/R/PaulinoTb1.1.R b/R/PaulinoTb1.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..f38c5cb3142db10bb0f2518725facfcd34101fdc
--- /dev/null
+++ b/R/PaulinoTb1.1.R
@@ -0,0 +1,44 @@
+#' @name PaulinoTb1.1
+#' @title Acidentes Rodoviários Ocorridos na Suécia
+#' @description Durante 18 semanas, no ano de 1961, contou-se o número de acidentes 
+#'     rodoviários registrados na Suécia segundo o tipo de estrada e o
+#'     fato de haver ou não um limite de velocidade de 90 km/h no dia
+#'     em que ocorreram. Pretendia-se investigar se a 
+#'     imposição do limite de velocidade estava relacionado à ocorrência de
+#'     acidentes e a relação com o tipo de estrada.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{veloc}}{Existência ou não do limite de velocidade de 90
+#'      km/h.}
+#'
+#' \item{\code{estr}}{Tipo de estrada (auto-estrada, outras).}
+#'
+#' \item{\code{acid}}{Número de acidentes registrados.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.1, pág. 04)
+#'
+#' @references Rasch, G. (1973) Two applications of the multiplicative
+#'     Poisson model in road accident statistics, Proceedings of the
+#'     39th International Statistical Institute 4: 31-43. 
+#' @examples
+#'
+#' data(PaulinoTb1.1)
+#' 
+#' str(PaulinoTb1.1)
+#'
+#' xt <- xtabs(acid ~ veloc + estr, data = PaulinoTb1.1)
+#' xt
+#'
+#' prop.table(xt)
+#'
+#' mosaicplot(xt, main = NULL,
+#'            xlab = "Limite de Velocidade de 90 km/h",
+#'            ylab = "Tipo de Estrada")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.10.R b/R/PaulinoTb1.10.R
new file mode 100644
index 0000000000000000000000000000000000000000..b6eccfda911be3052249bc3b4a48acdee9bd4f01
--- /dev/null
+++ b/R/PaulinoTb1.10.R
@@ -0,0 +1,55 @@
+#' @name PaulinoTb1.10
+#' @title Pacientes com AIDS em Portugual
+#' @description De um estudo envolvendo casos de AIDS notificados em
+#'     Portugual até 31/01/95 extrairam-se os dados relativos à
+#'     classificação dos pacientes. Devido às inúmeras variantes da
+#'     manifestação da AIDS, a variável indicadora correspondente foi
+#'     categorizada segundo critérios epidemiológicos em Pneumonia, pela
+#'     bactéria \emph{Pneumocystis carinni}, Tuberculose extrapulmonar,
+#'     Candidíase, Toxoplasmose, Sarcoma de Kaposi - todas encaradas
+#'     como ocorrendo isoladamente -, Pneumonia associada a outras
+#'     infecções (pneum.assoc.) e Tuberculose extrapulmonar associada a
+#'     outras infecções (tub.assoc.) que não Pneumonia.
+#' @format Um \code{data.frame} com 64 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{sexo}}{Sexo do paciente (masculino, feminino).}
+#'
+#' \item{\code{doen}}{Doença manisfestada no momento do diagnóstico
+#'     (pneumonia, tuberculose, candidíase, toxoplasmose, sarcoma,
+#'     pneum. assoc, tub.assoc. e outras).}
+#'
+#' \item{\code{sobrev}}{Tempo de sobrevivência desde o momento do
+#'     diagnóstico, registrado em anos (< 1, \[1,2\), \[2,3\), > 2).}
+#'
+#' \item{\code{paci}}{Número de pacientes com AIDS na combinação das
+#'     variáveis \code{sexo}, \code{doen} e \code{sobrev}.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.10, pág. 12).
+#' @examples
+#'
+#' data(PaulinoTb1.10)
+#' 
+#' str(PaulinoTb1.10)
+#'
+#' xt <- xtabs(paci ~ sexo + doen + sobrev, data = PaulinoTb1.10)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' library(lattice)
+#'
+#' barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+#'          auto.key = list(space = "top", columns = 4,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE,
+#'                          title = "Sobrevivência (anos)"),
+#'          xlab = "Sexo",
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.11.R b/R/PaulinoTb1.11.R
new file mode 100644
index 0000000000000000000000000000000000000000..84d2ebc0dd7548b9e6d2f7c8a16adbaf779e5ae2
--- /dev/null
+++ b/R/PaulinoTb1.11.R
@@ -0,0 +1,52 @@
+#' @name PaulinoTb1.11
+#' @title Tamanho de Ninhadas de Ovelhas
+#' @description Estudo de fertilidade de ovelhas de vários rebanhos
+#'     identificados pela raça e pela quinta onde eram criadas.
+#' @format Um \code{data.frame} com 36 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{quinta}}{Quinta onde eram criadas as ovelhas.}
+#'
+#' \item{\code{raca}}{Raça das ovelhas}
+#'
+#' \item{\code{borre}}{Número de borregos (filhotes de ovelha) por
+#'     ninhada.}
+#'
+#' \item{\code{ovelh}}{Número de ovelhas.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.11, pág. 13).
+#
+#' @references Mead, R., Curnow, R. N., Hasted, A. M. (2002).
+#'     Statistical Methods in Agricultural and Experimental Biology, 3
+#'     sdn, London: Chapman and Hall/CRC.
+#' @examples
+#'
+#' data(PaulinoTb1.11)
+#' 
+#' str(PaulinoTb1.11)
+#' 
+#' xt <- xtabs(ovelh ~ quinta + raca + borre, data = PaulinoTb1.11)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' library(vcd)
+#'
+#' cotabplot(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+#'          auto.key = list(space = "top", columns = 4,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE,
+#'                          title = "Número de borregos"),
+#'          xlab = "Quinta",
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.12.R b/R/PaulinoTb1.12.R
new file mode 100644
index 0000000000000000000000000000000000000000..fec06af2a68edd3c14f47077ce4ca14fad0b20f0
--- /dev/null
+++ b/R/PaulinoTb1.12.R
@@ -0,0 +1,43 @@
+#' @name PaulinoTb1.12
+#' @title Distribuição Espacial de Três Tipos de Árvores
+#' @description Com o objetivo de detectar eventual existência de
+#'     atração ou repulsão entre três tipos de árvores (carvalhos,
+#'     nogueiras e bordos), uma dada zona florestal foi dividida em 576
+#'     áreas de tamanho e forma fixos (quadrats) e registrou-se para
+#'     cada uma delas a ocorrência ou não de cada tipo de árvore.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{carv}}{Presença ou ausência da árvore do tipo carvalho.}
+#'
+#' \item{\code{nogue}}{Presença ou ausência da árvore do tipo nogueira.}
+#'
+#' \item{\code{bordo}}{Presença ou ausência da árvore do tipo bordo.}
+#'
+#' \item{\code{ocorr}}{Número de ocorrências de árvores.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.12, pág. 13).
+#
+#' @references Upton, G. J. G., Fingleton, B. (1985). Spatial Data
+#'     Analysis by Example, Vol. 1, New York: John Wiley e Sons. Cap. 3.
+#' @examples
+#'
+#' data(PaulinoTb1.12)
+#' 
+#' str(PaulinoTb1.12)
+#' 
+#' xt <- xtabs(ocorr ~ carv + nogue + bordo, data = PaulinoTb1.12)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' library(vcd)
+#'
+#' cotabplot(xt)
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.13.R b/R/PaulinoTb1.13.R
new file mode 100644
index 0000000000000000000000000000000000000000..f6079d6a4b7ceac7de85d3190929cd6459c5f484
--- /dev/null
+++ b/R/PaulinoTb1.13.R
@@ -0,0 +1,55 @@
+#' @name PaulinoTb1.13
+#' @title Fobia em Alcóolatras
+#' @description Dados de um estudo realizado no Hospital das Clínicas da
+#'     Faculdade de Medicina da Universidade de São Paulo sobre a
+#'     relação entre a dependência do álcool e manifestação de vários
+#'     tipos de comportamento anómalo (fobias) em 97 alcóolatras.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{prof}}{Situação profissional (com trabalho (registrado ou
+#'     não), sem trabalho (desempregado ou aposentado))}
+#'
+#' \item{\code{fobia}}{Manisfestação ou não de algum tipo de fobia.}
+#'
+#' \item{\code{alcool}}{Consumo diário ou não de álcool.}
+#'
+#' \item{\code{freq}}{Frequência de pacientes alcoólatras.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.13, pág. 14).
+#
+#' @references Paula, G. A., Ballas, D., Barreto, G. M., Huai, H. M.
+#'     (1989). Estudo da associação entre dependência do álcool e fobia,
+#'     Relatório de análise estatística, Centro de Estatística Aplicada,
+#'     IME, Universidade de São Paulo.
+#' @examples
+#'
+#' data(PaulinoTb1.13)
+#' 
+#' str(PaulinoTb1.13)
+#' 
+#' xt <- xtabs(freq ~ prof + fobia + alcool, data = PaulinoTb1.13)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' library(vcd)
+#'
+#' cotabplot(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+#'          auto.key = list(space = "top", columns = 2,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE,
+#'                          title = "Uso diário de álcool"),
+#'          xlab = "Situação profissional",
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.14.R b/R/PaulinoTb1.14.R
new file mode 100644
index 0000000000000000000000000000000000000000..99a7fb749be162bf2dfcddeda8bb056c0291bbb7
--- /dev/null
+++ b/R/PaulinoTb1.14.R
@@ -0,0 +1,52 @@
+#' @name PaulinoTb1.14
+#' @title Novos Casos de Homens com Melanoma
+#' @description Num estudo epidemiológico envolvendo a população
+#'     norte-americana de homens brancos, realizado entre 1969-1971,
+#'     contou-se o número de novos casos de melanoma (tipo de tumor
+#'     cancerígeno na pele.)
+#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{faixa}}{Faixa etária do indivíduo atingido.}
+#'
+#' \item{\code{regi}}{Região do país em que o indivíduo mora.}
+#'
+#' \item{\code{melan}}{Número de novos casos de melanoma.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.14, pág. 14).
+#
+#' @references Gail, M. G. (1978). The analysis of heterogeneity for
+#'     indirect standardized mortality ratios, Journal of the Royal
+#'     Statistical Society, A 141: 224-234.
+#' @examples
+#'
+#' data(PaulinoTb1.14)
+#' 
+#' str(PaulinoTb1.14)
+#'
+#' xt <- xtabs(melan ~ faixa + regi, data = PaulinoTb1.14)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' mosaicplot(xt,
+#'            main = NULL,
+#'            xlab = "Faixa etária",
+#'            ylab = "Região")
+#'
+#' library(lattice)
+#'
+#' barchart(xt, horizontal = FALSE, beside = TRUE,
+#'          auto.key = list(space = "top", columns = 2,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE,
+#'                          title = "Região"),
+#'          xlab = "Faixa etária",
+#'          ylab = "Frequência de novos casos de melanoma")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.15.R b/R/PaulinoTb1.15.R
new file mode 100644
index 0000000000000000000000000000000000000000..5ffe9a49d3373b8e1ed35f7f4330c49bf4c78b91
--- /dev/null
+++ b/R/PaulinoTb1.15.R
@@ -0,0 +1,63 @@
+#' @name PaulinoTb1.15
+#' @title Pacientes com Endometriose
+#' @description Estudo sobre endometriose realizado na Faculdade de
+#'     Medicina da Universidade de São Paulo. A endometriose
+#'     caracteriza-se pela localização etópica do tecido endometrial e é
+#'     uma das principais causas de infertilidade.
+#' @format Um \code{data.frame} com 49 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{grupo}}{Grupo de indivíduos envolvido no estudo.}
+#'
+#' \item{\code{abort}}{Número de abortos sofridos pela paciente.}
+#'
+#' \item{\code{dismen}}{Sintoma da dismenorréia (dor na menstrução),
+#'     classificada como: N = não tem, L = leve, M = moderada,
+#'     I = intensa.}
+#'
+#' \item{\code{dispa}}{Sintoma da dispareunia (dor na relação sexual),
+#'     classificada como: N = não tem, P = tem, PRO = tem, com mais
+#'     intensidade, 2 = tem em ambas a posições.}
+#'
+#' \item{\code{afsr}}{AFSr, gravidade da doença em que as pacientes
+#'     foram classificadas, cujos valores variam de 0 (não tem) a 4
+#'     (muito grave).}
+#'
+#' }
+#' @keywords dados-categorizados
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.15, pág. 17).
+#' @examples
+#'
+#' data(PaulinoTb1.15)
+#' 
+#' str(PaulinoTb1.15)
+#'
+#' da <- na.omit(PaulinoTb1.15)
+#'
+#' library(lattice)
+#'
+#' # Tabela de contingência e gráfico para dispareunia
+#' (xt <- xtabs(afsr ~ dispa, data = da))
+#' barchart(xt,
+#'          col = "darkturquoise",
+#'          xlab = "Frequências observadas de AFSr",
+#'          ylab = "Dispareunia")
+#'
+#' # Tabela de contingência e gráfico para dismenorréia
+#' (xp <- xtabs(afsr ~ dismen, data = da))
+#' barchart(xp,
+#'          col = "darkturquoise",
+#'          xlab = "Frequências observadas de AFSr",
+#'          ylab = "Dismenorréia")
+#'
+#' # Tabela de contingência e gráfico para o número de abortos
+#' (xq <- xtabs(afsr ~ abort, data = da))
+#' barchart(xq,
+#'          col = "darkturquoise",
+#'          xlab = "Frequências observadas de AFSr",
+#'          ylab = "Número de abortos")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.16.R b/R/PaulinoTb1.16.R
new file mode 100644
index 0000000000000000000000000000000000000000..b7a314f5c321f3f80202a982378c59284634adee
--- /dev/null
+++ b/R/PaulinoTb1.16.R
@@ -0,0 +1,53 @@
+#' @name PaulinoTb1.16
+#' @title Microinfiltração em Dentes Molares
+#' @description Estudo realizado na Faculdade de Odontologia da
+#'     Universidade de São Paulo em que cada um de três avaliadores
+#'     classificou 72 molares selados com diferentes materiais segundo o
+#'     nível de microinfiltração numa escala de 0 (sem microinfiltração)
+#'     a 4 (microinfiltração intensa).
+#' @format Um \code{data.frame} com 72 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{mat}}{Tipo de material usado para selar os molares.}
+#'
+#' \item{\code{A}}{Classificação dos molares segundo o avaliador A.}
+#'
+#' \item{\code{B}}{Classificação dos molares segundo o avaliador B.}
+#'
+#' \item{\code{C}}{Classificação dos molares segundo o avaliador C.}
+#'
+#' }
+#' @keywords dados-categorizados
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.16, pág. 18).
+#' @examples
+#'
+#' data(PaulinoTb1.16)
+#' 
+#' str(PaulinoTb1.16)
+#'
+#' # Transformando para o formato longo
+#' library(reshape2)
+#' da <- melt(PaulinoTb1.16, id.vars = "mat")
+#'
+#' # Criando tabela de frequências
+#' da$ni <- 1
+#' xt <- xtabs(ni ~ value + variable + mat, data = da)
+#' ftable(xt)
+#' 
+#' # Criando gráfico
+#' library(lattice)
+#' barchart(xt,
+#'          stack = FALSE,
+#'          horizontal = FALSE,
+#'          xlab = "Avaliadores",
+#'          ylab = "Frequência",
+#'          auto.key = list(
+#'              column = 3,
+#'              cex.title = 1.1,
+#'              title = "Material"
+#'          ))
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.2.R b/R/PaulinoTb1.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..b835038c96f8e71b7b74bcf1d770ba02fa8bf475
--- /dev/null
+++ b/R/PaulinoTb1.2.R
@@ -0,0 +1,51 @@
+#' @name PaulinoTb1.2
+#' @title Risco de Cárie Dentária em Crianças
+#' @description Da população de crianças de 11-13 anos de uma escola
+#'     pública foram selecionadas 97, cada uma delas submetida a dois
+#'     métodos de averiguação de susceptibilidade à cárie dentária: um
+#'     método convencional, de custos elevados, que consiste na contagem
+#'     de bactérias do tipo Lactobacillus na saliva, e um método
+#'     simpliicado, que se baseia na averiguação da cor resultante da
+#'     reação da saliva com a Resarzurina. Esse estudo destinava-se a
+#'     avaliar, em particular, a eficácia do método simplificado
+#'     relativamente ao método convencional.
+#' @format Um \code{data.frame} com 9 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{simpl}}{Risco de cárie segundo o método simplificado
+#'     (baixo, médio, alto).}
+#'
+#' \item{\code{conven}}{Risco de cárie segundo o método convencional
+#'     (baixo, médio, alto).}
+#'
+#' \item{\code{freq}}{Número de crianças observadas na combinação entre
+#'     as categorias \code{simpl} e \code{conven}.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.2, pág. 04)
+#'
+#' @references André, C. D. S., Neves, M. M. C., Tseng. T. H (1990).
+#'     Estudo comparativo entre os diferentes métodos de detecção de
+#'     indivíduos com alto risco de cárie, Relatório de análise
+#'     estatística SEA-RAE-9008, Centro de Estatística Aplicada, IME,
+#'     Universidade de São Paulo.
+#' @examples
+#'
+#' data(PaulinoTb1.2)
+#' 
+#' str(PaulinoTb1.2)
+#'
+#' xt <- xtabs(freq ~ simpl + conven, data = PaulinoTb1.2)
+#' xt
+#'
+#' prop.table(xt)
+#'
+#' mosaicplot(xt, main = NULL, cex.axis = 0.9,
+#'            xlab = "Método Simplificado",
+#'            ylab = "Método Convencional")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.3.R b/R/PaulinoTb1.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..09aaa5855be3ef658a1b7ab959b158eb0fd044ff
--- /dev/null
+++ b/R/PaulinoTb1.3.R
@@ -0,0 +1,41 @@
+#' @name PaulinoTb1.3
+#' @title Pesos de Recém-nascidos num Hospital Universitário
+#' @description Na Faculdade de Medicina de Ribeirão Preto (Estado de
+#'     São Paulo) foram levantadas 8135 fichas hospitalares referentes a
+#'     nascimentos ocorridos num certo período de tempo. Cada nascimento
+#'     foi caracterizado segundo três variáveis.
+#'     
+#' @format Um \code{data.frame} com 30 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{social}}{Classe social da família do recém-nascido.
+#'     Ordenada da mais favorecida para a mais desfavorecida.}
+#' 
+#' \item{\code{peso}}{Categorias de peso do recém-nascido, em kg.}
+#'
+#' \item{\code{hab}}{Hábito de fumar da parturiente.}
+#'
+#' \item{\code{freq}}{Frequência de recém-nascidos.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.3, pág. 05)
+#' @examples
+#'
+#' data(PaulinoTb1.3)
+#' 
+#' str(PaulinoTb1.3)
+#'
+#' xt <- xtabs(freq ~ social + peso + hab, data = PaulinoTb1.3)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' library(vcd)
+#'
+#' cotabplot(xt)
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.4.R b/R/PaulinoTb1.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..d0f8561a37549bcd7ccbe32a9c3c47a9016f1629
--- /dev/null
+++ b/R/PaulinoTb1.4.R
@@ -0,0 +1,53 @@
+#' @name PaulinoTb1.4
+#' @title Graffiti em Sanitários Escolares
+#' @description Em 1993 foram inspecionados 28 sanitários masculinos e
+#'     28 femininos situados em escolas da área metropolitana de São
+#'     Paulo, metade deles em escolas secundárias e a outra metade em
+#'     seis escolas do campus principal da Universidade de São Paulo. A
+#'     inspeção dos sanitários visou recolher as inscrições verbais e/ou
+#'     gráficas (graffiti) neles existentes e que foram depois
+#'     clasificadas de acordo com a temática envolvida.
+#' @format Um \code{data.frame} com 28 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{tema}}{Tema das inscrições verbais e/ou gráficas.}
+#'
+#' \item{\code{escol}}{Local onde foi realizado o graffiti.}
+#'
+#' \item{\code{sexo}}{Sexo do indíviduo que realizou o graffiti.}
+#'
+#' \item{\code{graf}}{Número de graffiti em sanitários segundo o tema
+#'     aludido.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.4, pág. 05)
+#'
+#' @references Otta. E., Santana, P. R., Lafraia. L. M., Lennenberg, H.,
+#'     Teixeira, R. P., Vallochi S. L. (1996). Musa Latrinalis: gender
+#'     differences in restroom graffiti., Psychological Reports
+#'     78:871-880.
+#' @examples
+#'
+#' data(PaulinoTb1.4)
+#' 
+#' str(PaulinoTb1.4)
+#'
+#' xt <- xtabs(graf ~ tema + escol + sexo, data = PaulinoTb1.4)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#' 
+#' library(lattice)
+#' 
+#' barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+#'          auto.key = list(space = "top", columns = 2, cex.title = 1,
+#'                          rectangles = TRUE, points = FALSE,
+#'                          title = "Sexo"),
+#'          xlab = "Tema das inscrições",
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.5.R b/R/PaulinoTb1.5.R
new file mode 100644
index 0000000000000000000000000000000000000000..c84c6f23b8fdf3b2659fb2f4f28a0690ca01903f
--- /dev/null
+++ b/R/PaulinoTb1.5.R
@@ -0,0 +1,59 @@
+#' @name PaulinoTb1.5
+#' @title Uso de Fio Dental por Crianças de uma Escola
+#' @description Num estudo odontopediátrico em uma escola da rede
+#'     pública do município de São Paulo foram selecionadas 60 crianças
+#'     de ambos os sexos, divididas igualmente nas faixas etárias de 5-8
+#'     e 9-12 anos, e cada criança foi classificada segundo as variáveis
+#'     descritas na sequência. Esse estudo visava verificar se a faixa
+#'     etária está relacionada com a frequência e a habilidade no uso de
+#'     fio dental para ambos os sexos.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{sexo}}{Sexo da criança (masculino, feminino).}
+#'
+#' \item{\code{faixa}}{Faixa etária da criança.}
+#'
+#' \item{\code{freq}}{Frequência de uso do fio dental. Insuficiente
+#'     significa que a criança nunca usa fio dental ou usa raramente e
+#'     boa significa que usa regular ou frequentemente.}
+#'
+#' \item{\code{habi}}{Capacidade motora no uso do fio dental. Inábil
+#'     para as crianças que não conseguem usar o fio dental nos dentes
+#'     incisivos e caninos ou usam de forma incorreta, e razoável para
+#'     as que conseguem usar pelo menos nos dentes citados acima.}
+#'
+#' \item{\code{fobs}}{Frequências observadas das 120 crianças.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.5, pág. 06)
+#'
+#' @references Singer, J. M., Herdeiro, R. F. C. (1990). Verificação da
+#'     habilidade de uso do fio dental em crianças de 5 a 12 anos,
+#'     Relatório de análise estatística SEA-RAe-9006, Centro de
+#'     Estatística Aplicada, IME, Universidade de São Paulo.
+#' @examples
+#'
+#' data(PaulinoTb1.5)
+#' 
+#' str(PaulinoTb1.5)
+#'
+#' xt <- xtabs(fobs ~ sexo + faixa + freq + habi, data = PaulinoTb1.5)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' library(lattice)
+#'
+#' barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+#'          auto.key = list(space = "top", columns = 2,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE, title = "Habilidade"),
+#'          xlab = "Sexo",
+#'          ylab = "Frequência absoluta")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.8.R b/R/PaulinoTb1.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..1312c67f1b09064c2b38da7211f7e509cbc1dcf9
--- /dev/null
+++ b/R/PaulinoTb1.8.R
@@ -0,0 +1,58 @@
+#' @name PaulinoTb1.8
+#' @title Defeitos em Amostras de Fibras Têxteis
+#' @description 431 amostras de 100g de fibras têxteis, produzidas por
+#'     máquinas de dois fabricantes, foram inspecionadas quanto ao
+#'     número registrado de defeitos de cada um dos tipos (botões e
+#'     rolhas). Os defeitos do tipo rolha resultam da presença de
+#'     entrelaçamento em grupos de fibras maiores e de fácil separação,
+#'     já os do tipo botão tem entrelaçamento em grupos de fibras
+#'     menores e são de difícil separação. O interesse nesses dados
+#'     contra-se na avaliação da intensidade e da homogeneidade da
+#'     associação entre as frequências dos dois tipos de defeitos para
+#'     os fabricantes.
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{fabr}}{Fabricantes das máquinas (A, B).}
+#'
+#' \item{\code{bot}}{Número de defeitos do tipo botão (botões).}
+#'
+#' \item{\code{rolha}}{Número de defeitos do tipo rolha (rolhas).}
+#'
+#' \item{\code{freq}}{Número de amostras de 100g de fibra têxtil em que
+#'     observou-se \code{bot} botões e \code{rolha} rolhas.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.8, pág. 11)
+#'
+#' @references Ho, L. L., Singer, J. M. (1997). Regression models for
+#'     bivariate counts, Brazilian Journal of Probability and Statistics
+#'     - REBRAPE 11: 175-197
+#' @examples
+#' data(PaulinoTb1.8)
+#' 
+#' str(PaulinoTb1.8)
+#'
+#' xt <- xtabs(freq ~ fabr + bot + rolha, data = PaulinoTb1.8)
+#'
+#' ftable(xt)
+#' ftable(prop.table(xt))
+#'
+#' mosaicplot(xt, main = NULL, cex.axis = 0.9,
+#'            xlab = "Fabricante das máquinas",
+#'            ylab = "Número de botões")
+#'
+#' library(lattice)
+#'
+#' barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+#'          auto.key = list(space = "top", columns = 3,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE, title = "Número de rolhas"),
+#'          xlab = "Fabricante das máquinas",
+#'          ylab = "Frequência do número de defeitos")
+#'
+NULL
\ No newline at end of file
diff --git a/R/PaulinoTb1.9.R b/R/PaulinoTb1.9.R
new file mode 100644
index 0000000000000000000000000000000000000000..b667aaa4b1e8357bacf56ee74a2a62f0f423ba6e
--- /dev/null
+++ b/R/PaulinoTb1.9.R
@@ -0,0 +1,43 @@
+#' @name PaulinoTb1.9
+#' @title Grupos Sanguíneos em 3 Amostras
+#' @description Distribuições observadas de grupos (fenótipos) de sangue
+#'     em 3 amostras de populações de Londres, uma de controle e as
+#'     outras de pacientes com úlcera estomacal ou doudenal.
+#'     
+#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{amost}}{Característica da amostra (controle, úlcera
+#'     estomacal e duodenal).}
+#'
+#' \item{\code{sang}}{Grupo sanguíneo (O, A, B, AB).}
+#'
+#' \item{\code{freq}}{Frequência de pacientes na amostra \code{amost} do
+#'     grupo sanguíneo \code{sang}.}
+#'
+#' }
+#' @keywords contingência
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.9, pág. 12).
+#'
+#' @references Elandt-Johnson, R. C. (1971). Probability Models and
+#'      Statistical Methods in Genetics, New York: John Wiley e Sons.
+#'      (p. 420). 
+#' @examples
+#'
+#' data(PaulinoTb1.9) 
+#' 
+#' str(PaulinoTb1.9)
+#' 
+#' xt <- xtabs(freq ~ amost + sang, data = PaulinoTb1.9)
+#'
+#' xt
+#' prop.table(xt)
+#'
+#' mosaicplot(xt, main = NULL,
+#'            xlab = "Amostras",
+#'            ylab = "Tipos de sangue")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb1.1.txt b/data-raw/PaulinoTb1.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b94a643ef1ad8cb515f222e9ae9111315adc0fcb
--- /dev/null
+++ b/data-raw/PaulinoTb1.1.txt
@@ -0,0 +1,6 @@
+veloc	estr	acid
+sim	auto	8
+sim	outra	42
+nao	auto	57
+nao	outra	106
+
diff --git a/data-raw/PaulinoTb1.10.txt b/data-raw/PaulinoTb1.10.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3aa19f8af0a2f8965c51813936aef4d77d5e1458
--- /dev/null
+++ b/data-raw/PaulinoTb1.10.txt
@@ -0,0 +1,65 @@
+sexo	doen	sobrev	paci
+masc	pneumonia	< 1	93
+masc	pneumonia	[1,2)	27
+masc	pneumonia	[2,3)	13
+masc	pneumonia	> 2	92
+masc	candidiase	< 1	48
+masc	candidiase	[1,2)	5
+masc	candidiase	[2,3)	4
+masc	candidiase	> 2	55
+masc	tuberculose	< 1	86
+masc	tuberculose	[1,2)	26
+masc	tuberculose	[2,3)	13
+masc	tuberculose	> 2	225
+masc	toxoplasmose	< 1	37
+masc	toxoplasmose	[1,2)	6
+masc	toxoplasmose	[2,3)	3
+masc	toxoplasmose	> 2	37
+masc	tub.assoc.	< 1	105
+masc	tub.assoc.	[1,2)	51
+masc	tub.assoc.	[2,3)	27
+masc	tub.assoc.	> 2	90
+masc	pneum.assoc.	< 1	92
+masc	pneum.assoc.	[1,2)	25
+masc	pneum.assoc.	[2,3)	11
+masc	pneum.assoc.	> 2	38
+masc	sarcoma	< 1	77
+masc	sarcoma	[1,2)	33
+masc	sarcoma	[2,3)	13
+masc	sarcoma	> 2	61
+masc	outras	< 1	181
+masc	outras	[1,2)	35
+masc	outras	[2,3)	11
+masc	outras	> 2	101
+fem	pneumonia	< 1	16
+fem	pneumonia	[1,2)	5
+fem	pneumonia	[2,3)	1
+fem	pneumonia	> 2	19
+fem	candidiase	< 1	9
+fem	candidiase	[1,2)	2
+fem	candidiase	[2,3)	1
+fem	candidiase	> 2	14
+fem	tuberculose	< 1	10
+fem	tuberculose	[1,2)	4
+fem	tuberculose	[1,2)	2
+fem	tuberculose	> 2	46
+fem	toxoplasmose	< 1	8
+fem	toxoplasmose	[1,2)	1
+fem	toxoplasmose	[2,3)	0
+fem	toxoplasmose	> 2	7
+fem	tub.assoc.	< 1	9
+fem	tub.assoc.	[1,2)	1
+fem	tub.assoc.	[2,3)	1
+fem	tub.assoc.	> 2	10
+fem	pneum.assoc.	< 1	4
+fem	pneum.assoc.	[1,2)	3
+fem	pneum.assoc.	[2,3)	0
+fem	pneum.assoc.	> 2	9
+fem	sarcoma	< 1	0
+fem	sarcoma	[1,2)	1
+fem	sarcoma	[2,3)	1
+fem	sarcoma	> 2	1
+fem	outras	< 1	32
+fem	outras	[1,2)	5
+fem	outras	[2,3)	4
+fem	outras	> 2	22
diff --git a/data-raw/PaulinoTb1.11.txt b/data-raw/PaulinoTb1.11.txt
new file mode 100644
index 0000000000000000000000000000000000000000..c2cfb269a92073080f6ef24e6e9bcd6da7a92ccf
--- /dev/null
+++ b/data-raw/PaulinoTb1.11.txt
@@ -0,0 +1,37 @@
+quinta	raca	borre	ovelh
+1	A	0	10
+1	A	1	21
+1	A	2	96
+1	A	> 2	23
+1	B	0	4
+1	B	1	6
+1	B	2	28
+1	B	> 2	8
+1	C	0	9
+1	C	1	7
+1	C	2	58
+1	C	> 2	7
+2	A	0	9
+2	A	1	19
+2	A	2	44
+2	A	> 2	1
+2	B	0	5
+2	B	1	17
+2	B	2	56
+2	B	> 2	1
+2	C	0	1
+2	C	1	5
+2	C	2	20
+2	C	> 2	2
+3	A	0	22
+3	A	1	95
+3	A	2	103
+3	A	> 2	4
+3	B	0	18
+3	B	1	49
+3	B	2	62
+3	B	> 2	0
+3	C	0	4
+3	C	1	12
+3	C	2	16
+3	C	> 2	2
diff --git a/data-raw/PaulinoTb1.12.txt b/data-raw/PaulinoTb1.12.txt
new file mode 100644
index 0000000000000000000000000000000000000000..50860cf06f77990bb8bceae68c2487579a3d014e
--- /dev/null
+++ b/data-raw/PaulinoTb1.12.txt
@@ -0,0 +1,9 @@
+carv	nogue	bordo	ocorr
+presente	presente	presente	84
+presente	presente	ausente	177
+presente	ausente	presente	91
+presente	ausente	ausente	86
+ausente	presente	presente	32
+ausente	presente	ausente	61
+ausente	ausente	presente	30
+ausente	ausente	ausente	15
diff --git a/data-raw/PaulinoTb1.13.txt b/data-raw/PaulinoTb1.13.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e559d884ce19b4a814ad511328d05771b876d21c
--- /dev/null
+++ b/data-raw/PaulinoTb1.13.txt
@@ -0,0 +1,9 @@
+prof	fobia	alcool	freq
+sem	sim	sim	10
+sem	sim	nao	6
+sem	nao	sim	24
+sem	nao	nao	12
+com	sim	sim	13
+com	sim	nao	4
+com	nao	sim	17
+com	nao	nao	7
diff --git a/data-raw/PaulinoTb1.14.txt b/data-raw/PaulinoTb1.14.txt
new file mode 100644
index 0000000000000000000000000000000000000000..66426db42b38c7ff723834616ce453cd93d76ef9
--- /dev/null
+++ b/data-raw/PaulinoTb1.14.txt
@@ -0,0 +1,13 @@
+faixa	regi	melan
+< 35	norte	61
+< 35	sul	64
+35-44	norte	76
+35-44	sul	75
+45-54	norte	98
+45-54	sul	68
+55-64	norte	104
+55-64	sul	63
+65-74	norte	63
+65-74	sul	45
+> 74	norte	80
+> 74	sul	27
diff --git a/data-raw/PaulinoTb1.15.txt b/data-raw/PaulinoTb1.15.txt
new file mode 100644
index 0000000000000000000000000000000000000000..6bda112ac835ad8b04d41d7fd4126c2984393917
--- /dev/null
+++ b/data-raw/PaulinoTb1.15.txt
@@ -0,0 +1,50 @@
+grupo	abort	dismen	dispa	afsr
+controle	0	L	N	0
+controle	1	N	P	0
+controle	0	N	N	0
+controle	0	L	N	0
+controle	1	N	N	0
+controle	0	L	N	0
+controle	1	N	N	0
+controle	4	N	N	0
+controle	1	N	N	0
+controle	1	N	N	0
+controle	3	N	N	0
+controle	0	N	N	0
+controle	0	L	N	0
+controle	0	M	P	0
+controle	0	N	N	0
+doente	0	M	P	1
+doente	0	M	N	1
+doente	0	I	PRO	1
+doente	0	L	N	1
+doente	1	M	N	1
+doente	4	I	2	1
+doente	0	S/	N	1
+doente	0	M	2	1
+doente	0	M		1
+doente	0	L	N	2
+doente	2	M	2	2
+doente	0	I	PRO	2
+doente	0	I	PRO	2
+doente	1	I	PRO	2
+doente	0	M	N	2
+doente	1	M	P	2
+doente	0	I	PRO	2
+doente	1	I	PRO	2
+doente	1	I	PRO	2
+doente	1	I	PRO	2
+doente	0	I	N	3
+doente	0	L	PRO	3
+doente	1	M	PRO	3
+doente	0	I	N	3
+doente	0	M		3
+doente	0	I	N	3
+doente	0	M	2	3
+doente	0	I	PRO	3
+doente	0	M	PRO	3
+doente	0	I	N	3
+doente	0	I	2	4
+doente	1	I	PRO	4
+doente	0	M	N	4
+doente	0	I	PRO	4
\ No newline at end of file
diff --git a/data-raw/PaulinoTb1.16.txt b/data-raw/PaulinoTb1.16.txt
new file mode 100644
index 0000000000000000000000000000000000000000..5b673e48c3ea8afee376ed4d903461917f41c2b0
--- /dev/null
+++ b/data-raw/PaulinoTb1.16.txt
@@ -0,0 +1,73 @@
+mat	A	B	C
+allbond	0	2	0
+allbond	2	2	2
+allbond	2	2	2
+allbond	0	2	1
+allbond	2	2	1
+allbond	4	4	2
+allbond	0	2	1
+allbond	1	1	1
+allbond	2	2	2
+allbond	1	2	2
+allbond	1	0	3
+allbond	2	1	2
+allbond	1	2	0
+allbond	2	2	1
+allbond	2	2	1
+allbond	3	3	3
+allbond	0	3	0
+allbond	3	1	1
+allbond	1	2	2
+allbond	3	3	2
+allbond	1	0	1
+allbond	3	3	2
+allbond	3	3	1
+allbond	2	2	2
+optibond	0	2	0
+optibond	0	0	0
+optibond	1	1	1
+optibond	0	0	0
+optibond	0	0	1
+optibond	1	3	1
+optibond	0	1	1
+optibond	3	3	4
+optibond	1	2	1
+optibond	0	0	1
+optibond	2	2	1
+optibond	0	2	1
+optibond	1	2	2
+optibond	0	1	1
+optibond	0	0	0
+optibond	1	1	1
+optibond	0	0	1
+optibond	1	1	1
+optibond	0	2	0
+optibond	1	1	1
+optibond	0	0	1
+optibond	1	0	1
+optibond	1	1	1
+optibond	0	1	1
+scotchbond	0	0	3
+scotchbond	3	4	3
+scotchbond	2	2	1
+scotchbond	3	4	3
+scotchbond	1	2	1
+scotchbond	2	0	1
+scotchbond	3	3	2
+scotchbond	3	3	3
+scotchbond	2	4	2
+scotchbond	3	3	2
+scotchbond	0	0	0
+scotchbond	2	3	1
+scotchbond	1	2	2
+scotchbond	2	2	3
+scotchbond	1	1	1
+scotchbond	0	0	1
+scotchbond	3	3	0
+scotchbond	1	3	1
+scotchbond	3	2	1
+scotchbond	3	4	4
+scotchbond	4	3	1
+scotchbond	3	2	3
+scotchbond	1	1	1
+scotchbond	3	3	3
diff --git a/data-raw/PaulinoTb1.2.txt b/data-raw/PaulinoTb1.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..399a8974fce1cd3a98abc4c3f458e9a930725147
--- /dev/null
+++ b/data-raw/PaulinoTb1.2.txt
@@ -0,0 +1,10 @@
+simpl	conven	freq
+baixo	baixo	11
+baixo	médio	5
+baixo	alto	0
+médio	baixo	14
+médio	médio	34
+médio	alto	7
+alto	baixo	2
+alto	médio	13
+alto	alto	11
\ No newline at end of file
diff --git a/data-raw/PaulinoTb1.3.txt b/data-raw/PaulinoTb1.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7762295910dcd7c2504b47751660d0dbf4c3533a
--- /dev/null
+++ b/data-raw/PaulinoTb1.3.txt
@@ -0,0 +1,31 @@
+social	peso	hab	freq
+A	< 2.5	sim	2
+A	< 2.5	nao	5
+B	< 2.5	sim	3
+B	< 2.5	nao	11
+C	< 2.5	sim	15
+C	< 2.5	nao	25
+D	< 2.5	sim	130
+D	< 2.5	nao	231
+E	< 2.5	sim	94
+E	< 2.5	nao	105
+A	2.5-3.0	sim	11
+A	2.5-3.0	nao	24
+B	2.5-3.0	sim	32
+B	2.5-3.0	nao	57
+C	2.5-3.0	sim	58
+C	2.5-3.0	nao	105
+D	2.5-3.0	sim	362
+D	2.5-3.0	nao	694
+E	2.5-3.0	sim	225
+E	2.5-3.0	nao	339
+A	> 3.0	sim	31
+A	> 3.0	nao	95
+B	> 3.0	sim	91
+B	> 3.0	nao	238
+C	> 3.0	sim	134
+C	> 3.0	nao	445
+D	> 3.0	sim	695
+D	> 3.0	nao	2485
+E	> 3.0	sim	340
+E	> 3.0	nao	1053
diff --git a/data-raw/PaulinoTb1.4.txt b/data-raw/PaulinoTb1.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..495b610b6e5dbaa42d1834247b3cae8be1318584
--- /dev/null
+++ b/data-raw/PaulinoTb1.4.txt
@@ -0,0 +1,29 @@
+tema	escol	sexo	graf
+desporto	universidade	masc	3
+desporto	universidade	fem	0
+desporto	secundaria	masc	173
+desporto	secundaria	fem	3
+insulto	universidade	masc	28
+insulto	universidade	fem	14
+insulto	secundaria	masc	69
+insulto	secundaria	fem	34
+politico	universidade	masc	39
+politico	universidade	fem	24
+politico	secundaria	masc	19
+politico	secundaria	fem	3
+escolar	universidade	masc	19
+escolar	universidade	fem	25
+escolar	secundaria	masc	28
+escolar	secundaria	fem	47
+romantico	universidade	masc	1
+romantico	universidade	fem	30
+romantico	secundaria	masc	1
+romantico	secundaria	fem	90
+sexual	universidade	masc	75
+sexual	universidade	fem	94
+sexual	secundaria	masc	45
+sexual	secundaria	fem	36
+outro	universidade	masc	79
+outro	universidade	fem	69
+outro	secundaria	masc	165
+outro	secundaria	fem	136
diff --git a/data-raw/PaulinoTb1.5.txt b/data-raw/PaulinoTb1.5.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a88f01a922cf2235366768ec8dded845ecef093e
--- /dev/null
+++ b/data-raw/PaulinoTb1.5.txt
@@ -0,0 +1,17 @@
+sexo	faixa	freq	habi	fobs
+m	5-8	insuficiente	inabil	19
+m	5-8	insuficiente	razoavel	5
+m	5-8	boa	inabil	4
+m	5-8	boa	razoavel	2
+m	9-12	insuficiente	inabil	5
+m	9-12	insuficiente	razoavel	8
+m	9-12	boa	inabil	0
+m	9-12	boa	razoavel	17
+f	5-8	insuficiente	inabil	11
+f	5-8	insuficiente	razoavel	6
+f	5-8	boa	inabil	7
+f	5-8	boa	razoavel	6
+f	9-12	insuficiente	inabil	2
+f	9-12	insuficiente	razoavel	5
+f	9-12	boa	inabil	1
+f	9-12	boa	razoavel	22
diff --git a/data-raw/PaulinoTb1.8.txt b/data-raw/PaulinoTb1.8.txt
new file mode 100644
index 0000000000000000000000000000000000000000..c24d5267213d9577dff49e47be1f8a4c26a88fb1
--- /dev/null
+++ b/data-raw/PaulinoTb1.8.txt
@@ -0,0 +1,19 @@
+fabr	bot	rolha	freq
+A	0	0	28
+A	0	1	40
+A	0	> 1	68
+A	1	0	5
+A	1	1	21
+A	1	> 1	49
+A	> 1	0	1
+A	> 1	1	4
+A	> 1	> 1	15
+B	0	0	31
+B	0	1	70
+B	0	> 1	69
+B	1	0	5
+B	1	1	12
+B	1	> 1	10
+B	> 1	0	0
+B	> 1	1	1
+B	> 1	> 1	2
diff --git a/data-raw/PaulinoTb1.9.txt b/data-raw/PaulinoTb1.9.txt
new file mode 100644
index 0000000000000000000000000000000000000000..9828f5b5c68c8f02fd6fddc9d9a434bff3b48d9a
--- /dev/null
+++ b/data-raw/PaulinoTb1.9.txt
@@ -0,0 +1,13 @@
+amost	sang	freq
+controle	O	4578
+controle	A	4219
+controle	B	890
+controle	AB	313
+estomacal	O	181
+estomacal	A	96
+estomacal	B	18
+estomacal	AB	5
+duodenal	O	298
+duodenal	A	214
+duodenal	B	39
+duodenal	AB	13
diff --git a/data/PaulinoTb1.1.rda b/data/PaulinoTb1.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d0c6b84da1ad2280c25d4493d68032fb2bde98c1
Binary files /dev/null and b/data/PaulinoTb1.1.rda differ
diff --git a/data/PaulinoTb1.10.rda b/data/PaulinoTb1.10.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b1fcef4973a854dfd2199c1c7f6c97bf5a7e8bc5
Binary files /dev/null and b/data/PaulinoTb1.10.rda differ
diff --git a/data/PaulinoTb1.11.rda b/data/PaulinoTb1.11.rda
new file mode 100644
index 0000000000000000000000000000000000000000..fed4c1f54d31344ec70d2e556207e2845ce7e572
Binary files /dev/null and b/data/PaulinoTb1.11.rda differ
diff --git a/data/PaulinoTb1.12.rda b/data/PaulinoTb1.12.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a62194df49f7c1e1c34dd45368d676610f010d32
Binary files /dev/null and b/data/PaulinoTb1.12.rda differ
diff --git a/data/PaulinoTb1.13.rda b/data/PaulinoTb1.13.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1ccc1935458650a1428f55e670af8afaa07a0365
Binary files /dev/null and b/data/PaulinoTb1.13.rda differ
diff --git a/data/PaulinoTb1.14.rda b/data/PaulinoTb1.14.rda
new file mode 100644
index 0000000000000000000000000000000000000000..129b25c3e0488d3b32bb6891a8c564bc17cc0075
Binary files /dev/null and b/data/PaulinoTb1.14.rda differ
diff --git a/data/PaulinoTb1.15.rda b/data/PaulinoTb1.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1a639827b1442f73633efbd846a38f75e1fe8292
Binary files /dev/null and b/data/PaulinoTb1.15.rda differ
diff --git a/data/PaulinoTb1.16.rda b/data/PaulinoTb1.16.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bd80819e0210b6a1895d2c224adc4bd47e275a4f
Binary files /dev/null and b/data/PaulinoTb1.16.rda differ
diff --git a/data/PaulinoTb1.2.rda b/data/PaulinoTb1.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3f9a66e3fb3894cde5f32148f711e3c8f559b0bb
Binary files /dev/null and b/data/PaulinoTb1.2.rda differ
diff --git a/data/PaulinoTb1.3.rda b/data/PaulinoTb1.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5ebefc21ef25e65fe97428fe23ff1c5bcfd40f05
Binary files /dev/null and b/data/PaulinoTb1.3.rda differ
diff --git a/data/PaulinoTb1.4.rda b/data/PaulinoTb1.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..126d49b4e608924db05d50cae63832287031a25c
Binary files /dev/null and b/data/PaulinoTb1.4.rda differ
diff --git a/data/PaulinoTb1.5.rda b/data/PaulinoTb1.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b7e34050d10e357c7bb4b9b66002a3a4267b515c
Binary files /dev/null and b/data/PaulinoTb1.5.rda differ
diff --git a/data/PaulinoTb1.8.rda b/data/PaulinoTb1.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..1c52c6d676bd9e98ec94ac22063975a534d7d2bb
Binary files /dev/null and b/data/PaulinoTb1.8.rda differ
diff --git a/data/PaulinoTb1.9.rda b/data/PaulinoTb1.9.rda
new file mode 100644
index 0000000000000000000000000000000000000000..45971c27912498e7c621d5cb9201815f2547464c
Binary files /dev/null and b/data/PaulinoTb1.9.rda differ
diff --git a/man/PaulinoTb1.1.Rd b/man/PaulinoTb1.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..043fce63e3ef3089a52167b16bbbd8705a9e7987
--- /dev/null
+++ b/man/PaulinoTb1.1.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.1.R
+\name{PaulinoTb1.1}
+\alias{PaulinoTb1.1}
+\title{Acidentes Rodoviários Ocorridos na Suécia}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{veloc}}{Existência ou não do limite de velocidade de 90
+     km/h.}
+
+\item{\code{estr}}{Tipo de estrada (auto-estrada, outras).}
+
+\item{\code{acid}}{Número de acidentes registrados.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.1, pág. 04)
+}
+\description{
+Durante 18 semanas, no ano de 1961, contou-se o número de acidentes 
+    rodoviários registrados na Suécia segundo o tipo de estrada e o
+    fato de haver ou não um limite de velocidade de 90 km/h no dia
+    em que ocorreram. Pretendia-se investigar se a 
+    imposição do limite de velocidade estava relacionado à ocorrência de
+    acidentes e a relação com o tipo de estrada.
+}
+\examples{
+
+data(PaulinoTb1.1)
+
+str(PaulinoTb1.1)
+
+xt <- xtabs(acid ~ veloc + estr, data = PaulinoTb1.1)
+xt
+
+prop.table(xt)
+
+mosaicplot(xt, main = NULL,
+           xlab = "Limite de Velocidade de 90 km/h",
+           ylab = "Tipo de Estrada")
+
+}
+\references{
+Rasch, G. (1973) Two applications of the multiplicative
+    Poisson model in road accident statistics, Proceedings of the
+    39th International Statistical Institute 4: 31-43.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.10.Rd b/man/PaulinoTb1.10.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..118b047947336581ae7433a7003776d68e1731bd
--- /dev/null
+++ b/man/PaulinoTb1.10.Rd
@@ -0,0 +1,63 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.10.R
+\name{PaulinoTb1.10}
+\alias{PaulinoTb1.10}
+\title{Pacientes com AIDS em Portugual}
+\format{Um \code{data.frame} com 64 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{sexo}}{Sexo do paciente (masculino, feminino).}
+
+\item{\code{doen}}{Doença manisfestada no momento do diagnóstico
+    (pneumonia, tuberculose, candidíase, toxoplasmose, sarcoma,
+    pneum. assoc, tub.assoc. e outras).}
+
+\item{\code{sobrev}}{Tempo de sobrevivência desde o momento do
+    diagnóstico, registrado em anos (< 1, \[1,2\), \[2,3\), > 2).}
+
+\item{\code{paci}}{Número de pacientes com AIDS na combinação das
+    variáveis \code{sexo}, \code{doen} e \code{sobrev}.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.10, pág. 12).
+}
+\description{
+De um estudo envolvendo casos de AIDS notificados em
+    Portugual até 31/01/95 extrairam-se os dados relativos à
+    classificação dos pacientes. Devido às inúmeras variantes da
+    manifestação da AIDS, a variável indicadora correspondente foi
+    categorizada segundo critérios epidemiológicos em Pneumonia, pela
+    bactéria \emph{Pneumocystis carinni}, Tuberculose extrapulmonar,
+    Candidíase, Toxoplasmose, Sarcoma de Kaposi - todas encaradas
+    como ocorrendo isoladamente -, Pneumonia associada a outras
+    infecções (pneum.assoc.) e Tuberculose extrapulmonar associada a
+    outras infecções (tub.assoc.) que não Pneumonia.
+}
+\examples{
+
+data(PaulinoTb1.10)
+
+str(PaulinoTb1.10)
+
+xt <- xtabs(paci ~ sexo + doen + sobrev, data = PaulinoTb1.10)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+library(lattice)
+
+barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+         auto.key = list(space = "top", columns = 4,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE,
+                         title = "Sobrevivência (anos)"),
+         xlab = "Sexo",
+         ylab = "Frequência")
+
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.11.Rd b/man/PaulinoTb1.11.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..9078ec73236a328a3fffd71201258a061f6901b4
--- /dev/null
+++ b/man/PaulinoTb1.11.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.11.R
+\name{PaulinoTb1.11}
+\alias{PaulinoTb1.11}
+\title{Tamanho de Ninhadas de Ovelhas}
+\format{Um \code{data.frame} com 36 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{quinta}}{Quinta onde eram criadas as ovelhas.}
+
+\item{\code{raca}}{Raça das ovelhas}
+
+\item{\code{borre}}{Número de borregos (filhotes de ovelha) por
+    ninhada.}
+
+\item{\code{ovelh}}{Número de ovelhas.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.11, pág. 13).
+}
+\description{
+Estudo de fertilidade de ovelhas de vários rebanhos
+    identificados pela raça e pela quinta onde eram criadas.
+}
+\examples{
+
+data(PaulinoTb1.11)
+
+str(PaulinoTb1.11)
+
+xt <- xtabs(ovelh ~ quinta + raca + borre, data = PaulinoTb1.11)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+library(vcd)
+
+cotabplot(xt)
+
+library(lattice)
+
+barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+         auto.key = list(space = "top", columns = 4,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE,
+                         title = "Número de borregos"),
+         xlab = "Quinta",
+         ylab = "Frequência")
+
+}
+\references{
+Mead, R., Curnow, R. N., Hasted, A. M. (2002).
+    Statistical Methods in Agricultural and Experimental Biology, 3
+    sdn, London: Chapman and Hall/CRC.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.12.Rd b/man/PaulinoTb1.12.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..7a1b645de87c68fb5ba2076a7a15b433859481f4
--- /dev/null
+++ b/man/PaulinoTb1.12.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.12.R
+\name{PaulinoTb1.12}
+\alias{PaulinoTb1.12}
+\title{Distribuição Espacial de Três Tipos de Árvores}
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{carv}}{Presença ou ausência da árvore do tipo carvalho.}
+
+\item{\code{nogue}}{Presença ou ausência da árvore do tipo nogueira.}
+
+\item{\code{bordo}}{Presença ou ausência da árvore do tipo bordo.}
+
+\item{\code{ocorr}}{Número de ocorrências de árvores.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.12, pág. 13).
+}
+\description{
+Com o objetivo de detectar eventual existência de
+    atração ou repulsão entre três tipos de árvores (carvalhos,
+    nogueiras e bordos), uma dada zona florestal foi dividida em 576
+    áreas de tamanho e forma fixos (quadrats) e registrou-se para
+    cada uma delas a ocorrência ou não de cada tipo de árvore.
+}
+\examples{
+
+data(PaulinoTb1.12)
+
+str(PaulinoTb1.12)
+
+xt <- xtabs(ocorr ~ carv + nogue + bordo, data = PaulinoTb1.12)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+library(vcd)
+
+cotabplot(xt)
+
+}
+\references{
+Upton, G. J. G., Fingleton, B. (1985). Spatial Data
+    Analysis by Example, Vol. 1, New York: John Wiley e Sons. Cap. 3.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.13.Rd b/man/PaulinoTb1.13.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..6007a18f9e88d3406de943e8f67f0a79f440fc72
--- /dev/null
+++ b/man/PaulinoTb1.13.Rd
@@ -0,0 +1,64 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.13.R
+\name{PaulinoTb1.13}
+\alias{PaulinoTb1.13}
+\title{Fobia em Alcóolatras}
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{prof}}{Situação profissional (com trabalho (registrado ou
+    não), sem trabalho (desempregado ou aposentado))}
+
+\item{\code{fobia}}{Manisfestação ou não de algum tipo de fobia.}
+
+\item{\code{alcool}}{Consumo diário ou não de álcool.}
+
+\item{\code{freq}}{Frequência de pacientes alcoólatras.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.13, pág. 14).
+}
+\description{
+Dados de um estudo realizado no Hospital das Clínicas da
+    Faculdade de Medicina da Universidade de São Paulo sobre a
+    relação entre a dependência do álcool e manifestação de vários
+    tipos de comportamento anómalo (fobias) em 97 alcóolatras.
+}
+\examples{
+
+data(PaulinoTb1.13)
+
+str(PaulinoTb1.13)
+
+xt <- xtabs(freq ~ prof + fobia + alcool, data = PaulinoTb1.13)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+library(vcd)
+
+cotabplot(xt)
+
+library(lattice)
+
+barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+         auto.key = list(space = "top", columns = 2,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE,
+                         title = "Uso diário de álcool"),
+         xlab = "Situação profissional",
+         ylab = "Frequência")
+
+}
+\references{
+Paula, G. A., Ballas, D., Barreto, G. M., Huai, H. M.
+    (1989). Estudo da associação entre dependência do álcool e fobia,
+    Relatório de análise estatística, Centro de Estatística Aplicada,
+    IME, Universidade de São Paulo.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.14.Rd b/man/PaulinoTb1.14.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..f3b1b8ee035b462c64df408bf0624da294a046fe
--- /dev/null
+++ b/man/PaulinoTb1.14.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.14.R
+\name{PaulinoTb1.14}
+\alias{PaulinoTb1.14}
+\title{Novos Casos de Homens com Melanoma}
+\format{Um \code{data.frame} com 12 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{faixa}}{Faixa etária do indivíduo atingido.}
+
+\item{\code{regi}}{Região do país em que o indivíduo mora.}
+
+\item{\code{melan}}{Número de novos casos de melanoma.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.14, pág. 14).
+}
+\description{
+Num estudo epidemiológico envolvendo a população
+    norte-americana de homens brancos, realizado entre 1969-1971,
+    contou-se o número de novos casos de melanoma (tipo de tumor
+    cancerígeno na pele.)
+}
+\examples{
+
+data(PaulinoTb1.14)
+
+str(PaulinoTb1.14)
+
+xt <- xtabs(melan ~ faixa + regi, data = PaulinoTb1.14)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+mosaicplot(xt,
+           main = NULL,
+           xlab = "Faixa etária",
+           ylab = "Região")
+
+library(lattice)
+
+barchart(xt, horizontal = FALSE, beside = TRUE,
+         auto.key = list(space = "top", columns = 2,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE,
+                         title = "Região"),
+         xlab = "Faixa etária",
+         ylab = "Frequência de novos casos de melanoma")
+
+}
+\references{
+Gail, M. G. (1978). The analysis of heterogeneity for
+    indirect standardized mortality ratios, Journal of the Royal
+    Statistical Society, A 141: 224-234.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.15.Rd b/man/PaulinoTb1.15.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..04b4c0ef9f4e1dba7eaa3083f26b3713ccefbd79
--- /dev/null
+++ b/man/PaulinoTb1.15.Rd
@@ -0,0 +1,71 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.15.R
+\name{PaulinoTb1.15}
+\alias{PaulinoTb1.15}
+\title{Pacientes com Endometriose}
+\format{Um \code{data.frame} com 49 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{grupo}}{Grupo de indivíduos envolvido no estudo.}
+
+\item{\code{abort}}{Número de abortos sofridos pela paciente.}
+
+\item{\code{dismen}}{Sintoma da dismenorréia (dor na menstrução),
+    classificada como: N = não tem, L = leve, M = moderada,
+    I = intensa.}
+
+\item{\code{dispa}}{Sintoma da dispareunia (dor na relação sexual),
+    classificada como: N = não tem, P = tem, PRO = tem, com mais
+    intensidade, 2 = tem em ambas a posições.}
+
+\item{\code{afsr}}{AFSr, gravidade da doença em que as pacientes
+    foram classificadas, cujos valores variam de 0 (não tem) a 4
+    (muito grave).}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.15, pág. 17).
+}
+\description{
+Estudo sobre endometriose realizado na Faculdade de
+    Medicina da Universidade de São Paulo. A endometriose
+    caracteriza-se pela localização etópica do tecido endometrial e é
+    uma das principais causas de infertilidade.
+}
+\examples{
+
+data(PaulinoTb1.15)
+
+str(PaulinoTb1.15)
+
+da <- na.omit(PaulinoTb1.15)
+
+library(lattice)
+
+# Tabela de contingência e gráfico para dispareunia
+(xt <- xtabs(afsr ~ dispa, data = da))
+barchart(xt,
+         col = "darkturquoise",
+         xlab = "Frequências observadas de AFSr",
+         ylab = "Dispareunia")
+
+# Tabela de contingência e gráfico para dismenorréia
+(xp <- xtabs(afsr ~ dismen, data = da))
+barchart(xp,
+         col = "darkturquoise",
+         xlab = "Frequências observadas de AFSr",
+         ylab = "Dismenorréia")
+
+# Tabela de contingência e gráfico para o número de abortos
+(xq <- xtabs(afsr ~ abort, data = da))
+barchart(xq,
+         col = "darkturquoise",
+         xlab = "Frequências observadas de AFSr",
+         ylab = "Número de abortos")
+
+}
+\keyword{dados-categorizados}
+
diff --git a/man/PaulinoTb1.16.Rd b/man/PaulinoTb1.16.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..4083871a81792600f849c1921a790e4dc81cc115
--- /dev/null
+++ b/man/PaulinoTb1.16.Rd
@@ -0,0 +1,61 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.16.R
+\name{PaulinoTb1.16}
+\alias{PaulinoTb1.16}
+\title{Microinfiltração em Dentes Molares}
+\format{Um \code{data.frame} com 72 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{mat}}{Tipo de material usado para selar os molares.}
+
+\item{\code{A}}{Classificação dos molares segundo o avaliador A.}
+
+\item{\code{B}}{Classificação dos molares segundo o avaliador B.}
+
+\item{\code{C}}{Classificação dos molares segundo o avaliador C.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.16, pág. 18).
+}
+\description{
+Estudo realizado na Faculdade de Odontologia da
+    Universidade de São Paulo em que cada um de três avaliadores
+    classificou 72 molares selados com diferentes materiais segundo o
+    nível de microinfiltração numa escala de 0 (sem microinfiltração)
+    a 4 (microinfiltração intensa).
+}
+\examples{
+
+data(PaulinoTb1.16)
+
+str(PaulinoTb1.16)
+
+# Transformando para o formato longo
+library(reshape2)
+da <- melt(PaulinoTb1.16, id.vars = "mat")
+
+# Criando tabela de frequências
+da$ni <- 1
+xt <- xtabs(ni ~ value + variable + mat, data = da)
+ftable(xt)
+
+# Criando gráfico
+library(lattice)
+barchart(xt,
+         stack = FALSE,
+         horizontal = FALSE,
+         xlab = "Avaliadores",
+         ylab = "Frequência",
+         auto.key = list(
+             column = 3,
+             cex.title = 1.1,
+             title = "Material"
+         ))
+
+}
+\keyword{dados-categorizados}
+
diff --git a/man/PaulinoTb1.2.Rd b/man/PaulinoTb1.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b25cb051d6e9919abe1039bdc0aeba654f9fbd96
--- /dev/null
+++ b/man/PaulinoTb1.2.Rd
@@ -0,0 +1,60 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.2.R
+\name{PaulinoTb1.2}
+\alias{PaulinoTb1.2}
+\title{Risco de Cárie Dentária em Crianças}
+\format{Um \code{data.frame} com 9 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{simpl}}{Risco de cárie segundo o método simplificado
+    (baixo, médio, alto).}
+
+\item{\code{conven}}{Risco de cárie segundo o método convencional
+    (baixo, médio, alto).}
+
+\item{\code{freq}}{Número de crianças observadas na combinação entre
+    as categorias \code{simpl} e \code{conven}.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.2, pág. 04)
+}
+\description{
+Da população de crianças de 11-13 anos de uma escola
+    pública foram selecionadas 97, cada uma delas submetida a dois
+    métodos de averiguação de susceptibilidade à cárie dentária: um
+    método convencional, de custos elevados, que consiste na contagem
+    de bactérias do tipo Lactobacillus na saliva, e um método
+    simpliicado, que se baseia na averiguação da cor resultante da
+    reação da saliva com a Resarzurina. Esse estudo destinava-se a
+    avaliar, em particular, a eficácia do método simplificado
+    relativamente ao método convencional.
+}
+\examples{
+
+data(PaulinoTb1.2)
+
+str(PaulinoTb1.2)
+
+xt <- xtabs(freq ~ simpl + conven, data = PaulinoTb1.2)
+xt
+
+prop.table(xt)
+
+mosaicplot(xt, main = NULL, cex.axis = 0.9,
+           xlab = "Método Simplificado",
+           ylab = "Método Convencional")
+
+}
+\references{
+André, C. D. S., Neves, M. M. C., Tseng. T. H (1990).
+    Estudo comparativo entre os diferentes métodos de detecção de
+    indivíduos com alto risco de cárie, Relatório de análise
+    estatística SEA-RAE-9008, Centro de Estatística Aplicada, IME,
+    Universidade de São Paulo.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.3.Rd b/man/PaulinoTb1.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..86c983ffaf04fa44a01b23668c508602890cf89c
--- /dev/null
+++ b/man/PaulinoTb1.3.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.3.R
+\name{PaulinoTb1.3}
+\alias{PaulinoTb1.3}
+\title{Pesos de Recém-nascidos num Hospital Universitário}
+\format{Um \code{data.frame} com 30 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{social}}{Classe social da família do recém-nascido.
+    Ordenada da mais favorecida para a mais desfavorecida.}
+
+\item{\code{peso}}{Categorias de peso do recém-nascido, em kg.}
+
+\item{\code{hab}}{Hábito de fumar da parturiente.}
+
+\item{\code{freq}}{Frequência de recém-nascidos.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.3, pág. 05)
+}
+\description{
+Na Faculdade de Medicina de Ribeirão Preto (Estado de
+    São Paulo) foram levantadas 8135 fichas hospitalares referentes a
+    nascimentos ocorridos num certo período de tempo. Cada nascimento
+    foi caracterizado segundo três variáveis.
+}
+\examples{
+
+data(PaulinoTb1.3)
+
+str(PaulinoTb1.3)
+
+xt <- xtabs(freq ~ social + peso + hab, data = PaulinoTb1.3)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+library(vcd)
+
+cotabplot(xt)
+
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.4.Rd b/man/PaulinoTb1.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..cac3ee844ea032006b90979ba6f6967d87a5a8d0
--- /dev/null
+++ b/man/PaulinoTb1.4.Rd
@@ -0,0 +1,62 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.4.R
+\name{PaulinoTb1.4}
+\alias{PaulinoTb1.4}
+\title{Graffiti em Sanitários Escolares}
+\format{Um \code{data.frame} com 28 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{tema}}{Tema das inscrições verbais e/ou gráficas.}
+
+\item{\code{escol}}{Local onde foi realizado o graffiti.}
+
+\item{\code{sexo}}{Sexo do indíviduo que realizou o graffiti.}
+
+\item{\code{graf}}{Número de graffiti em sanitários segundo o tema
+    aludido.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.4, pág. 05)
+}
+\description{
+Em 1993 foram inspecionados 28 sanitários masculinos e
+    28 femininos situados em escolas da área metropolitana de São
+    Paulo, metade deles em escolas secundárias e a outra metade em
+    seis escolas do campus principal da Universidade de São Paulo. A
+    inspeção dos sanitários visou recolher as inscrições verbais e/ou
+    gráficas (graffiti) neles existentes e que foram depois
+    clasificadas de acordo com a temática envolvida.
+}
+\examples{
+
+data(PaulinoTb1.4)
+
+str(PaulinoTb1.4)
+
+xt <- xtabs(graf ~ tema + escol + sexo, data = PaulinoTb1.4)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+library(lattice)
+
+barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+         auto.key = list(space = "top", columns = 2, cex.title = 1,
+                         rectangles = TRUE, points = FALSE,
+                         title = "Sexo"),
+         xlab = "Tema das inscrições",
+         ylab = "Frequência")
+
+}
+\references{
+Otta. E., Santana, P. R., Lafraia. L. M., Lennenberg, H.,
+    Teixeira, R. P., Vallochi S. L. (1996). Musa Latrinalis: gender
+    differences in restroom graffiti., Psychological Reports
+    78:871-880.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.5.Rd b/man/PaulinoTb1.5.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..ba7b2abdc0b3c085d5e5cec4b298543d853fe2bb
--- /dev/null
+++ b/man/PaulinoTb1.5.Rd
@@ -0,0 +1,68 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.5.R
+\name{PaulinoTb1.5}
+\alias{PaulinoTb1.5}
+\title{Uso de Fio Dental por Crianças de uma Escola}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{sexo}}{Sexo da criança (masculino, feminino).}
+
+\item{\code{faixa}}{Faixa etária da criança.}
+
+\item{\code{freq}}{Frequência de uso do fio dental. Insuficiente
+    significa que a criança nunca usa fio dental ou usa raramente e
+    boa significa que usa regular ou frequentemente.}
+
+\item{\code{habi}}{Capacidade motora no uso do fio dental. Inábil
+    para as crianças que não conseguem usar o fio dental nos dentes
+    incisivos e caninos ou usam de forma incorreta, e razoável para
+    as que conseguem usar pelo menos nos dentes citados acima.}
+
+\item{\code{fobs}}{Frequências observadas das 120 crianças.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.5, pág. 06)
+}
+\description{
+Num estudo odontopediátrico em uma escola da rede
+    pública do município de São Paulo foram selecionadas 60 crianças
+    de ambos os sexos, divididas igualmente nas faixas etárias de 5-8
+    e 9-12 anos, e cada criança foi classificada segundo as variáveis
+    descritas na sequência. Esse estudo visava verificar se a faixa
+    etária está relacionada com a frequência e a habilidade no uso de
+    fio dental para ambos os sexos.
+}
+\examples{
+
+data(PaulinoTb1.5)
+
+str(PaulinoTb1.5)
+
+xt <- xtabs(fobs ~ sexo + faixa + freq + habi, data = PaulinoTb1.5)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+library(lattice)
+
+barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+         auto.key = list(space = "top", columns = 2,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE, title = "Habilidade"),
+         xlab = "Sexo",
+         ylab = "Frequência absoluta")
+
+}
+\references{
+Singer, J. M., Herdeiro, R. F. C. (1990). Verificação da
+    habilidade de uso do fio dental em crianças de 5 a 12 anos,
+    Relatório de análise estatística SEA-RAe-9006, Centro de
+    Estatística Aplicada, IME, Universidade de São Paulo.
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.8.Rd b/man/PaulinoTb1.8.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..5dc6c8b355bf2c642d6913c19f63c15fd01bee41
--- /dev/null
+++ b/man/PaulinoTb1.8.Rd
@@ -0,0 +1,67 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.8.R
+\name{PaulinoTb1.8}
+\alias{PaulinoTb1.8}
+\title{Defeitos em Amostras de Fibras Têxteis}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{fabr}}{Fabricantes das máquinas (A, B).}
+
+\item{\code{bot}}{Número de defeitos do tipo botão (botões).}
+
+\item{\code{rolha}}{Número de defeitos do tipo rolha (rolhas).}
+
+\item{\code{freq}}{Número de amostras de 100g de fibra têxtil em que
+    observou-se \code{bot} botões e \code{rolha} rolhas.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.8, pág. 11)
+}
+\description{
+431 amostras de 100g de fibras têxteis, produzidas por
+    máquinas de dois fabricantes, foram inspecionadas quanto ao
+    número registrado de defeitos de cada um dos tipos (botões e
+    rolhas). Os defeitos do tipo rolha resultam da presença de
+    entrelaçamento em grupos de fibras maiores e de fácil separação,
+    já os do tipo botão tem entrelaçamento em grupos de fibras
+    menores e são de difícil separação. O interesse nesses dados
+    contra-se na avaliação da intensidade e da homogeneidade da
+    associação entre as frequências dos dois tipos de defeitos para
+    os fabricantes.
+}
+\examples{
+data(PaulinoTb1.8)
+
+str(PaulinoTb1.8)
+
+xt <- xtabs(freq ~ fabr + bot + rolha, data = PaulinoTb1.8)
+
+ftable(xt)
+ftable(prop.table(xt))
+
+mosaicplot(xt, main = NULL, cex.axis = 0.9,
+           xlab = "Fabricante das máquinas",
+           ylab = "Número de botões")
+
+library(lattice)
+
+barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE,
+         auto.key = list(space = "top", columns = 3,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE, title = "Número de rolhas"),
+         xlab = "Fabricante das máquinas",
+         ylab = "Frequência do número de defeitos")
+
+}
+\references{
+Ho, L. L., Singer, J. M. (1997). Regression models for
+    bivariate counts, Brazilian Journal of Probability and Statistics
+    - REBRAPE 11: 175-197
+}
+\keyword{contingência}
+
diff --git a/man/PaulinoTb1.9.Rd b/man/PaulinoTb1.9.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..d2aa8b183755c5b155b3cd52cee7d62ffb88058a
--- /dev/null
+++ b/man/PaulinoTb1.9.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.9.R
+\name{PaulinoTb1.9}
+\alias{PaulinoTb1.9}
+\title{Grupos Sanguíneos em 3 Amostras}
+\format{Um \code{data.frame} com 12 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{amost}}{Característica da amostra (controle, úlcera
+    estomacal e duodenal).}
+
+\item{\code{sang}}{Grupo sanguíneo (O, A, B, AB).}
+
+\item{\code{freq}}{Frequência de pacientes na amostra \code{amost} do
+    grupo sanguíneo \code{sang}.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.9, pág. 12).
+}
+\description{
+Distribuições observadas de grupos (fenótipos) de sangue
+    em 3 amostras de populações de Londres, uma de controle e as
+    outras de pacientes com úlcera estomacal ou doudenal.
+}
+\examples{
+
+data(PaulinoTb1.9) 
+
+str(PaulinoTb1.9)
+
+xt <- xtabs(freq ~ amost + sang, data = PaulinoTb1.9)
+
+xt
+prop.table(xt)
+
+mosaicplot(xt, main = NULL,
+           xlab = "Amostras",
+           ylab = "Tipos de sangue")
+
+}
+\references{
+Elandt-Johnson, R. C. (1971). Probability Models and
+     Statistical Methods in Genetics, New York: John Wiley e Sons.
+     (p. 420).
+}
+\keyword{contingência}
+