diff --git a/R/ZimmermannTb16.3.R b/R/ZimmermannTb16.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..06906df44e07be2fbd1645c7b92ca8eb37c66ac6
--- /dev/null
+++ b/R/ZimmermannTb16.3.R
@@ -0,0 +1,26 @@
+#' @name ZimmermannTb16.3
+#' @title Teores de Matéria Orgânica de Solos de Várzea
+#' @description Teores de matéria orgânica de solos aluviais e gely
+#'     húmicos.
+#' @format Um \code{data.frame} com 14 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{solo}}{Tipo de solo, sendo A - aluviais e B - gley
+#'     húmicos.}
+#'
+#' \item{\code{mo}}{Teor de matéria orgânica do solo (\%).}
+#'
+#' }
+#' @keywords TODO
+#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
+#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
+#'     Feijão. (Tabela 16.3, pág. 337)
+#' @examples
+#'
+#' # Postos.
+#' rank(ZimmermannTb16.3$mo)
+#'
+#' aggregate(mo ~ solo, data = ZimmermannTb16.3, FUN = mean)
+#'
+NULL
diff --git a/R/ZimmermannTb9.22.R b/R/ZimmermannTb9.22.R
new file mode 100644
index 0000000000000000000000000000000000000000..d3574741fac0dfd1e57a7e9a9c7883eb4a7c5724
--- /dev/null
+++ b/R/ZimmermannTb9.22.R
@@ -0,0 +1,62 @@
+#' @name ZimmermannTb9.22
+#' @title Fungicidas e Polímero na Infecção de \emph{Fusarium} em
+#'     Sementes
+#' @description Resultados de um experimento fatorial com tratamentos
+#'     adicionais \eqn{3 \times 3 + 2} que estudou o número de sementes
+#'     infectadas por fusaruim em função aplicação de fungicidas às
+#'     sementes e do uso associado de um polímero depois do fungicida ou
+#'     misturado a ele. Os dois tratamentos adicionais era a aplicação
+#'     isolada do polímero e uma testemunha sem qualquer tratamento. O
+#'     experimento foi instalado em delineamento inteiramente
+#'     casualizado.
+#' @format Um \code{data.frame} com 55 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{trat}}{Fator cetegórico que identifica as celas
+#'     experimentais do fatorial com tratamentos adicionais.}
+#'
+#' \item{\code{fung}}{Fator categórico que identifica os níveis dos
+#'     fungicidas aplicados às sementes. Benlate, Captam e Derosal são
+#'     os fungicidas. O polímero puro e uma testemunha também foram
+#'     investigados.}
+#'
+#' \item{\code{aplic}}{Fator categórico que indica a forma de aplicação
+#'     do fungicida em relação ao polímero: antes do polímero, misturado
+#'     com o polímero ou o fungicída puro.}
+#'
+#' \item{\code{nsi}}{Número de sementes infectadas por \emph{fusarium}
+#'     de um total de 40 sementes.}
+#'
+#' }
+#' @keywords DIC binomial
+#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
+#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
+#'     Feijão. (Tabela 9.22, pág. 188)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(ZimmermannTb9.22)
+#' str(ZimmermannTb9.22)
+#'
+#' xtabs(~fung + aplic, ZimmermannTb9.22)
+#'
+#' xyplot(nsi/40 ~ trat, data = ZimmermannTb9.22,
+#'        xlab = "Tratamentos",
+#'        ylab = "Proporção de sementes infectadas",
+#'        scales = list(x = list(rot = 90)))
+#'
+#' # Gráfico da função arco seno da raíz.
+#' curve(asin(sqrt(x)), from = 0, to = 1)
+#'
+#' # Transformação arco seno da raíz quadrada da proporção.
+#' asin(sqrt(ZimmermannTb9.22$nsi/40))
+#'
+#' # A transformação não elimina os zeros.
+#' xyplot(asin(sqrt(nsi/40)) ~ trat, data = ZimmermannTb9.22,
+#'        xlab = "Tratamentos",
+#'        ylab = "Arco seno da raíz da proporção",
+#'        scales = list(x = list(rot = 90)))
+#'
+NULL
diff --git a/data-raw/ZimmermannTb16.3.R b/data-raw/ZimmermannTb16.3.R
deleted file mode 100644
index 8bef8fb19955c062b01e5d83a57e3160c43937f1..0000000000000000000000000000000000000000
--- a/data-raw/ZimmermannTb16.3.R
+++ /dev/null
@@ -1,35 +0,0 @@
-#' @name ZimmermannTb16.3
-#' @title Teor de Materia Orgânica em Solos Aluviais
-#' @description Dados de um estudo sobre teoress de matéria orgânica em solos
-#'     aluviais e gley húmicos. Os tipos de solo são: A = solos aluviais e B =
-#'     solos gley húmicos. 
-#'     
-#' @format Um \code{data.frame} com 14 observações e 2 variáveis
-#'
-#' \describe{
-#' 
-#' \item{\code{MO}}{Médias nos ensaios irrigados.}
-#' 
-#' \item{\code{tipo}}{Fator de niveis nominais. Indica o tipo do solo da 
-#'     observaçao. }
-#'
-#' }
-#' @keywords DIC
-#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
-#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 16.3, pág 337)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(ZimmermannTb16.3)
-#'
-#' str(ZimmermannTb16.3)
-#'
-#' xyplot(MO ~ tipo, data = ZimmermannTb16.3,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Tipo de Solo",
-#'        ylab = "Matéria Orgânica",
-#'        main = "Teor de Materia Orgânica em Solos Aluviais",
-#'        scales = list(x = list(rot = 90)))
-NULL
diff --git a/data-raw/ZimmermannTb9.22.R b/data-raw/ZimmermannTb9.22.R
deleted file mode 100644
index 3aace407fc02dace1a38d4cde173c8582e5cdf34..0000000000000000000000000000000000000000
--- a/data-raw/ZimmermannTb9.22.R
+++ /dev/null
@@ -1,50 +0,0 @@
-#' @name ZimmermannTb9.22
-#' @title Sementes Infectadas com Fusarium
-#' @description Dados de um estudo em delineamento completamente ao acaso, num
-#'     esquema fatorial 3x3 + 2. Os tratamentos são: F1 = Benlate, F2 = Captam, 
-#'     F3 = Derosal, Puro = aplicação de um polímero após a aplicação do 
-#'     fungicida e Mistura = aplicação do fungicida em mistura com o polímero. 
-#'     Os dados referem-se ao número de sementes infectadas com \emph{Fusarium},
-#'     em amostras de 40 sementes, e sua transformação. 
-#'     
-#' @format Um \code{data.frame} com 55 observações e 4 variáveis
-#'
-#' \describe{
-#'     
-#' \item{\code{trat}}{Fator de níveis nominais. Identifica o tratamento 
-#'     aplicado.}
-#'     
-#' \item{\code{rept}}{Fator de níveis numéricos. Identifica a repetição da
-#'     observação.}
-#'
-#' \item{\code{sem}}{Produção de grãos de feijão (ka ha\eqn{^{-1}}).}
-#' 
-#' \item{\code{arcsen}}{Transformação da variável resposta 
-#'     (arcseno/(raiz(número)/40)).}
-#'
-#' }
-#' @keywords DIC fatorial
-#' @source Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
-#'     agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
-#'     Feijão. (Tabela 9.22, pág 188)
-#' @examples
-#'
-#' library(lattice)
-#'
-#' data(ZimmermannTb9.22)
-#'
-#' str(ZimmermannTb9.22)
-#'
-#' xyplot(sem ~ trat | rept, data = ZimmermannTb9.22,
-#'        type = "o", jitter.x = TRUE,
-#'        xlab = "Tratamentos",
-#'        ylab = "Quantidade de Sementes",
-#'        main = "Sementes Infectadas com Fusarium",
-#'        scales = list(x = list(rot = 90)))
-#' 
-#' aggregate(sem ~ rept, data = ZimmermannTb9.22,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
-#' 
-#' aggregate(sem ~ trat, data = ZimmermannTb9.22,
-#'           FUN = function(x) { c(mean = mean(x), var = var(x)) })
-NULL
diff --git a/data/ZimmermannTb9.22.rda b/data/ZimmermannTb9.22.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ca1cc7570959d2da2cf911c65f9fc57ee4c036cd
Binary files /dev/null and b/data/ZimmermannTb9.22.rda differ
diff --git a/man/ZimmermannTb9.22.Rd b/man/ZimmermannTb9.22.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..0c855f50e42e2f6143a614efe179bf24278ade11
--- /dev/null
+++ b/man/ZimmermannTb9.22.Rd
@@ -0,0 +1,71 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/ZimmermannTb9.22.R
+\name{ZimmermannTb9.22}
+\alias{ZimmermannTb9.22}
+\title{Fungicidas e Polímero na Infecção de \emph{Fusarium} em
+    Sementes}
+\format{Um \code{data.frame} com 55 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{trat}}{Fator cetegórico que identifica as celas
+    experimentais do fatorial com tratamentos adicionais.}
+
+\item{\code{fung}}{Fator categórico que identifica os níveis dos
+    fungicidas aplicados às sementes. Benlate, Captam e Derosal são
+    os fungicidas. O polímero puro e uma testemunha também foram
+    investigados.}
+
+\item{\code{aplic}}{Fator categórico que indica a forma de aplicação
+    do fungicida em relação ao polímero: antes do polímero, misturado
+    com o polímero ou o fungicída puro.}
+
+\item{\code{nsi}}{Número de sementes infectadas por \emph{fusarium}
+    de um total de 40 sementes.}
+
+}}
+\source{
+Zimmermann, F. J. (2004). Estatística aplicada à pesquisa
+    agrícola (1st ed.). Santo Antônio de Goiás, GO: Embrapa Arroz e
+    Feijão. (Tabela 9.22, pág. 188)
+}
+\description{
+Resultados de um experimento fatorial com tratamentos
+    adicionais \eqn{3 \times 3 + 2} que estudou o número de sementes
+    infectadas por fusaruim em função aplicação de fungicidas às
+    sementes e do uso associado de um polímero depois do fungicida ou
+    misturado a ele. Os dois tratamentos adicionais era a aplicação
+    isolada do polímero e uma testemunha sem qualquer tratamento. O
+    experimento foi instalado em delineamento inteiramente
+    casualizado.
+}
+\examples{
+
+library(lattice)
+
+data(ZimmermannTb9.22)
+str(ZimmermannTb9.22)
+
+xtabs(~fung + aplic, ZimmermannTb9.22)
+
+xyplot(nsi/40 ~ trat, data = ZimmermannTb9.22,
+       xlab = "Tratamentos",
+       ylab = "Proporção de sementes infectadas",
+       scales = list(x = list(rot = 90)))
+
+# Gráfico da função arco seno da raíz.
+curve(asin(sqrt(x)), from = 0, to = 1)
+
+# Transformação arco seno da raíz quadrada da proporção.
+asin(sqrt(ZimmermannTb9.22$nsi/40))
+
+# A transformação não elimina os zeros.
+xyplot(asin(sqrt(nsi/40)) ~ trat, data = ZimmermannTb9.22,
+       xlab = "Tratamentos",
+       ylab = "Arco seno da raíz da proporção",
+       scales = list(x = list(rot = 90)))
+
+}
+\keyword{DIC}
+\keyword{binomial}
+