From b7d46f5c43138623ee0fc58ab242afc01d5a511d Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Tue, 30 Aug 2016 18:55:05 -0300
Subject: [PATCH] Adiciona Tabela 5 (AndradeTb2.6).

---
 R/AndradeTb2.6.R          |  44 ++++++++++++++++++++++++++++++++
 data-raw/AndradeTb2.6.txt |  51 +++++++++++++++++++++++++++++++++++++
 data/AndradeTb2.6.rda     | Bin 0 -> 246 bytes
 man/AndradeEg2.1.Rd       |   4 +--
 man/AndradeTb1.2.Rd       |   2 +-
 man/AndradeTb2.1.Rd       |   2 +-
 man/AndradeTb2.6.Rd       |  52 ++++++++++++++++++++++++++++++++++++++
 7 files changed, 151 insertions(+), 4 deletions(-)
 create mode 100644 R/AndradeTb2.6.R
 create mode 100644 data-raw/AndradeTb2.6.txt
 create mode 100644 data/AndradeTb2.6.rda
 create mode 100644 man/AndradeTb2.6.Rd

diff --git a/R/AndradeTb2.6.R b/R/AndradeTb2.6.R
new file mode 100644
index 00000000..26854b4b
--- /dev/null
+++ b/R/AndradeTb2.6.R
@@ -0,0 +1,44 @@
+#' @name AndradeTb2.6
+#' @title Experimento de Cultura de Feijão de Vagem
+#' @description Experimento no qual um pesquisador está procurando
+#'     verificar se existe associação entre hábito de crescimento e
+#'     porte na cultura de feijão de vagem.
+#' @format Um \code{data.frame} com 50 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
+#'     crescimento, sendo: 3 = "indeterminado trepador"; 4 =
+#'     "indeterminado prostrado".}
+#'
+#' \item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
+#'     sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".}
+#'
+#' }
+#' @keywords AAS
+#' @source Estatística para as ciências agrárias e biológicas: com
+#'     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+#'     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+#'     2.6, pág. 74)
+#' @examples
+#'
+#' library(lattice)
+#' library(plyr)
+#'
+#' data(AndradeTb2.6)
+#' str(AndradeTb2.6)
+#'
+#' tb <- xtabs(~H+P, data= AndradeTb2.6)
+#'
+#' barplot(t(tb), names.arg = c("Prostrado", "Trepador"),
+#'         beside=TRUE,
+#'         space = c(0.2,1),
+#'         col = c("darkturquoise","lawngreen","blue"),
+#'         ylim = c(0, 30))
+#'
+#' legend("topleft",
+#'        legend = c("Eb", "Pr", "Tr"),
+#'        col = c("darkturquoise", "lawngreen","blue"),
+#'        pch = 8)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.6.txt b/data-raw/AndradeTb2.6.txt
new file mode 100644
index 00000000..1f4c3727
--- /dev/null
+++ b/data-raw/AndradeTb2.6.txt
@@ -0,0 +1,51 @@
+H	P
+4	Tr
+4	EB
+3	Pr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+3	EB
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+3	Pr
+3	Pr
+3	EB
+4	EB
+4	EB
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Tr
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+4	Tr
+4	Pr
+4	Tr
+4	Pr
+3	Pr
+4	Tr
+3	Pr
+4	Pr
+3	Pr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+3	Pr
+3	Pr
+4	Tr
+4	Tr
+4	Tr
+4	Tr
+3	Pr
+4	Tr
diff --git a/data/AndradeTb2.6.rda b/data/AndradeTb2.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..328b1aabe7b0cbf1cf2bd671dca16c8c8c114e00
GIT binary patch
literal 246
zcmZ>Y%CIzaj8qGbT)Dl6i-9rW|B?S@9t;eOvJ7SpArAKJa~m8O7#JBCH!ysbFm+#Q
zXq32cQG&9`j9d|+c}rF<pTNMtz`*1x^5qf(vqMS-!zE8QfzV8qr5nXIBrItE%=$#r
z%~4P+DN)UHw|A+i>#bMXfgPb*sZEJ48O#R@j(h&TSb8%^$Y7(&;}EXJe4mc{7CJed
zxy01gzVo`B$r;XtA(N6E)tH*31k8@92&Y6emfU0&>^yXPz0lj5O{c3KO{n$K6}#8e
z*k-&hSID08&?C7Boy=hAd$y)Z?JVoM`hq?Egt)x@A4sz(DF4_!N%K%ktM8tK004eV
BUElx!

literal 0
HcmV?d00001

diff --git a/man/AndradeEg2.1.Rd b/man/AndradeEg2.1.Rd
index 2aa24d61..92114959 100644
--- a/man/AndradeEg2.1.Rd
+++ b/man/AndradeEg2.1.Rd
@@ -16,8 +16,8 @@
 \source{
 Estatística para as ciências agrárias e biológicas: com
     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
-    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.1, pág. 37)
+    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Exemplo
+    2.1, pág. 60)
 }
 \description{
 Estudo do tipo de relacionamento entre a taxa de
diff --git a/man/AndradeTb1.2.Rd b/man/AndradeTb1.2.Rd
index 1d34de80..3b85fb8d 100644
--- a/man/AndradeTb1.2.Rd
+++ b/man/AndradeTb1.2.Rd
@@ -20,7 +20,7 @@
 Estatística para as ciências agrárias e biológicas: com
     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.1, pág. 37)
