diff --git a/R/NetoTb4A.7.R b/R/NetoTb4A.7.R
new file mode 100644
index 0000000000000000000000000000000000000000..df3808e09a1a66096ea9fb9b9512fd7af2624a10
--- /dev/null
+++ b/R/NetoTb4A.7.R
@@ -0,0 +1,60 @@
+#' @name NetoTb4A.7
+#' @title Produção de Violaceína por bactérias
+#' @description Utilizou-se um fatorial fracionado 2^(15-11) para
+#'    estudar a produção do pigmento violaceína pela Chromobacterium 
+#'    violaceum.
+#' @format Um \code{data.frame} com 16 observações e 17 variáve, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ens}}{Número do ensaio correspondente.}
+#' 
+#' \item{\code{f1}}{Fonte de carbono.}
+#' 
+#' \item{\code{f2}}{Extrato de levedura.}
+#' 
+#' \item{\code{f3}}{DL Metionina.}
+#' 
+#' \item{\code{f4}}{Vitamina B12.}
+#' 
+#' \item{\code{f5}}{L-triptofano.}
+#' 
+#' \item{\code{f6}}{Agitação.}
+#' 
+#' \item{\code{f7}}{Temperatura.}
+#' 
+#' \item{\code{f8}}{pH.}
+#' 
+#' \item{\code{f9}}{Peptona bacteriológica.}
+#' 
+#' \item{\code{f10}}{Inóculo.}
+#' 
+#' \item{\code{f11}}{ZnSO4.}
+#' 
+#' \item{\code{f12, f13, f14, f15}}{Como os sinais destas colunas não
+#'     correspondem a nenhum fator real, podemos usar os valores dos
+#'     contrastes calculados a partir delas como estimativas do erro
+#'     padrão de um efeito.}
+#' 
+#' \item{\code{resp}}{Produção.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 4A.7, pág. 210)
+#' @examples
+#'
+#' data(NetoTb4A.7)
+#' str(NetoTb4A.7)
+#'
+#' tab <- model.matrix(~ f1*f2*f3*f4*f5*f6*f7*f8*f9*f10*f11,
+#'                     data = NetoTb4A.7)
+#'
+#' y <- NetoTb4A.7$resp
+#'
+#' contr <- t(tab[, -1]) %*% y
+#'
+#' ef <- contr/(15 - 11)
+#'
+#' qqnorm(ef, col = 2, pch = 19); qqline(ef)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb4A.7.txt b/data-raw/NetoTb4A.7.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e45317e41fb3c7255e90afd11b9bbc525c88fd7a
--- /dev/null
+++ b/data-raw/NetoTb4A.7.txt
@@ -0,0 +1,17 @@
+ens	f1	f2	f3	f4	f5	f6	f7	f8	f9	f10	f11	f12	f13	f14	f15	resp
+1	-1	-1	-1	-1	1	1	1	1	1	1	-1	-1	-1	-1	1	0.39
+2	1	-1	-1	-1	-1	-1	-1	1	1	1	1	1	1	-1	-1	0.19
+3	-1	1	-1	-1	-1	1	1	-1	-1	1	1	1	-1	1	-1	0.26
+4	1	1	-1	-1	1	-1	-1	-1	-1	1	-1	-1	1	1	1	0.14
+5	-1	-1	1	-1	1	-1	1	-1	1	-1	1	-1	1	1	-1	0.26
+6	1	-1	1	-1	-1	1	-1	-1	1	-1	-1	1	-1	1	1	0.15
+7	-1	1	1	-1	-1	-1	1	1	-1	-1	-1	1	1	-1	1	0.31
+8	1	1	1	-1	1	1	-1	1	-1	-1	1	-1	-1	-1	-1	0
+9	-1	-1	-1	1	1	1	-1	1	-1	-1	-1	1	1	1	-1	0.09
+10	1	-1	-1	1	-1	-1	1	1	-1	-1	1	-1	-1	1	1	0
+11	-1	1	-1	1	-1	1	-1	-1	1	-1	1	-1	1	-1	1	0.24
+12	1	1	-1	1	1	-1	1	-1	1	-1	-1	1	-1	-1	-1	0.26
+13	-1	-1	1	1	1	-1	-1	-1	-1	1	1	1	-1	-1	1	0.17
+14	1	-1	1	1	-1	1	1	-1	-1	1	-1	-1	1	-1	-1	0.14
+15	-1	1	1	1	-1	-1	-1	1	1	1	-1	-1	-1	1	-1	0.26
+16	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	0.31
diff --git a/data/NetoTb4A.7.rda b/data/NetoTb4A.7.rda
new file mode 100644
index 0000000000000000000000000000000000000000..69d5d33c29e41d063b506c417e9834a4938fb40b
Binary files /dev/null and b/data/NetoTb4A.7.rda differ
diff --git a/man/NetoTb4A.7.Rd b/man/NetoTb4A.7.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..5494ad9ed7838f2199a27597a45986e06da8ff02
--- /dev/null
+++ b/man/NetoTb4A.7.Rd
@@ -0,0 +1,68 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb4A.7.R
+\name{NetoTb4A.7}
+\alias{NetoTb4A.7}
+\title{Produção de Violaceína por bactérias}
+\format{Um \code{data.frame} com 16 observações e 17 variáve, em que
+
+\describe{
+
+\item{\code{ens}}{Número do ensaio correspondente.}
+
+\item{\code{f1}}{Fonte de carbono.}
+
+\item{\code{f2}}{Extrato de levedura.}
+
+\item{\code{f3}}{DL Metionina.}
+
+\item{\code{f4}}{Vitamina B12.}
+
+\item{\code{f5}}{L-triptofano.}
+
+\item{\code{f6}}{Agitação.}
+
+\item{\code{f7}}{Temperatura.}
+
+\item{\code{f8}}{pH.}
+
+\item{\code{f9}}{Peptona bacteriológica.}
+
+\item{\code{f10}}{Inóculo.}
+
+\item{\code{f11}}{ZnSO4.}
+
+\item{\code{f12, f13, f14, f15}}{Como os sinais destas colunas não
+    correspondem a nenhum fator real, podemos usar os valores dos
+    contrastes calculados a partir delas como estimativas do erro
+    padrão de um efeito.}
+
+\item{\code{resp}}{Produção.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 4A.7, pág. 210)
+}
+\description{
+Utilizou-se um fatorial fracionado 2^(15-11) para
+   estudar a produção do pigmento violaceína pela Chromobacterium 
+   violaceum.
+}
+\examples{
+
+data(NetoTb4A.7)
+str(NetoTb4A.7)
+
+tab <- model.matrix(~ f1*f2*f3*f4*f5*f6*f7*f8*f9*f10*f11,
+                    data = NetoTb4A.7)
+
+y <- NetoTb4A.7$resp
+
+contr <- t(tab[, -1]) \%*\% y
+
+ef <- contr/(15 - 11)
+
+qqnorm(ef, col = 2, pch = 19); qqline(ef)
+
+}
+\keyword{DBC}
+