diff --git a/R/CamposEg3.1.9.1.R b/R/CamposEg3.1.9.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..39479037ac7248eecf7c6f0d34185340e7137191
--- /dev/null
+++ b/R/CamposEg3.1.9.1.R
@@ -0,0 +1,48 @@
+#' @name CamposEg3.1.9.1
+#' @title Eficiência de um Novo Herbicida
+#' @description Teste para verificar a eficiência de um novo herbicida, no controle de ervas
+#'    daninhas. Ensaio realizado, considerando dez parcelas. Onde em parcela, metade foi tratada
+#'    e a outra metade deixada como controle.
+#' @format Um \code{data.frame} com 10 observações e 3 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Parcelas}}{ É a unidade na qua qual o tratamento é aplicado. }
+#'
+#' \item{\code{Controle}}{ Peso em g, de ervas daninhas no Grupo de Controle. }
+#'
+#' \item{\code{Tratada}}{  Peso em g, de ervas daninhas no Grupo que recebeu o novo herbicida. }
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data("CamposEg3.1.9.1")
+#' str(CamposEg3.1.9.1)
+#'
+#' # Verificando a eficiência do tratamento
+#' # H0 : θ == 0 vs Ha : θ < 0
+#' # Calculando Zi = Yi - Xi (Tratada(Y) - Controle(X))
+#' CamposEg3.1.9.1$Zi <- CamposEg3.1.9.1$Tratada - CamposEg3.1.9.1$Controle
+#' str(CamposEg3.1.9.1$Zi)
+#'
+#' # Definir o indicador Ai. 
+#' # Ai = (1 se Zi > 0 , 0 se Zi < 0)
+#' CamposEg3.1.9.1$Ai <-  ifelse( CamposEg3.1.9.1$Zi > 0, 1, 0)
+#' str(CamposEg3.1.9.1$Ai)
+#'
+#' # Intervalo de confiança para θ
+#' CAlfa <- pbinom(0.0547, 10, 0.50, lower.tail = FALSE) + 1
+#' CAlfa
+#' # Logo ao nível α == 0.0547, rejeitamos H0 se B <= CAlfa
+#'
+#' if (sum(CamposEg3.1.9.1$Ai) <= CAlfa) {
+#'  "Rejeitamos H0"
+#' } else {
+#'  "Aceitamos H0"
+#' }
+
+NULL
diff --git a/R/CamposEg3.1.9.2.R b/R/CamposEg3.1.9.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..ed8b2ae452e2afa6ce23970ff7928dd3b86e258c
--- /dev/null
+++ b/R/CamposEg3.1.9.2.R
@@ -0,0 +1,45 @@
+#' @name CamposEg3.1.9.2
+#' @title Teste de Hipóteses em uma Variedade de Cana-de-Açúcar.
+#' @description Numa variedade de cana-de-açúcar, o comprimento médio do terceiro internódio 
+#'  é de 22 cm. Admitindo este como fator característico, e querendo averiguar se a cana de 
+#'  um determinado talhão pertence a esta variedade, foram tomadas nove amostras de seis colmos 
+#'  cada, obtendo-se os seguintes comprimentos médios.
+#' @format Um \code{data.frame} com 9 observações e 2 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{Amostras}}{ Numero de Amostras. }
+#'
+#' \item{\code{Comprimento_medio}}{ Comprimento médio do terceiro internódio, em cm. }
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' library(lattice)
+#' 
+#' data("CamposEg3.1.9.2")
+#' str(CamposEg3.1.9.2)
+#' 
+#' # Verificando a eficiência do tratamento
+#' # H0 : θ == 22 vs Ha : θ > 22
+#' # Calculando ZiNovo = Zi - 22 (Compriento_medio - 22)
+#' CamposEg3.1.9.2$ZiNovo <- CamposEg3.1.9.2$Comprimento_medio - 22
+#' str(CamposEg3.1.9.2$ZiNovo)
+
+#' # Definir o indicador Ai. 
+#' # Ai = (1 se Zi > 0 , 0 se Zi < 0)
+#' CamposEg3.1.9.2$Ai <-  ifelse( CamposEg3.1.9.2$ZiNovo > 0, 1, 0)
+#' str(CamposEg3.1.9.2$Ai)
+#' 
+#' # Intervalo de confiança para θ
+#' CAlfa <- pbinom(0.0195, 9, 0.50, lower.tail = FALSE) 
+#' CAlfa
+#' # Logo ao nível α == 0.0195, rejeitamos H0 se B > CAlfa
+#' 
+#' if (sum(CamposEg3.1.9.2$Ai) > CAlfa) {
+#'   "Rejeitamos H0"
+#' } else {
+#'   "Aceitamos H0"
+#' }
+NULL
diff --git a/R/CamposEg3.2.1.R b/R/CamposEg3.2.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..eb3546f0dcf738011a821f78404c8983d5df7ff2
--- /dev/null
+++ b/R/CamposEg3.2.1.R
@@ -0,0 +1,50 @@
+#' @name CamposEg3.2.1
+#' @title Teste de Cox e Stuart em Precipitação de Janeiro, nos Últimos 20 anos.
+#' @description Verificação se a precipitação esta tendendo a aumentar ou diminuir nos últimos anos.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Ano}}{ Numero da amostra. }
+#'
+#' \item{\code{Precipitacao}}{ Precipitação de chuva, em mm. }
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' library(lattice)
+#' 
+#' data("CamposEg3.2.1")
+#' str(CamposEg3.2.1)
+#' 
+#' # Tomamos k = n / 2 , logo:
+#' k <- length(CamposEg3.2.1$Ano) / 2
+#' 
+#' # Assim formamos os pares (Xi; Xk+i).
+#' Xi <-  CamposEg3.2.1$Precipitacao[1:10]
+#' Xki <- CamposEg3.2.1$Precipitacao[11:20]
+#' 
+#' # Zi = Xki - Xi
+#' 
+#' Zi <- Xki - Xi
+#' Zi
+#' # Definimos a variável indicadora:
+#' # Ai = (1 se Zi > 0) e (0 se Zi < 0)
+#' Ai <- ifelse(Zi > 0, 1, 0)
+#' str(Ai)
+#' 
+#' # B = Soma de todos os Ai iguais a 1
+#' B <- sum(Ai)
+#' 
+#' # Aplicando o teste bilateral.
+#' # H0 : θ = 0 vs Ha : θ != 0
+#' a1 <-  pbinom(4, k, 0.5)
+#' a2 <- 1 - pbinom(3, k, 0.5)
+#' if(2 * a1 < a2){
+#'   "Não rejeitamos H0"
+#' } else{
+#'   "Rejeitamos H0"
+#' }
+
+NULL
diff --git a/R/CamposEg3.2.2.R b/R/CamposEg3.2.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..61da345ff8e31fb444e041f4587bfd1d072ead64
--- /dev/null
+++ b/R/CamposEg3.2.2.R
@@ -0,0 +1,50 @@
+#' @name CamposEg3.2.2
+#' @title Teste de Cox e Stuart em Porcentagem do Orçamento Aplicada no Setor de Educação, nos Últimos 17 anos.
+#' @description Verifique se o Setor de Educação do Município está sendo melhor amparado no período considerado.
+#' @format Um \code{data.frame} com 17 observações e 2 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Ano}}{ Amostra dos ultimos 17 anos. }
+#'
+#' \item{\code{Porcentagem}}{ Porcentagem de orçamento de um Município, aplicada no Setor de Educação.  }
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' 
+#'  library(lattice)
+#'
+#' data("CamposEg3.2.2")
+#' str(CamposEg3.2.2)
+#' 
+#' # Tomamos k = (n + 1) / 2 , logo:
+#' k <- (length(CamposEg3.2.2$Ano) -1) / 2
+#' 
+#' # Assim formamos os pares (Xi; Xk+i).
+#' Xi <-  CamposEg3.2.2$Porcentagem[1:8]
+#' Xki <- CamposEg3.2.2$Porcentagem[10:17]
+#' 
+#' # Zi = Xki - Xi
+#' 
+#' Zi <- Xki - Xi
+#' Zi
+#' # Definimos a variável indicadora:
+#' # Ai = (1 se Zi > 0) e (0 se Zi < 0)
+#' Ai <- ifelse(Zi > 0, 1, 0)
+#' str(Ai)
+#' 
+#' # B = Soma de todos os Ai iguais a 1
+#' B <- sum(Ai)
+#' 
+#' # Aplicando o teste unilateral.
+#' # H0 : θ = 0 vs Ha : θ > 0
+#' a1 <-  pbinom(6, k, 0.5, lower.tail = FALSE)
+#' a2 <- 1 - pbinom(6, k, 0.5, lower.tail = FALSE)
+#' if(2 * a1 > a2){
+#'   "Não rejeitamos H0"
+#' } else{
+#'   "Rejeitamos H0"
+#' }
+NULL
diff --git a/R/CamposEg3.4.10.1.R b/R/CamposEg3.4.10.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..7546061a4fd671113d88859aee2af5442185939e
--- /dev/null
+++ b/R/CamposEg3.4.10.1.R
@@ -0,0 +1,31 @@
+#' @name CamposEg3.4.10.1
+#' @title Prevalência de Oclusão Normal Segundo a Idade e o Sexo.
+#' @description NOUER (1966), estudando a prevalência de oclusão normal 
+#'   segundo a idade e o sexo, com escolares do Grupo Barão do Rio Branco,
+#'   em Piracicaba, SP, obteve os seguintes resultados. 
+#' @format Um \code{data.frame} com 11 observações e 3 variáveis, em
+#'      que
+#' \describe{
+#'
+#' \item{\code{Idade}}{ Idade da amostra. }
+#'
+#' \item{\code{Masculino}}{ Porcentagem de Oclusão Normal no sexo Masculino. }
+#'
+#' \item{\code{Feminino}}{  Porcentagem de Oclusão Normal no sexo Feminino.}
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' library(lattice)
+#' 
+#' data("CamposEg3.4.10.1")
+#' str(CamposEg3.4.10.1)
+#' # A = CamposEg3.4.10.1$Masculino e B = CamposEg3.4.10.1$Feminino
+#' A <- CamposEg3.4.10.1$Masculino
+#' str(A)
+#' B <- CamposEg3.4.10.1$Feminino
+#' str(B)
+#' 
+#' #  Teste de Wilcoxon
+#' wilcox.test(B, A, paired = TRUE)
+NULL
diff --git a/R/CamposEg3.4.10.2.R b/R/CamposEg3.4.10.2.R
new file mode 100644
index 0000000000000000000000000000000000000000..0a67fbbb86368a574ee8d21e7667d77b1ab01585
--- /dev/null
+++ b/R/CamposEg3.4.10.2.R
@@ -0,0 +1,36 @@
+#' @name CamposEg3.4.10.2
+#' @title Variedade de Cana de Açúcar. 
+#' @description Trabalhando-se com duas variedades de cana-de-açúcar, contatou-se que a 
+#'  variedade B produzia acima de 15% a mais do que a variedade A. Para a comprovação de
+#'  tal resultado, foram considerados as medias de produção (t/ha) das duas variedades, em
+#'  dez locais distintos.
+#' @format Um \code{data.frame} com 10 observações e 3 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Locais}}{ Amostra  }
+#'
+#' \item{\code{Variedade_A}}{ Média de produção, em (t/ha) }
+#'
+#' \item{\code{Variedade_B}}{ Média de produção, em (t/ha)}
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' 
+#'  library(lattice)
+#' 
+#' data("CamposEg3.4.10.2")
+#' str(CamposEg3.4.10.2)
+#' 
+#' # Podemos considerar a produção da variedade A acrecidas de 15% e testar com B.
+#' # A = Variedade_A * 1.15 e B = Variedade_B
+#' A <- CamposEg3.4.10.2$Variedade_A * 1.15
+#' str(A)
+#' B <- CamposEg3.4.10.2$Variedade_B 
+#' str(B)
+#' 
+#' #  Teste de Wilcoxon
+#' wilcox.test(B, A, paired = T)
+NULL
diff --git a/R/CamposEx3.1.10.3.R b/R/CamposEx3.1.10.3.R
new file mode 100644
index 0000000000000000000000000000000000000000..d83eeabee6d1c60d10d3c8aff58f641289b82f58
--- /dev/null
+++ b/R/CamposEx3.1.10.3.R
@@ -0,0 +1,35 @@
+#' @name CamposEx3.1.10.3
+#' @title Teste de Hipótese em um Novo Método a ser Implantado. 
+#' @description Uma firma submeteu oito se seus empregados a um treinamento intensivo sobre 
+#' um novo método a ser implantado, visando a um maior rendimento na produção.
+#' @format Um \code{data.frame} com 8 observações e 3 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{Empregado}}{ Amostra }
+#'
+#' \item{\code{Antigo}}{ Numero médio de peças produzidas diariamente antes do treinamento. }
+#'
+#' \item{\code{Novo}}{  Numero médio de peças produzidas diariamente depois do treinamento.}
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#'  library(lattice)
+#'
+#' data("CamposEx3.1.10.3")
+#' str(CamposEx3.1.10.3)
+#' 
+#' # Verificando a eficiência do treinamento
+#' # H0 : θ == 0 vs Ha : θ < 0
+#' # Calculando Zi = Yi - Xi (Novo(Y) - Antigo(X))
+#' CamposEx3.1.10.3$Zi <- CamposEx3.1.10.3$Novo - CamposEx3.1.10.3$Antigo
+#' str(CamposEx3.1.10.3$Zi)
+#' 
+#' # Definir o indicador Ai. 
+#' # Ai = (1 se Zi > 0 , 0 se Zi < 0)
+#' CamposEx3.1.10.3$Ai <-  ifelse( CamposEx3.1.10.3$Zi > 0, 1, 0)
+#' str(CamposEx3.1.10.3$Ai)
+
+NULL
diff --git a/R/CamposEx3.1.10.4.R b/R/CamposEx3.1.10.4.R
new file mode 100644
index 0000000000000000000000000000000000000000..da51537171133ce3bacc0f14e996e23961352c71
--- /dev/null
+++ b/R/CamposEx3.1.10.4.R
@@ -0,0 +1,34 @@
+#' @name CamposEx3.1.10.4
+#' @title Teste de Hipótese para Começar o Corte de Cana.
+#' @description Uma usina de açúcar admite o brix acima de 18, para receber a cana dos 
+#'    fornecedores, para moagem. Da cana de um certo fornecedor, foram coletadas sete 
+#'    amostras.
+#' @format Um \code{data.frame} com 7 observações e 2 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{Amostra}}{ Numero da amostra. }
+#'
+#' \item{\code{Brix}}{ Quantidade de Brix. }
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' library(lattice)
+#' 
+#' data("CamposEx3.1.10.4")
+#' str(CamposEx3.1.10.4)
+
+#' # Verificando a quantidade de Brix
+#' # H0 : θ == 18 vs Ha : θ > 18
+#' # Calculando ZiNovo = Zi - 18 (Brix - 18)
+#' CamposEx3.1.10.4$ZiNovo <- CamposEx3.1.10.4$Brix - 18
+#' str(CamposEx3.1.10.4$ZiNovo)
+#' 
+#' # Definir o indicador Ai. 
+#' # Ai = (1 se Zi > 0 , 0 se Zi < 0)
+#' CamposEx3.1.10.4$Ai <-  ifelse( CamposEx3.1.10.4$ZiNovo > 0, 1, 0)
+#' str(CamposEx3.1.10.4$Ai)
+
+NULL
diff --git a/R/CamposEx3.1.10.5.R b/R/CamposEx3.1.10.5.R
new file mode 100644
index 0000000000000000000000000000000000000000..e2c6080d3e608f8209881efb6f61c9145b4ca491
--- /dev/null
+++ b/R/CamposEx3.1.10.5.R
@@ -0,0 +1,36 @@
+#' @name CamposEx3.1.10.5
+#' @title Teste de Hipóteses em uma Dieta para Emagrecimento.
+#' @description Vinte e quatro pacientes foram submetidos a uma dieta para emagrecimento.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Paciente}}{ Numero da amostra. }
+#'
+#' \item{\code{Antes}}{ Peso em Kg, antes da dieta. }
+#'
+#' \item{\code{Depois}}{ Peso em Kg, depois da dieta. }
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' 
+#'  library(lattice)
+#' 
+#' data("CamposEx3.1.10.5")
+#' str(CamposEx3.1.10.5)
+#' 
+#' # Verificando a eficiência da dieta
+#' # H0 : θ == 0 vs Ha : θ > 0
+#' # Calculando Zi = Yi - Xi (Depois(Y) - Antes(X))
+#' CamposEx3.1.10.5$Zi <- CamposEx3.1.10.5$Depois - CamposEx3.1.10.5$Antes
+#' str(CamposEx3.1.10.5$Zi)
+#' 
+#' # Definir o indicador Ai. 
+#' # Ai = (1 se Zi > 0 , 0 se Zi < 0)
+#' CamposEx3.1.10.5$Ai <-  ifelse( CamposEx3.1.10.5$Zi > 0, 1, 0)
+#' str(CamposEx3.1.10.3$Ai)
+
+
+NULL
diff --git a/R/CamposEx3.1.10.8.R b/R/CamposEx3.1.10.8.R
new file mode 100644
index 0000000000000000000000000000000000000000..498bc4d690c95d62c2bdc84a3e312ddac5c44c2b
--- /dev/null
+++ b/R/CamposEx3.1.10.8.R
@@ -0,0 +1,37 @@
+#' @name CamposEx3.1.10.8
+#' @title Teste de Hipótese sobre Desenvolvimento de Gêmeos no Primeiro Mês. 
+#' @description Foram considerados doze casos de irmãos Gêmeos a fim de verificar se é 
+#'    valido admitir que o primeiro a nascer desenvolve-se mais no primeiro mês. 
+#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em
+#'      que
+#'
+#' \describe{
+#'
+#' \item{\code{Casos}}{ Amostra de gêmeos. }
+#'
+#' \item{\code{Gemeo1}}{ Peso, em Kg, aos 30 dias de idade. }
+#'
+#' \item{\code{Gemeo2}}{  Peso, em Kg, aos 30 dias de idade. }
+#'
+#' }
+#' @keywords TODO
+#' @examples
+#' 
+#'  library(lattice)
+#' 
+#' data("CamposEx3.1.10.8")
+#' str(CamposEx3.1.10.8)
+#' 
+#' # Verificando a hipotese que o primeiro gêmeo ao nascer desenvolve-se mais no primeiro mês.
+#' # H0 : θ == 0 vs Ha : θ > 0
+#' # Calculando Zi = Yi - Xi (Gemeo2(Y) - Gemeo1(X))
+#' CamposEx3.1.10.8$Zi <- CamposEx3.1.10.8$Gemeo2 - CamposEx3.1.10.8$Gemeo1
+#' str(CamposEx3.1.10.8$Zi)
+#' 
+#' # Definir o indicador Ai. 
+#' # Ai = (1 se Zi > 0 , 0 se Zi < 0)
+#' CamposEx3.1.10.8$Ai <-  ifelse( CamposEx3.1.10.8$Zi > 0, 1, 0)
+#' str(CamposEx3.1.10.8$Ai)
+
+
+NULL
diff --git a/R/CamposEx3.4.11.1.R b/R/CamposEx3.4.11.1.R
new file mode 100644
index 0000000000000000000000000000000000000000..47fa4638e44c9ef13ca3756f4ea4b986fa915c04
--- /dev/null
+++ b/R/CamposEx3.4.11.1.R
@@ -0,0 +1,34 @@
+#' @name CamposEx3.4.11.1
+#' @title Medidas de Pressão Sanguínea.
+#' @description Um grupo de oito indivíduos se submete a um estimulo. A tabela que se segue 
+#'  apresenta as medidas de pressão sanguínea, me Milímetros de Hg, antes e depois do 
+#'  estimulo. Suportam estes dados, a hipótese de que os estímulos aumentam a pressão sanguínea? 
+#' @format Um \code{data.frame} com 8 observações e 3 variáveis, em que
+#'      
+#'
+#' \describe{
+#'
+#' \item{\code{Paciente}}{ Grupo de oito indivíduos. }
+#'
+#' \item{\code{Antes}}{Pressão sanguínea, em milímetros de Hg, antes do estímulo.  }
+#'
+#' \item{\code{Depois}}{ Pressão sanguínea, em milímetros de Hg, depois do estímulo. }
+#'
+#' }
+#' @keywords TODOS
+#' @examples
+#' 
+#'  library(lattice)
+#'
+#' data("CamposEx3.4.11.1")
+#' str(CamposEx3.4.11.1)
+#'
+#' # A = CamposEx3.4.11.1$Antes e B = CamposEx3.4.11.1$Depois
+#' A <- CamposEx3.4.11.1$Antes
+#' str(A)
+#' B <- CamposEx3.4.11.1$Depois
+#' str(B)
+#' 
+#' #  Teste de Wilcoxon
+#' wilcox.test(B, A, paired = T)
+NULL
diff --git a/data-raw/CamposEg3.1.9.1.txt b/data-raw/CamposEg3.1.9.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..2f3be8d2d9aa0e8cf4451e8fba406cfdef8f80ad
--- /dev/null
+++ b/data-raw/CamposEg3.1.9.1.txt
@@ -0,0 +1,11 @@
+Parcelas	Controle	Tratada
+1	115.4	98.4
+2	121	73.6
+3	112.3	65.9
+4	78.7	42.1
+5	65.6	77.2
+6	213.5	104
+7	157.5	82.8
+8	80.7	59.4
+9	142.8	102.6
+10	100.3	53.7
diff --git a/data-raw/CamposEg3.1.9.2.txt b/data-raw/CamposEg3.1.9.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..6f12e2bd550aaebe42eb923cdc4627260cb4a5ce
--- /dev/null
+++ b/data-raw/CamposEg3.1.9.2.txt
@@ -0,0 +1,10 @@
+Amostras	Comprimento_medio
+1	23.3
+2	22.4
+3	21.1
+4	22.6
+5	22.2
+6	23.5
+7	22.7
+8	22.8
+9	23
diff --git a/data-raw/CamposEg3.2.1.txt b/data-raw/CamposEg3.2.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..468f9083030ff3cf2ec892f4dd01b347730978ce
--- /dev/null
+++ b/data-raw/CamposEg3.2.1.txt
@@ -0,0 +1,21 @@
+Ano	Precipitacao
+1	125.35
+2	127.46
+3	118.77
+4	98.26
+5	126.37
+6	148.25
+7	112.37
+8	156.28
+9	96.18
+10	162.32
+11	117.05
+12	90.72
+13	127.2
+14	100.72
+15	118.63
+16	132.45
+17	118.43
+18	135.14
+19	108.8
+20	126.48
diff --git a/data-raw/CamposEg3.2.2.txt b/data-raw/CamposEg3.2.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..bcb7f6437a4d35be9f2e76c4f04360f94f1b0cb2
--- /dev/null
+++ b/data-raw/CamposEg3.2.2.txt
@@ -0,0 +1,18 @@
+Ano	Porcentagem
+1	16.4
+2	17.3
+3	18.6
+4	15.6
+5	18.4
+6	21.6
+7	18.4
+8	22.3
+9	23
+10	21.4
+11	19.3
+12	17.4
+13	22
+14	21.6
+15	25.4
+16	24.2
+17	26.2
diff --git a/data-raw/CamposEg3.4.10.1.txt b/data-raw/CamposEg3.4.10.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..68317d4e17ac868ff18d1ab4b5c3eb282cba5f77
--- /dev/null
+++ b/data-raw/CamposEg3.4.10.1.txt
@@ -0,0 +1,12 @@
+Idade	Masculino	Feminino
+7	8.7	7.7
+7.5	18.6	9.6
+8	8	16
+8.5	12.9	13.4
+9	10.9	9.6
+9.5	13.4	13
+10	11.9	23.7
+10.5	14.3	6.2
+11	20	9.6
+11.5	14.4	13.8
+12	6.6	15.1
diff --git a/data-raw/CamposEg3.4.10.2.txt b/data-raw/CamposEg3.4.10.2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b7085e3f379a2f9273f320321214b23b8dffdcda
--- /dev/null
+++ b/data-raw/CamposEg3.4.10.2.txt
@@ -0,0 +1,11 @@
+Locais	Variedade_A	Variedade_B
+1	75.8	93.5
+2	84.3	100.2
+3	78.4	95.4
+4	81.5	98.6
+5	85.6	102.5
+6	68.7	80.5
+7	70.4	73.6
+8	79.7	93.5
+9	78.3	94.6
+10	83.5	105.1
diff --git a/data-raw/CamposEx3.1.10.3.txt b/data-raw/CamposEx3.1.10.3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..71408da9c70a0607fa04aff1203f46aaa28a92bf
--- /dev/null
+++ b/data-raw/CamposEx3.1.10.3.txt
@@ -0,0 +1,9 @@
+Empregado	Antigo	Novo
+1	18	24
+2	15	14
+3	19	22
+4	23	28
+5	12	16
+6	16	20
+7	18	20
+8	17	18
diff --git a/data-raw/CamposEx3.1.10.4.txt b/data-raw/CamposEx3.1.10.4.txt
new file mode 100644
index 0000000000000000000000000000000000000000..f81fc03a0e7991016d0ab68cca75be72e58525ed
--- /dev/null
+++ b/data-raw/CamposEx3.1.10.4.txt
@@ -0,0 +1,8 @@
+Amostra	Brix
+1	18.3
+2	16.3
+3	18.2
+4	18.6
+5	17.8
+6	18.5
+7	18.1
diff --git a/data-raw/CamposEx3.1.10.5.txt b/data-raw/CamposEx3.1.10.5.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e814353e0b804c4653be4af1be57b5b45af89e4a
--- /dev/null
+++ b/data-raw/CamposEx3.1.10.5.txt
@@ -0,0 +1,25 @@
+Paciente	Antes	Depois
+1	83.5	80
+2	95.4	95
+3	80	81.5
+4	90.7	90
+5	87.6	83
+6	91.4	85.6
+7	103.8	90.4
+8	88.2	86
+9	75.4	77.2
+10	86.2	82.5
+11	93.5	90
+12	110	104.5
+13	70.4	72
+14	75.6	71.8
+15	85.2	80
+16	84	84.3
+17	96	91.5
+18	81	76
+19	77.3	80
+20	108.5	96
+21	97.5	95
+22	89	82.3
+23	93	88
+24	95	92
diff --git a/data-raw/CamposEx3.1.10.8.txt b/data-raw/CamposEx3.1.10.8.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b5b8dce0bb8d65050eaa8916abe837cfcf06afc1
--- /dev/null
+++ b/data-raw/CamposEx3.1.10.8.txt
@@ -0,0 +1,13 @@
+Casos	Gemeo1	Gemeo2
+1	0.72	0.43
+2	0.47	0.33
+3	0.51	0.49
+4	0.59	0.59
+5	0.97	0.85
+6	0.87	0.8
+7	0.36	0.4
+8	0.72	0.74
+9	0.65	0.62
+10	0.48	0.46
+11	0.93	0.7
+12	0.87	0.78
diff --git a/data-raw/CamposEx3.4.11.1.txt b/data-raw/CamposEx3.4.11.1.txt
new file mode 100644
index 0000000000000000000000000000000000000000..8b00dd1fda8471a2b77d7697e92aec1b67c71247
--- /dev/null
+++ b/data-raw/CamposEx3.4.11.1.txt
@@ -0,0 +1,9 @@
+Paciente	Antes	Depois
+1	118	127
+2	120	128
+3	128	136
+4	124	131
+5	130	135
+6	136	138
+7	128	125
+8	140	136
diff --git a/data/CamposEg3.1.9.1.rda b/data/CamposEg3.1.9.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..9d5eacb5993887e9490126a160c22b6e6a195cfa
Binary files /dev/null and b/data/CamposEg3.1.9.1.rda differ
diff --git a/data/CamposEg3.1.9.2.rda b/data/CamposEg3.1.9.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3fb8aa0b71f3d93359d492bd323c415765303b4c
Binary files /dev/null and b/data/CamposEg3.1.9.2.rda differ
diff --git a/data/CamposEg3.2.1.rda b/data/CamposEg3.2.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b450e32de3ae8cdd4491cb55f49fe630cca52dc0
Binary files /dev/null and b/data/CamposEg3.2.1.rda differ
diff --git a/data/CamposEg3.2.2.rda b/data/CamposEg3.2.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a4b73cb52a6707d0d1d5ece48247047468655ac4
Binary files /dev/null and b/data/CamposEg3.2.2.rda differ
diff --git a/data/CamposEg3.4.10.1.rda b/data/CamposEg3.4.10.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bc02cd79d574e3488e4998aad1bb0f81a1b6028c
Binary files /dev/null and b/data/CamposEg3.4.10.1.rda differ
diff --git a/data/CamposEg3.4.10.2.rda b/data/CamposEg3.4.10.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b196cbab24e6e7f35058046f7c5c1d61a58b0b7d
Binary files /dev/null and b/data/CamposEg3.4.10.2.rda differ
diff --git a/data/CamposEx3.1.10.3.rda b/data/CamposEx3.1.10.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..956ec7be7bfd2011af6871974604839f93a7e098
Binary files /dev/null and b/data/CamposEx3.1.10.3.rda differ
diff --git a/data/CamposEx3.1.10.4.rda b/data/CamposEx3.1.10.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e15bbf3cd1362c59a6e00a9b297041a245ba99a5
Binary files /dev/null and b/data/CamposEx3.1.10.4.rda differ
diff --git a/data/CamposEx3.1.10.5.rda b/data/CamposEx3.1.10.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..603bda858ca6622d689f519691eb5a185f4b2e42
Binary files /dev/null and b/data/CamposEx3.1.10.5.rda differ
diff --git a/data/CamposEx3.1.10.8.rda b/data/CamposEx3.1.10.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8525aeb4d67faae0e3a89c640456f146aa83a4b6
Binary files /dev/null and b/data/CamposEx3.1.10.8.rda differ
diff --git a/data/CamposEx3.4.11.1.rda b/data/CamposEx3.4.11.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4ad5907213e5a3172c75e9aafe08df0ef03a6344
Binary files /dev/null and b/data/CamposEx3.4.11.1.rda differ
diff --git a/man/CamposEg3.1.9.1.Rd b/man/CamposEg3.1.9.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..bc03955d4b6ff90026d0cff06bcb500002c0448f
--- /dev/null
+++ b/man/CamposEg3.1.9.1.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg3.1.9.1.R
+\name{CamposEg3.1.9.1}
+\alias{CamposEg3.1.9.1}
+\title{Eficiência de um Novo Herbicida}
+\format{Um \code{data.frame} com 10 observações e 3 variáveis, em
+     que
+
+\describe{
+
+\item{\code{Parcelas}}{ É a unidade na qua qual o tratamento é aplicado. }
+
+\item{\code{Controle}}{ Peso em g, de ervas daninhas no Grupo de Controle. }
+
+\item{\code{Tratada}}{  Peso em g, de ervas daninhas no Grupo que recebeu o novo herbicida. }
+
+}}
+\description{
+Teste para verificar a eficiência de um novo herbicida, no controle de ervas
+   daninhas. Ensaio realizado, considerando dez parcelas. Onde em parcela, metade foi tratada
+   e a outra metade deixada como controle.
+}
+\examples{
+
+library(lattice)
+
+data("CamposEg3.1.9.1")
+str(CamposEg3.1.9.1)
+
+# Verificando a eficiência do tratamento
+# H0 : θ == 0 vs Ha : θ < 0
+# Calculando Zi = Yi - Xi (Tratada(Y) - Controle(X))
+CamposEg3.1.9.1$Zi <- CamposEg3.1.9.1$Tratada - CamposEg3.1.9.1$Controle
+str(CamposEg3.1.9.1$Zi)
+
+# Definir o indicador Ai. 
+# Ai = (1 se Zi > 0 , 0 se Zi < 0)
+CamposEg3.1.9.1$Ai <-  ifelse( CamposEg3.1.9.1$Zi > 0, 1, 0)
+str(CamposEg3.1.9.1$Ai)
+
+# Intervalo de confiança para θ
+CAlfa <- pbinom(0.0547, 10, 0.50, lower.tail = FALSE) + 1
+CAlfa
+# Logo ao nível α == 0.0547, rejeitamos H0 se B <= CAlfa
+
+if (sum(CamposEg3.1.9.1$Ai) <= CAlfa) {
+ "Rejeitamos H0"
+} else {
+ "Aceitamos H0"
+}
+}
+\keyword{TODO}
+
diff --git a/man/CamposEg3.1.9.2.Rd b/man/CamposEg3.1.9.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..9efadf530ea2873135cb4c33e641dbbf091d474d
--- /dev/null
+++ b/man/CamposEg3.1.9.2.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg3.1.9.2.R
+\name{CamposEg3.1.9.2}
+\alias{CamposEg3.1.9.2}
+\title{Teste de Hipóteses em uma Variedade de Cana-de-Açúcar.}
+\format{Um \code{data.frame} com 9 observações e 2 variáveis, em que
+     
+
+\describe{
+
+\item{\code{Amostras}}{ Numero de Amostras. }
+
+\item{\code{Comprimento_medio}}{ Comprimento médio do terceiro internódio, em cm. }
+
+}}
+\description{
+Numa variedade de cana-de-açúcar, o comprimento médio do terceiro internódio 
+ é de 22 cm. Admitindo este como fator característico, e querendo averiguar se a cana de 
+ um determinado talhão pertence a esta variedade, foram tomadas nove amostras de seis colmos 
+ cada, obtendo-se os seguintes comprimentos médios.
+}
+\examples{
+library(lattice)
+
+data("CamposEg3.1.9.2")
+str(CamposEg3.1.9.2)
+
+# Verificando a eficiência do tratamento
+# H0 : θ == 22 vs Ha : θ > 22
+# Calculando ZiNovo = Zi - 22 (Compriento_medio - 22)
+CamposEg3.1.9.2$ZiNovo <- CamposEg3.1.9.2$Comprimento_medio - 22
+str(CamposEg3.1.9.2$ZiNovo)
+# Definir o indicador Ai. 
+# Ai = (1 se Zi > 0 , 0 se Zi < 0)
+CamposEg3.1.9.2$Ai <-  ifelse( CamposEg3.1.9.2$ZiNovo > 0, 1, 0)
+str(CamposEg3.1.9.2$Ai)
+
+# Intervalo de confiança para θ
+CAlfa <- pbinom(0.0195, 9, 0.50, lower.tail = FALSE) 
+CAlfa
+# Logo ao nível α == 0.0195, rejeitamos H0 se B > CAlfa
+
+if (sum(CamposEg3.1.9.2$Ai) > CAlfa) {
+  "Rejeitamos H0"
+} else {
+  "Aceitamos H0"
+}
+}
+\keyword{TODO}
+
diff --git a/man/CamposEg3.2.1.Rd b/man/CamposEg3.2.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..c031242c3f7017d1ff7a30871ca64a275fceb393
--- /dev/null
+++ b/man/CamposEg3.2.1.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg3.2.1.R
+\name{CamposEg3.2.1}
+\alias{CamposEg3.2.1}
+\title{Teste de Cox e Stuart em Precipitação de Janeiro, nos Últimos 20 anos.}
+\format{Um \code{data.frame} com 20 observações e 2 variáveis, em
+     que
+
+\describe{
+
+\item{\code{Ano}}{ Numero da amostra. }
+
+\item{\code{Precipitacao}}{ Precipitação de chuva, em mm. }
+
+}}
+\description{
+Verificação se a precipitação esta tendendo a aumentar ou diminuir nos últimos anos.
+}
+\examples{
+library(lattice)
+
+data("CamposEg3.2.1")
+str(CamposEg3.2.1)
+
+# Tomamos k = n / 2 , logo:
+k <- length(CamposEg3.2.1$Ano) / 2
+
+# Assim formamos os pares (Xi; Xk+i).
+Xi <-  CamposEg3.2.1$Precipitacao[1:10]
+Xki <- CamposEg3.2.1$Precipitacao[11:20]
+
+# Zi = Xki - Xi
+
+Zi <- Xki - Xi
+Zi
+# Definimos a variável indicadora:
+# Ai = (1 se Zi > 0) e (0 se Zi < 0)
+Ai <- ifelse(Zi > 0, 1, 0)
+str(Ai)
+
+# B = Soma de todos os Ai iguais a 1
+B <- sum(Ai)
+
+# Aplicando o teste bilateral.
+# H0 : θ = 0 vs Ha : θ != 0
+a1 <-  pbinom(4, k, 0.5)
+a2 <- 1 - pbinom(3, k, 0.5)
+if(2 * a1 < a2){
+  "Não rejeitamos H0"
+} else{
+  "Rejeitamos H0"
+}
+}
+\keyword{TODO}
+
diff --git a/man/CamposEg3.2.2.Rd b/man/CamposEg3.2.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..492d0a3dc6d1b75ee198061b9231e7abf2293170
--- /dev/null
+++ b/man/CamposEg3.2.2.Rd
@@ -0,0 +1,56 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg3.2.2.R
+\name{CamposEg3.2.2}
+\alias{CamposEg3.2.2}
+\title{Teste de Cox e Stuart em Porcentagem do Orçamento Aplicada no Setor de Educação, nos Últimos 17 anos.}
+\format{Um \code{data.frame} com 17 observações e 2 variáveis, em
+     que
+
+\describe{
+
+\item{\code{Ano}}{ Amostra dos ultimos 17 anos. }
+
+\item{\code{Porcentagem}}{ Porcentagem de orçamento de um Município, aplicada no Setor de Educação.  }
+
+}}
+\description{
+Verifique se o Setor de Educação do Município está sendo melhor amparado no período considerado.
+}
+\examples{
+
+ library(lattice)
+
+data("CamposEg3.2.2")
+str(CamposEg3.2.2)
+
+# Tomamos k = (n + 1) / 2 , logo:
+k <- (length(CamposEg3.2.2$Ano) -1) / 2
+
+# Assim formamos os pares (Xi; Xk+i).
+Xi <-  CamposEg3.2.2$Porcentagem[1:8]
+Xki <- CamposEg3.2.2$Porcentagem[10:17]
+
+# Zi = Xki - Xi
+
+Zi <- Xki - Xi
+Zi
+# Definimos a variável indicadora:
+# Ai = (1 se Zi > 0) e (0 se Zi < 0)
+Ai <- ifelse(Zi > 0, 1, 0)
+str(Ai)
+
+# B = Soma de todos os Ai iguais a 1
+B <- sum(Ai)
+
+# Aplicando o teste unilateral.
+# H0 : θ = 0 vs Ha : θ > 0
+a1 <-  pbinom(6, k, 0.5, lower.tail = FALSE)
+a2 <- 1 - pbinom(6, k, 0.5, lower.tail = FALSE)
+if(2 * a1 > a2){
+  "Não rejeitamos H0"
+} else{
+  "Rejeitamos H0"
+}
+}
+\keyword{TODO}
+
diff --git a/man/CamposEg3.4.10.1.Rd b/man/CamposEg3.4.10.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..66fd4cc2b526358fab4aa83dfddfc8c293eb2ea5
--- /dev/null
+++ b/man/CamposEg3.4.10.1.Rd
@@ -0,0 +1,37 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg3.4.10.1.R
+\name{CamposEg3.4.10.1}
+\alias{CamposEg3.4.10.1}
+\title{Prevalência de Oclusão Normal Segundo a Idade e o Sexo.}
+\format{Um \code{data.frame} com 11 observações e 3 variáveis, em
+     que
+\describe{
+
+\item{\code{Idade}}{ Idade da amostra. }
+
+\item{\code{Masculino}}{ Porcentagem de Oclusão Normal no sexo Masculino. }
+
+\item{\code{Feminino}}{  Porcentagem de Oclusão Normal no sexo Feminino.}
+
+}}
+\description{
+NOUER (1966), estudando a prevalência de oclusão normal 
+  segundo a idade e o sexo, com escolares do Grupo Barão do Rio Branco,
+  em Piracicaba, SP, obteve os seguintes resultados.
+}
+\examples{
+library(lattice)
+
+data("CamposEg3.4.10.1")
+str(CamposEg3.4.10.1)
+# A = CamposEg3.4.10.1$Masculino e B = CamposEg3.4.10.1$Feminino
+A <- CamposEg3.4.10.1$Masculino
+str(A)
+B <- CamposEg3.4.10.1$Feminino
+str(B)
+
+#  Teste de Wilcoxon
+wilcox.test(B, A, paired = TRUE)
+}
+\keyword{TODO}
+
diff --git a/man/CamposEg3.4.10.2.Rd b/man/CamposEg3.4.10.2.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..b61353c1d504a23bf46f334d42d2197d025b1026
--- /dev/null
+++ b/man/CamposEg3.4.10.2.Rd
@@ -0,0 +1,42 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEg3.4.10.2.R
+\name{CamposEg3.4.10.2}
+\alias{CamposEg3.4.10.2}
+\title{Variedade de Cana de Açúcar.}
+\format{Um \code{data.frame} com 10 observações e 3 variáveis, em
+     que
+
+\describe{
+
+\item{\code{Locais}}{ Amostra  }
+
+\item{\code{Variedade_A}}{ Média de produção, em (t/ha) }
+
+\item{\code{Variedade_B}}{ Média de produção, em (t/ha)}
+
+}}
+\description{
+Trabalhando-se com duas variedades de cana-de-açúcar, contatou-se que a 
+ variedade B produzia acima de 15% a mais do que a variedade A. Para a comprovação de
+ tal resultado, foram considerados as medias de produção (t/ha) das duas variedades, em
+ dez locais distintos.
+}
+\examples{
+
+ library(lattice)
+
+data("CamposEg3.4.10.2")
+str(CamposEg3.4.10.2)
+
+# Podemos considerar a produção da variedade A acrecidas de 15\% e testar com B.
+# A = Variedade_A * 1.15 e B = Variedade_B
+A <- CamposEg3.4.10.2$Variedade_A * 1.15
+str(A)
+B <- CamposEg3.4.10.2$Variedade_B 
+str(B)
+
+#  Teste de Wilcoxon
+wilcox.test(B, A, paired = T)
+}
+\keyword{TODO}
+
diff --git a/man/CamposEx3.1.10.3.Rd b/man/CamposEx3.1.10.3.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..9b5e5f9ed4d7abc26dce64ecb659cc856015c832
--- /dev/null
+++ b/man/CamposEx3.1.10.3.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx3.1.10.3.R
+\name{CamposEx3.1.10.3}
+\alias{CamposEx3.1.10.3}
+\title{Teste de Hipótese em um Novo Método a ser Implantado.}
+\format{Um \code{data.frame} com 8 observações e 3 variáveis, em que
+     
+
+\describe{
+
+\item{\code{Empregado}}{ Amostra }
+
+\item{\code{Antigo}}{ Numero médio de peças produzidas diariamente antes do treinamento. }
+
+\item{\code{Novo}}{  Numero médio de peças produzidas diariamente depois do treinamento.}
+
+}}
+\description{
+Uma firma submeteu oito se seus empregados a um treinamento intensivo sobre 
+um novo método a ser implantado, visando a um maior rendimento na produção.
+}
+\examples{
+ library(lattice)
+
+data("CamposEx3.1.10.3")
+str(CamposEx3.1.10.3)
+
+# Verificando a eficiência do treinamento
+# H0 : θ == 0 vs Ha : θ < 0
+# Calculando Zi = Yi - Xi (Novo(Y) - Antigo(X))
+CamposEx3.1.10.3$Zi <- CamposEx3.1.10.3$Novo - CamposEx3.1.10.3$Antigo
+str(CamposEx3.1.10.3$Zi)
+
+# Definir o indicador Ai. 
+# Ai = (1 se Zi > 0 , 0 se Zi < 0)
+CamposEx3.1.10.3$Ai <-  ifelse( CamposEx3.1.10.3$Zi > 0, 1, 0)
+str(CamposEx3.1.10.3$Ai)
+}
+\keyword{TODO}
+
diff --git a/man/CamposEx3.1.10.4.Rd b/man/CamposEx3.1.10.4.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..864d1cee271be3dafd52137fc838790e83f69812
--- /dev/null
+++ b/man/CamposEx3.1.10.4.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx3.1.10.4.R
+\name{CamposEx3.1.10.4}
+\alias{CamposEx3.1.10.4}
+\title{Teste de Hipótese para Começar o Corte de Cana.}
+\format{Um \code{data.frame} com 7 observações e 2 variáveis, em que
+     
+
+\describe{
+
+\item{\code{Amostra}}{ Numero da amostra. }
+
+\item{\code{Brix}}{ Quantidade de Brix. }
+
+}}
+\description{
+Uma usina de açúcar admite o brix acima de 18, para receber a cana dos 
+   fornecedores, para moagem. Da cana de um certo fornecedor, foram coletadas sete 
+   amostras.
+}
+\examples{
+library(lattice)
+
+data("CamposEx3.1.10.4")
+str(CamposEx3.1.10.4)
+# Verificando a quantidade de Brix
+# H0 : θ == 18 vs Ha : θ > 18
+# Calculando ZiNovo = Zi - 18 (Brix - 18)
+CamposEx3.1.10.4$ZiNovo <- CamposEx3.1.10.4$Brix - 18
+str(CamposEx3.1.10.4$ZiNovo)
+
+# Definir o indicador Ai. 
+# Ai = (1 se Zi > 0 , 0 se Zi < 0)
+CamposEx3.1.10.4$Ai <-  ifelse( CamposEx3.1.10.4$ZiNovo > 0, 1, 0)
+str(CamposEx3.1.10.4$Ai)
+}
+\keyword{TODO}
+
diff --git a/man/CamposEx3.1.10.5.Rd b/man/CamposEx3.1.10.5.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..0287333e7e999712eeaab0de33cfd2ebdb59faf3
--- /dev/null
+++ b/man/CamposEx3.1.10.5.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx3.1.10.5.R
+\name{CamposEx3.1.10.5}
+\alias{CamposEx3.1.10.5}
+\title{Teste de Hipóteses em uma Dieta para Emagrecimento.}
+\format{Um \code{data.frame} com 24 observações e 3 variáveis, em
+     que
+
+\describe{
+
+\item{\code{Paciente}}{ Numero da amostra. }
+
+\item{\code{Antes}}{ Peso em Kg, antes da dieta. }
+
+\item{\code{Depois}}{ Peso em Kg, depois da dieta. }
+
+}}
+\description{
+Vinte e quatro pacientes foram submetidos a uma dieta para emagrecimento.
+}
+\examples{
+
+ library(lattice)
+
+data("CamposEx3.1.10.5")
+str(CamposEx3.1.10.5)
+
+# Verificando a eficiência da dieta
+# H0 : θ == 0 vs Ha : θ > 0
+# Calculando Zi = Yi - Xi (Depois(Y) - Antes(X))
+CamposEx3.1.10.5$Zi <- CamposEx3.1.10.5$Depois - CamposEx3.1.10.5$Antes
+str(CamposEx3.1.10.5$Zi)
+
+# Definir o indicador Ai. 
+# Ai = (1 se Zi > 0 , 0 se Zi < 0)
+CamposEx3.1.10.5$Ai <-  ifelse( CamposEx3.1.10.5$Zi > 0, 1, 0)
+str(CamposEx3.1.10.3$Ai)
+}
+\keyword{TODO}
+
diff --git a/man/CamposEx3.1.10.8.Rd b/man/CamposEx3.1.10.8.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..0a8bc637025df2fa86e8a14c22788086e482cd6f
--- /dev/null
+++ b/man/CamposEx3.1.10.8.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx3.1.10.8.R
+\name{CamposEx3.1.10.8}
+\alias{CamposEx3.1.10.8}
+\title{Teste de Hipótese sobre Desenvolvimento de Gêmeos no Primeiro Mês.}
+\format{Um \code{data.frame} com 12 observações e 3 variáveis, em
+     que
+
+\describe{
+
+\item{\code{Casos}}{ Amostra de gêmeos. }
+
+\item{\code{Gemeo1}}{ Peso, em Kg, aos 30 dias de idade. }
+
+\item{\code{Gemeo2}}{  Peso, em Kg, aos 30 dias de idade. }
+
+}}
+\description{
+Foram considerados doze casos de irmãos Gêmeos a fim de verificar se é 
+   valido admitir que o primeiro a nascer desenvolve-se mais no primeiro mês.
+}
+\examples{
+
+ library(lattice)
+
+data("CamposEx3.1.10.8")
+str(CamposEx3.1.10.8)
+
+# Verificando a hipotese que o primeiro gêmeo ao nascer desenvolve-se mais no primeiro mês.
+# H0 : θ == 0 vs Ha : θ > 0
+# Calculando Zi = Yi - Xi (Gemeo2(Y) - Gemeo1(X))
+CamposEx3.1.10.8$Zi <- CamposEx3.1.10.8$Gemeo2 - CamposEx3.1.10.8$Gemeo1
+str(CamposEx3.1.10.8$Zi)
+
+# Definir o indicador Ai. 
+# Ai = (1 se Zi > 0 , 0 se Zi < 0)
+CamposEx3.1.10.8$Ai <-  ifelse( CamposEx3.1.10.8$Zi > 0, 1, 0)
+str(CamposEx3.1.10.8$Ai)
+}
+\keyword{TODO}
+
diff --git a/man/CamposEx3.4.11.1.Rd b/man/CamposEx3.4.11.1.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..2fc8e11166f5fd9311232d3b1a5d8706038b306b
--- /dev/null
+++ b/man/CamposEx3.4.11.1.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/CamposEx3.4.11.1.R
+\name{CamposEx3.4.11.1}
+\alias{CamposEx3.4.11.1}
+\title{Medidas de Pressão Sanguínea.}
+\format{Um \code{data.frame} com 8 observações e 3 variáveis, em que
+     
+
+\describe{
+
+\item{\code{Paciente}}{ Grupo de oito indivíduos. }
+
+\item{\code{Antes}}{Pressão sanguínea, em milímetros de Hg, antes do estímulo.  }
+
+\item{\code{Depois}}{ Pressão sanguínea, em milímetros de Hg, depois do estímulo. }
+
+}}
+\description{
+Um grupo de oito indivíduos se submete a um estimulo. A tabela que se segue 
+ apresenta as medidas de pressão sanguínea, me Milímetros de Hg, antes e depois do 
+ estimulo. Suportam estes dados, a hipótese de que os estímulos aumentam a pressão sanguínea?
+}
+\examples{
+
+ library(lattice)
+
+data("CamposEx3.4.11.1")
+str(CamposEx3.4.11.1)
+
+# A = CamposEx3.4.11.1$Antes e B = CamposEx3.4.11.1$Depois
+A <- CamposEx3.4.11.1$Antes
+str(A)
+B <- CamposEx3.4.11.1$Depois
+str(B)
+
+#  Teste de Wilcoxon
+wilcox.test(B, A, paired = T)
+}
+\keyword{TODOS}
+