From ea40caa70e81d491cdaf581308af01382e38504d Mon Sep 17 00:00:00 2001
From: Guilherme Hathy <guilhermehathy@hotmail.com>
Date: Wed, 5 Oct 2016 18:36:13 -0300
Subject: [PATCH] Capitulo 3

---
 R/CamposEg3.1.9.1.R           |  48 +++++++++++++++++++++++++++++
 R/CamposEg3.1.9.2.R           |  45 +++++++++++++++++++++++++++
 R/CamposEg3.2.1.R             |  50 ++++++++++++++++++++++++++++++
 R/CamposEg3.2.2.R             |  50 ++++++++++++++++++++++++++++++
 R/CamposEg3.4.10.1.R          |  31 +++++++++++++++++++
 R/CamposEg3.4.10.2.R          |  36 ++++++++++++++++++++++
 R/CamposEx3.1.10.3.R          |  35 +++++++++++++++++++++
 R/CamposEx3.1.10.4.R          |  34 +++++++++++++++++++++
 R/CamposEx3.1.10.5.R          |  36 ++++++++++++++++++++++
 R/CamposEx3.1.10.8.R          |  37 ++++++++++++++++++++++
 R/CamposEx3.4.11.1.R          |  34 +++++++++++++++++++++
 data-raw/CamposEg3.1.9.1.txt  |  11 +++++++
 data-raw/CamposEg3.1.9.2.txt  |  10 ++++++
 data-raw/CamposEg3.2.1.txt    |  21 +++++++++++++
 data-raw/CamposEg3.2.2.txt    |  18 +++++++++++
 data-raw/CamposEg3.4.10.1.txt |  12 ++++++++
 data-raw/CamposEg3.4.10.2.txt |  11 +++++++
 data-raw/CamposEx3.1.10.3.txt |   9 ++++++
 data-raw/CamposEx3.1.10.4.txt |   8 +++++
 data-raw/CamposEx3.1.10.5.txt |  25 +++++++++++++++
 data-raw/CamposEx3.1.10.8.txt |  13 ++++++++
 data-raw/CamposEx3.4.11.1.txt |   9 ++++++
 data/CamposEg3.1.9.1.rda      | Bin 0 -> 313 bytes
 data/CamposEg3.1.9.2.rda      | Bin 0 -> 251 bytes
 data/CamposEg3.2.1.rda        | Bin 0 -> 349 bytes
 data/CamposEg3.2.2.rda        | Bin 0 -> 265 bytes
 data/CamposEg3.4.10.1.rda     | Bin 0 -> 292 bytes
 data/CamposEg3.4.10.2.rda     | Bin 0 -> 316 bytes
 data/CamposEx3.1.10.3.rda     | Bin 0 -> 209 bytes
 data/CamposEx3.1.10.4.rda     | Bin 0 -> 224 bytes
 data/CamposEx3.1.10.5.rda     | Bin 0 -> 384 bytes
 data/CamposEx3.1.10.8.rda     | Bin 0 -> 326 bytes
 data/CamposEx3.4.11.1.rda     | Bin 0 -> 219 bytes
 man/CamposEg3.1.9.1.Rd        |  53 ++++++++++++++++++++++++++++++++
 man/CamposEg3.1.9.2.Rd        |  50 ++++++++++++++++++++++++++++++
 man/CamposEg3.2.1.Rd          |  55 +++++++++++++++++++++++++++++++++
 man/CamposEg3.2.2.Rd          |  56 ++++++++++++++++++++++++++++++++++
 man/CamposEg3.4.10.1.Rd       |  37 ++++++++++++++++++++++
 man/CamposEg3.4.10.2.Rd       |  42 +++++++++++++++++++++++++
 man/CamposEx3.1.10.3.Rd       |  40 ++++++++++++++++++++++++
 man/CamposEx3.1.10.4.Rd       |  38 +++++++++++++++++++++++
 man/CamposEx3.1.10.5.Rd       |  40 ++++++++++++++++++++++++
 man/CamposEx3.1.10.8.Rd       |  41 +++++++++++++++++++++++++
 man/CamposEx3.4.11.1.Rd       |  40 ++++++++++++++++++++++++
 44 files changed, 1075 insertions(+)
 create mode 100644 R/CamposEg3.1.9.1.R
 create mode 100644 R/CamposEg3.1.9.2.R
 create mode 100644 R/CamposEg3.2.1.R
 create mode 100644 R/CamposEg3.2.2.R
 create mode 100644 R/CamposEg3.4.10.1.R
 create mode 100644 R/CamposEg3.4.10.2.R
 create mode 100644 R/CamposEx3.1.10.3.R
 create mode 100644 R/CamposEx3.1.10.4.R
 create mode 100644 R/CamposEx3.1.10.5.R
 create mode 100644 R/CamposEx3.1.10.8.R
 create mode 100644 R/CamposEx3.4.11.1.R
 create mode 100644 data-raw/CamposEg3.1.9.1.txt
 create mode 100644 data-raw/CamposEg3.1.9.2.txt
 create mode 100644 data-raw/CamposEg3.2.1.txt
 create mode 100644 data-raw/CamposEg3.2.2.txt
 create mode 100644 data-raw/CamposEg3.4.10.1.txt
 create mode 100644 data-raw/CamposEg3.4.10.2.txt
 create mode 100644 data-raw/CamposEx3.1.10.3.txt
 create mode 100644 data-raw/CamposEx3.1.10.4.txt
 create mode 100644 data-raw/CamposEx3.1.10.5.txt
 create mode 100644 data-raw/CamposEx3.1.10.8.txt
 create mode 100644 data-raw/CamposEx3.4.11.1.txt
 create mode 100644 data/CamposEg3.1.9.1.rda
 create mode 100644 data/CamposEg3.1.9.2.rda
 create mode 100644 data/CamposEg3.2.1.rda
 create mode 100644 data/CamposEg3.2.2.rda
 create mode 100644 data/CamposEg3.4.10.1.rda
 create mode 100644 data/CamposEg3.4.10.2.rda
 create mode 100644 data/CamposEx3.1.10.3.rda
 create mode 100644 data/CamposEx3.1.10.4.rda
 create mode 100644 data/CamposEx3.1.10.5.rda
 create mode 100644 data/CamposEx3.1.10.8.rda
 create mode 100644 data/CamposEx3.4.11.1.rda
 create mode 100644 man/CamposEg3.1.9.1.Rd
 create mode 100644 man/CamposEg3.1.9.2.Rd
 create mode 100644 man/CamposEg3.2.1.Rd
 create mode 100644 man/CamposEg3.2.2.Rd
 create mode 100644 man/CamposEg3.4.10.1.Rd
 create mode 100644 man/CamposEg3.4.10.2.Rd
 create mode 100644 man/CamposEx3.1.10.3.Rd
 create mode 100644 man/CamposEx3.1.10.4.Rd
 create mode 100644 man/CamposEx3.1.10.5.Rd
 create mode 100644 man/CamposEx3.1.10.8.Rd
 create mode 100644 man/CamposEx3.4.11.1.Rd