+    1.2, pág. 40)
 }
 \description{
 Experimento que tem como objetivo verificar o
diff --git a/man/AndradeTb2.1.Rd b/man/AndradeTb2.1.Rd
index e9747606..ee57fc30 100644
--- a/man/AndradeTb2.1.Rd
+++ b/man/AndradeTb2.1.Rd
@@ -31,7 +31,7 @@
 Estatística para as ciências agrárias e biológicas: com
     noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
     2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
-    1.1, pág. 37)
+    2.1, pág. 62)
 }
 \description{
 Um pesquisador instalou um experimento, na região de
diff --git a/man/AndradeTb2.6.Rd b/man/AndradeTb2.6.Rd
new file mode 100644
index 00000000..4c192474
--- /dev/null
+++ b/man/AndradeTb2.6.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.6.R
+\name{AndradeTb2.6}
+\alias{AndradeTb2.6}
+\title{Experimento de Cultura de Feijão de Vagem}
+\format{Um \code{data.frame} com 50 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{H}}{Fator de 2 níveis qualitativos que são os hábitos de
+    crescimento, sendo: 3 = "indeterminado trepador"; 4 =
+    "indeterminado prostrado".}
+
+\item{\code{P}}{Fator de 3 níveis qualitativos que são os portes,
+    sendo: Tr = "trepador"; EB = "ereto na base"; Pr = "prostrado".}
+
+}}
+\source{
+Estatística para as ciências agrárias e biológicas: com
+    noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+    2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+    2.6, pág. 74)
+}
+\description{
+Experimento no qual um pesquisador está procurando
+    verificar se existe associação entre hábito de crescimento e
+    porte na cultura de feijão de vagem.
+}
+\examples{
+
+library(lattice)
+library(plyr)
+
+data(AndradeTb2.6)
+str(AndradeTb2.6)
+
+tb <- xtabs(~H+P, data= AndradeTb2.6)
+
+barplot(t(tb), names.arg = c("Prostrado", "Trepador"),
+        beside=TRUE,
+        space = c(0.2,1),
+        col = c("darkturquoise","lawngreen","blue"),
+        ylim = c(0, 30))
+
+legend("topleft",
+       legend = c("Eb", "Pr", "Tr"),
+       col = c("darkturquoise", "lawngreen","blue"),
+       pch = 8)
+
+}
+\keyword{AAS}
+
-- 
GitLab