diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..880fc69042a1d8d4883224bcf5953a646ccb1a1a
Binary files /dev/null and b/.RData differ
diff --git a/R/CamposEg6.1.6.1.R b/R/CamposEg6.1.6.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..8e5b41509a4ae3e85459f3e162e1d25ac360b916
--- /dev/null
+++ b/R/CamposEg6.1.6.1.R
@@ -0,0 +1,31 @@
+#' @name CamposEg6.1.6.1
+#' @title Densidade Básica Media de Eucalyptus Grandis.
+#' @description FERREIRA (1970), estudando a densidade básica média de Eucalyptus grandis
+#' Hill ex Maiden.
+#' @format Um \code{data.frame} com 13 observações e 2 variáveis, em
+#' que
+#'
+#' \describe{
+#'
+#' \item{\code{X}}{ Densidade básica média ao nível do D.A.P., amostras Pressler (Volume
+#' determinado através de paquímetros e do diâmetro da sonda de Pressler de 0,5 cm) }
+#'
+#' \item{\code{Y}}{ Densidade básica média ao nível do D.A.P. (secções transversais do tronco). }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exemplo 6.1.6.1, pág. 188.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(CamposEg6.1.6.1)
+#' str(CamposEg6.1.6.1)
+#'
+#' boxplot(CamposEg6.1.6.1$X, CamposEg6.1.6.1$Y,
+#' names=c("X","Y"))
+#'
+#' cor.test(CamposEg6.1.6.1$X, CamposEg6.1.6.1$Y,
+#' alternative = "greater",method = "kendall")
+#'
+NULL
diff --git a/R/CamposEx6.1.7.1.R b/R/CamposEx6.1.7.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..301671cf1acf7cc5731b768054c7a88693c6a7c1
--- /dev/null
+++ b/R/CamposEx6.1.7.1.R
@@ -0,0 +1,27 @@
+#' @name CamposEx6.1.7.1
+#' @title Média de Aprovação.
+#' @description Numa faculdade tomaram-se as médias de aprovação do primeiro semestre dos
+#' doze primeiros alunos classificados nos exames vestibulares.
+#' @format Um \code{data.frame} com 12 observações e 2 variáveis, em
+#' que
+#'
+#' \describe{
+#'
+#' \item{\code{Vestibular}}{ Classificação no vestubular.}
+#'
+#' \item{\code{Media}}{ Média de aprovação. }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exercício 6.1.7.1, pág. 191.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(CamposEx6.1.7.1)
+#' str(CamposEx6.1.7.1)
+#'
+#' boxplot(CamposEx6.1.7.1$Media)
+#'
+#'
+NULL
diff --git a/R/CamposEx6.1.7.2.R b/R/CamposEx6.1.7.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..e8eb3fae1febd8ef8b45217088e4cd8a532aee89
--- /dev/null
+++ b/R/CamposEx6.1.7.2.R
@@ -0,0 +1,30 @@
+#' @name CamposEx6.1.7.2
+#' @title Seleção de Matéria Prima Destinada à Formação de População Básica para o
+#' Melhoramento de Galinhas
+#' @description CUSTÓDIO (1969), no seu estudo sobre "Seleção de Matéria Prima Destinada à
+#' Formação de População Básica para o Melhoramento de Galinhas", obteve os seguintes
+#' resultados.
+#' @format Um \code{data.frame} com 15 observações e 3 variáveis, em
+#' que
+#'
+#' \describe{
+#'
+#' \item{\code{Plantel}}{ Lote de galinhas. }
+#'
+#' \item{\code{pc200}}{ Peso do corpo com 200 dias (Kg). }
+#'
+#' \item{\code{po210}}{ Peso do ovo com 210 dias (g). }
+#'
+#' }
+#' @keywords TODOS
+#' @source DE CAMPOS; HUMBERTO (1983), Exercício 6.1.7.2, pág. 191.
+#' @examples
+#'
+#' library(lattice)
+#'
+#'data(CamposEx6.1.7.2)
+#'str(CamposEx6.1.7.2)
+#'
+#'cor.test(CamposEx6.1.7.2$pc200, CamposEx6.1.7.2$po210,
+#' alternative = "greater",method = "kendall")
+NULL
diff --git a/data-raw/CamposEg6.1.6.1.txt b/data-raw/CamposEg6.1.6.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..f97d0f568b10b119933ae2cdc6ea2111a3de4e16
--- /dev/null
+++ b/data-raw/CamposEg6.1.6.1.txt
@@ -0,0 +1,14 @@
+X Y
+0.602 0.619
+0.636 0.62
+0.604 0.62
+0.548 0.538
+0.59 0.616
+0.592 0.601
+0.625 0.664
+0.641 0.652
+0.606 0.579
+0.502 0.501
+0.588 0.59
+0.594 0.622
+0.626 0.606
diff --git a/data-raw/CamposEx6.1.7.1.txt b/data-raw/CamposEx6.1.7.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7d83df00c0ec03161f8a899fce85c9b895efb265
--- /dev/null
+++ b/data-raw/CamposEx6.1.7.1.txt
@@ -0,0 +1,13 @@
+Vestibular Media
+1º aluno 9.5
+2º aluno 8.7
+3º aluno 9
+4º aluno 8.6
+5º aluno 9.3
+6º aluno 9.3
+7º aluno 8.4
+8º aluno 8.8
+9º aluno 8.5
+10º aluno 7
+11º aluno 7.3
+12º aluno 7
diff --git a/data-raw/CamposEx6.1.7.2.txt b/data-raw/CamposEx6.1.7.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7307f9e0362e025452a75cdb2cbdb0b24a543e9a
--- /dev/null
+++ b/data-raw/CamposEx6.1.7.2.txt
@@ -0,0 +1,16 @@
+Plantel pc200 po210
+1 1.515 53.13
+2 1.809 52.9
+3 1.677 52.85
+4 1.684 53.58
+5 1.651 52.4
+6 1.784 52.46
+7 1.569 49.6
+8 1.457 52.27
+9 2.411 49.43
+10 2.272 51.49
+11 2.513 51.26
+12 2.394 51.2
+13 2.043 53.25
+14 2.309 50.11
+15 2.201 47.82
diff --git a/data/CamposEg6.1.6.1.rda b/data/CamposEg6.1.6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..061898fa3d870848da24d2cba42724af496d4d35
Binary files /dev/null and b/data/CamposEg6.1.6.1.rda differ
diff --git a/data/CamposEx6.1.7.1.rda b/data/CamposEx6.1.7.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..76953a5f3fe2063ead3414ba7077619cafe4b901
Binary files /dev/null and b/data/CamposEx6.1.7.1.rda differ
diff --git a/data/CamposEx6.1.7.2.rda b/data/CamposEx6.1.7.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..adac08c6ddd2f220c76e0e2cb99262349902beca
Binary files /dev/null and b/data/CamposEx6.1.7.2.rda differ
diff --git a/man/CamposEg6.1.6.1.Rd b/man/CamposEg6.1.6.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..e602e03be05921f89016ea80e7fd75625d6add7a
--- /dev/null
+++ b/man/CamposEg6.1.6.1.Rd
@@ -0,0 +1,39 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg6.1.6.1.R
+\name{CamposEg6.1.6.1}
+\alias{CamposEg6.1.6.1}
+\title{Densidade Básica Media de Eucalyptus Grandis.}
+\format{Um \code{data.frame} com 13 observações e 2 variáveis, em
+ que
+
+\describe{
+
+\item{\code{X}}{ Densidade básica média ao nível do D.A.P., amostras Pressler (Volume
+determinado através de paquímetros e do diâmetro da sonda de Pressler de 0,5 cm) }
+
+\item{\code{Y}}{ Densidade básica média ao nível do D.A.P. (secções transversais do tronco). }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exemplo 6.1.6.1, pág. 188.
+}
+\description{
+FERREIRA (1970), estudando a densidade básica média de Eucalyptus grandis
+Hill ex Maiden.
+}
+\examples{
+
+ library(lattice)
+
+ data(CamposEg6.1.6.1)
+ str(CamposEg6.1.6.1)
+
+ boxplot(CamposEg6.1.6.1$X, CamposEg6.1.6.1$Y,
+ names=c("X","Y"))
+
+ cor.test(CamposEg6.1.6.1$X, CamposEg6.1.6.1$Y,
+ alternative = "greater",method = "kendall")
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEx6.1.7.1.Rd b/man/CamposEx6.1.7.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c2a835191dda1678d9dc3a8342beb5225d8b5da9
--- /dev/null
+++ b/man/CamposEx6.1.7.1.Rd
@@ -0,0 +1,35 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx6.1.7.1.R
+\name{CamposEx6.1.7.1}
+\alias{CamposEx6.1.7.1}
+\title{Média de Aprovação.}
+\format{Um \code{data.frame} com 12 observações e 2 variáveis, em
+ que
+
+\describe{
+
+\item{\code{Vestibular}}{ Classificação no vestubular.}
+
+\item{\code{Media}}{ Média de aprovação. }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exercício 6.1.7.1, pág. 191.
+}
+\description{
+Numa faculdade tomaram-se as médias de aprovação do primeiro semestre dos
+doze primeiros alunos classificados nos exames vestibulares.
+}
+\examples{
+
+ library(lattice)
+
+ data(CamposEx6.1.7.1)
+ str(CamposEx6.1.7.1)
+
+ boxplot(CamposEx6.1.7.1$Media)
+
+
+}
+\keyword{TODOS}
+
diff --git a/man/CamposEx6.1.7.2.Rd b/man/CamposEx6.1.7.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..e590b58c52302cc5974617e047a9cce87430d2cc
--- /dev/null
+++ b/man/CamposEx6.1.7.2.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx6.1.7.2.R
+\name{CamposEx6.1.7.2}
+\alias{CamposEx6.1.7.2}
+\title{Seleção de Matéria Prima Destinada à Formação de População Básica para o
+Melhoramento de Galinhas}
+\format{Um \code{data.frame} com 15 observações e 3 variáveis, em
+ que
+
+\describe{
+
+\item{\code{Plantel}}{ Lote de galinhas. }
+
+\item{\code{pc200}}{ Peso do corpo com 200 dias (Kg). }
+
+\item{\code{po210}}{ Peso do ovo com 210 dias (g). }
+
+}}
+\source{
+DE CAMPOS; HUMBERTO (1983), Exercício 6.1.7.2, pág. 191.
+}
+\description{
+CUSTÓDIO (1969), no seu estudo sobre "Seleção de Matéria Prima Destinada à
+Formação de População Básica para o Melhoramento de Galinhas", obteve os seguintes
+resultados.
+}
+\examples{
+
+library(lattice)
+
+data(CamposEx6.1.7.2)
+str(CamposEx6.1.7.2)
+
+cor.test(CamposEx6.1.7.2$pc200, CamposEx6.1.7.2$po210,
+ alternative = "greater",method = "kendall")
+}
+\keyword{TODOS}
+