diff --git a/R/CamposEg3.1.9.1.R b/R/CamposEg3.1.9.1.R
new file mode 100644
index 00000000..39479037
--- /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 00000000..ed8b2ae4
--- /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 00000000..eb3546f0
--- /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 00000000..61da345f
--- /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 00000000..7546061a
--- /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 00000000..0a67fbbb
--- /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 00000000..d83eeabe
--- /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 00000000..da515371
--- /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 00000000..e2c6080d
--- /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 00000000..498bc4d6
--- /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 00000000..47fa4638
--- /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 00000000..2f3be8d2
--- /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 00000000..6f12e2bd
--- /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 00000000..468f9083
--- /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 00000000..bcb7f643
--- /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 00000000..68317d4e
--- /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 00000000..b7085e3f
--- /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 00000000..71408da9
--- /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 00000000..f81fc03a
--- /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 00000000..e814353e
--- /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 00000000..b5b8dce0
--- /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 00000000..8b00dd1f
--- /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
GIT binary patch
literal 313
zcmZ>Y%CIzaj8qGbJfzZEz`!u)|G)p=PcSgBS}6F5#gyt#zq7!Bfx&>0#e;!?jX{Bt
zaRb9QBPmy&SygI{3rsGU@CV2(U{>?jP@1>otF5!!JYU6y6FUyF&5~j`WFRzamX?v+
z!d_pVULJw7&Q}bjGGEM+s(JKlsV7s&dO_ofMJpuyxE}i)Vi#p)u>Bx$L?JZ(3Ik(d
zV5pukyHL_CHRZ$V85=J5Oqh|?oZ(<SS?+_vL`fFux&V&{p3LmCa=7;z=T`;$w_H9S
z-f7Zo#mskQ>8$6Dzt4Oq{GIgC@7>46d|B3Fr6LIqSJFd@^geSgm904;wdCebITf!v
z?VJjB2i|D9v#V9Gt-4UR=XvelJjaVKd|lbJ+cyezbaoqfwWP@;@7b;WhS8`@m+^1@
T^M6WW56e}8TRC}@Ji-|O*lv17

literal 0
HcmV?d00001

diff --git a/data/CamposEg3.1.9.2.rda b/data/CamposEg3.1.9.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3fb8aa0b71f3d93359d492bd323c415765303b4c
GIT binary patch
literal 251
zcmZ>Y%CIzaj8qGb6gOjTWMHWK|K|Va7YYoF)(i4j1RT~cztiBrz+k|^z`(}PxPf6?
zqOj(QTxDgSHpPVt&MK=ZODt${>$o+;mxn1~rilT^$%aWT^Cm7}009%jl4oKZDKjHZ
zFIk{gr+6}S!h_u$tj{$>IG61e6%hBVKh)6}+9|Qga?1CnHEoG4RZ|Zc+J0p5n0<<0
zooAxqgx)JLES1UUXSeTVnP6q$y*`N}Wcur9**2XLwR0k0e2WdcxjiF(JB1}Ixcy}B
z5$#pe92Pc8#hqr`X7{1_C%<-K_qvY0%Ufl(F-{k`I(0#su=^he1^c6SCi;n}u%2yr
G-~a$-%w?ni

literal 0
HcmV?d00001

diff --git a/data/CamposEg3.2.1.rda b/data/CamposEg3.2.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b450e32de3ae8cdd4491cb55f49fe630cca52dc0
GIT binary patch
literal 349
zcmZ>Y%CIzaj8qGb{J2HOhk;>X{r~^}|1>rzS}^5ZD9ro6{Lcg@#{-=ljtUL}Yz$2*
zJWPxm7``P*&02Ov*@$!51(qWxJA0KGOniE>63v=&6hxNIYe`D*56GOrz`!e&xqyLz
zfgx$xlFJtw8-&#w8;vA{eT_0soJde}uvIJU(A*)YY%`_H;eeC_UquxYXUD`&<Cr;<
zS{Yv{*F?4c{=JC7A$8&7qjwH)%4j&cdNSThQ1aju@w7Sh;718FM}Fpl8xE5rYbDRJ
zDR^%wRkf9lI1o0ww*2PylNa_iY*?#(Wd7;gVCzY(8NU|Go;JS9s;p}>^?{LtZt4`@
zXgibBii`((5_jaq_}tw3dskT91x~#$tqbzxua?@~^JFL~UHIgs>`U_i``CQTqrD0r
z56wBjYGu0ixW=Ac+U^e)n|K(gZ9By9=Ck7U#CdlLwmi_kBQ0=qj)DHia+Tm#PJU^p
GBL@J`6qMEg

literal 0
HcmV?d00001

diff --git a/data/CamposEg3.2.2.rda b/data/CamposEg3.2.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..a4b73cb52a6707d0d1d5ece48247047468655ac4
GIT binary patch
literal 265
zcmZ>Y%CIzaj8qGbwA_=x#=tPQ{^|e!FBljYe}Bkh32@MFztiBrz+k|@#=y|PxPjqX
zipi{5ZL@eyE-?G@N@b*&$Sqv{(ox9$)x2f>Dqk+EBs56$xN&wcOmy{?5N7Z-U|<jy
zW^m@(B<LfWA?A2!TY{ZJwv)7wWXr9^oR>B=FPixC`>6vh+s+AZcVP)n6r0=d<dM<=
zvssQ0O=Pb)v577D*xjA$#Imqc_g%3=%^~;iwT^w>O%wLt&{CVXL1E&)s}^aTUZ(a-
zXTAMAFE;x37E@+H@tZd{FYIJwI3JxDzIUqES2m`1SN3q+NN8Ry+v^v@FEf{eqoB)c
Xid@*&mpyey?@aU)QQ^y%U~B*YK^|;M

literal 0
HcmV?d00001

diff --git a/data/CamposEg3.4.10.1.rda b/data/CamposEg3.4.10.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..bc02cd79d574e3488e4998aad1bb0f81a1b6028c
GIT binary patch
literal 292
zcmZ>Y%CIzaj8qGbJe0j6oq=IT{hNQ)9-;MrYa0BO1RV62-)nGSU@+idU|?fn+`w?n
zAX6#h;!6_-#syLgQVbb#TwGrRxA+>R9Lb!eklDd2$>z(}xY)sCQI_(R%Zjg<-B&JO
zVZu<=_=;DGnRR;7(`)%AH`gRL^RYHhofXp{dHJShLrJObtS7qhwMq<XQ6@Sw75y#<
z7Tj0W(43IK*kolN=Ag!(xg=vthuNJ3zuQ7#WsW+!(eGGRE))J$@78sC;+7sCH_u{C
z$2X~O7w%cd)0Lc@aJw+Mv?es}I&VbP`de3&e@y2$fB7I}iislY^SwtbZNF@MbSphW
yXD-jG%4=yMCjP>29R(S8dbi9x!QgvrtKpVK5zOBk67nCt^H|O$B;i}i^8f%Y9(Tw9

literal 0
HcmV?d00001

diff --git a/data/CamposEg3.4.10.2.rda b/data/CamposEg3.4.10.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b196cbab24e6e7f35058046f7c5c1d61a58b0b7d
GIT binary patch
literal 316
zcmZ>Y%CIzaj8qGb?39vsW?-08|NZ}e4+aO;8isln`w#Dz-)V4Q;4pAxU|?fVaA4tN
z+`#a4kx-|JN0s^tTL&rL6;;hw*k)DDTQ+}{Nv^GMfK#yYC6g+D&jma)87@08NE%8R
z8f32WnPqa>!6<`)!N`Pxfk93-`NvUd7L6v4Rb5vmGhMZi=nA*uoS2}nJKzc<XZ@i>
z27`5)wF?+Iu9%BtGEF>ltjUXO!6LQt#Y{^%GbRK&tcc+76b)FAFsXy#OyHuKr}P3V
z6izn%4tc()$s<^+^J?rx?|e2jqobj2TYIwwkC(=rTdZi+ku0Kr>A;*rkIo#+HsSlL
z-T7bqq?P*-o5W`wQ*Tuio?V>N7s__xchbS84{z6%-kc_wzHJGwrNSG{)iO5&OzxIG
XY5Oc{uft(~^v*;-5fvr3_6r99t-gQ8

literal 0
HcmV?d00001

diff --git a/data/CamposEx3.1.10.3.rda b/data/CamposEx3.1.10.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..956ec7be7bfd2011af6871974604839f93a7e098
GIT binary patch
literal 209
zcmZ>Y%CIzaj8qGbtWBxmWnh?4f8hW3zegAtD;V?`1swF3-#y^Kz~H!mp^Mko*Ho_M
ztbeett$>t?Nd~XPDV9mgW~G>1xNt#=!6@Ydvy)${@JF|r6CQm+f?_Vm9G=a(a#CB(
zVOoX!v1JDHQdZ2}8ahX8+sC4I0d8ToHrY$2RVR;3X)tmyFtTJ36l`pG9ej+z&dtO$
zG}-@zgWqHK+9_+N-nbpz@VWkeK*m88<I64OkD1;C+<AK9*-FRr7j|(k3pn2N`tKP5
R{YURSmU9X5ujy}G001psSz`bI

literal 0
HcmV?d00001

diff --git a/data/CamposEx3.1.10.4.rda b/data/CamposEx3.1.10.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e15bbf3cd1362c59a6e00a9b297041a245ba99a5
GIT binary patch
literal 224
zcmZ>Y%CIzaj8qGbJZH3X6$3-*|0n-9dnhn4)-cqu2sr4g-#OsGz+k|@#-O-?VcUsD
zwdG4LJACEkm0bCX*?on{=MY|(6v0jYPCP6JgoQbm3Arqsz_@^cv5`SO%1|I!R!^44
zOz_IW!wc2abX61fzY|%+RHe83&JG4v!@|Cq9!5<fod$CM_!RFkvbb(N(dMaHF41*1
zuhb~`9;+jV;S!0kSyH9blFz;S{USI2t%^o_|9-uB$|2ux*>$BUOGG@b(OWTTlB$$<
g?gqw53s0YDP;g3E`}3IekKL0r54E%vPCXj{08klM-v9sr

literal 0
HcmV?d00001

diff --git a/data/CamposEx3.1.10.5.rda b/data/CamposEx3.1.10.5.rda
new file mode 100644
index 0000000000000000000000000000000000000000..603bda858ca6622d689f519691eb5a185f4b2e42
GIT binary patch
literal 384
zcmZ>Y%CIzaj8qGbtd9Sez`)4)|NH;{{|`7YRx#wU)c?p=zjMHWg~Pys#et1M!O?+(
zaRZ~8h?I+<$zR8ny}tGVnN!aC@G>Q^oP1?uYii4@c-Ys#S#jA+NrQ&W1w3lKMhT3}
zj!K?PhRhC<44Dfq7-cXpu=VsWQ{H(-=B5i*>-5;{_bG=AXZ$!nDSC~tTY`X`r-fo@
zxOj?=%`5SRlYPGOc&z#zXB@F^L;j)Sd7Ixvmdc%wP2Mztk%ujL9V268XL!mQ;pI*<
zybjEkX#KQbkSQj&+(N3O#oW+BF(A>hvE#PW%q89W6Ic7FB?Oeskc};QclXWrsgKrt
zsWFtWySMk0xY4?dwEed~@ZCAmIcHIjnkvVHV~;o_o?N~A`_8VbCF{Pd-L@=+gXccG
z!YtuObsElp9&9*sBGuW_Vet``#A*K*88HOPeJIiPT58W3QOUQ|*r0!%PPglf^_8lP
p@$<8%ZmQYZQOl_x{ftK>(C)6%l+eS$yh6_Z#fw}m0w#b$8~~a~pR@n~

literal 0
HcmV?d00001

diff --git a/data/CamposEx3.1.10.8.rda b/data/CamposEx3.1.10.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8525aeb4d67faae0e3a89c640456f146aa83a4b6
GIT binary patch
literal 326
zcmZ>Y%CIzaj8qGbJZ%;k#=tP||NsC0eHa@YE1dco3|#ct|6FilXfWVlWN?sRV_N<9
zRXgJbhHoiKiY7-cFfd5*GA?#&V0JjO-~xk7@K;|co8^lbGA=NH0pkLXl`Ew(E-;*2
z*1*8PxU8pvm-&kAs;YJ&jj(iwRg)5KvKTtN6Hqan5~4lZdm_u<jkPZrm8L0+vNUn!
zXc>7ewRtJZqScg>psilQ#MSq23iq{J4!L_O-NmNKvS`Jwdc6JFb)o%7Z#~}1H}~SB
zz-=ejZFOLI_<lv=k+?597yVO(g=X=IJd!%hFPb3BAot+NCMy|@4!467GFNDtA7NwI
zv1f&MBtw#^u#;ng%Jsw!&o_>YYdAYnLm0j5eQVZj^wm%7VGYgv9hqf+dav7*{X2pz
d4r-_xbv*ItFql_)^$_!a@gi4?fC->*0|1i3f&Bmg

literal 0
HcmV?d00001

diff --git a/data/CamposEx3.4.11.1.rda b/data/CamposEx3.4.11.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..4ad5907213e5a3172c75e9aafe08df0ef03a6344
GIT binary patch
literal 219
zcmZ>Y%CIzaj8qGbG=BNZk%6J3{=olF9t;eOHVk?U0S@}=caPn;!r-`pVcUhSDhFW(
zH3r`WS%wn+j;{8ea?4UBB^Vgo+~)Okwyb<LZ-u0ZlnJvhF9So$S2o5utr-v6c=T3C
zyI4+eWO)CgwV_MyzmDC~Or<HQ`qOS7G_WdFiJf`CDnwXuxlVZF)dmxWc7{evK~@%5
z1_y?F9SocXLBDNZc72+3>Cetziw_(>^QUc2uJD>r(ZCHiGJh>(YwL>hxM+VnC4B0M
alU|axeD@muwCF#2=dqkih^^M%LjeE-uvftV

literal 0
HcmV?d00001

diff --git a/man/CamposEg3.1.9.1.Rd b/man/CamposEg3.1.9.1.Rd
new file mode 100644
index 00000000..bc03955d
--- /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 00000000..9efadf53
--- /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 00000000..c031242c
--- /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 00000000..492d0a3d
--- /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 00000000..66fd4cc2
--- /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 00000000..b61353c1
--- /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 00000000..9b5e5f9e
--- /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 00000000..864d1cee
--- /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 00000000..0287333e
--- /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 00000000..0a8bc637
--- /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 00000000..2fc8e111
--- /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}
+
-- 
GitLab