From 491bf6bfceae37383af4a98c6ad6c56b52534f28 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Tue, 6 Sep 2016 16:02:26 -0300
Subject: [PATCH] Adiciona Tabela 17 (AndradeTb2.24).

---
 R/AndradeTb2.24.R          |  40 +++++++++++++++++++++++++++++++
 data-raw/AndradeTb2.24.txt |   7 ++++++
 data/AndradeTb2.24.rda     | Bin 0 -> 266 bytes
 man/AndradeTb2.24.Rd       |  48 +++++++++++++++++++++++++++++++++++++
 4 files changed, 95 insertions(+)
 create mode 100644 R/AndradeTb2.24.R
 create mode 100644 data-raw/AndradeTb2.24.txt
 create mode 100644 data/AndradeTb2.24.rda
 create mode 100644 man/AndradeTb2.24.Rd

diff --git a/R/AndradeTb2.24.R b/R/AndradeTb2.24.R
new file mode 100644
index 00000000..549843a5
--- /dev/null
+++ b/R/AndradeTb2.24.R
@@ -0,0 +1,40 @@
+#' @name AndradeTb2.24
+#' @title Estudo sobre a Adoção de uma Variedade de Arroz
+#' @description Um economista agrícola está estudando fatores que afetam
+#'     a adoção de uma nova variedade de arroz altamente produtiva.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{Posse}}{Fator de 3 níveis qualitativos que são os tipos
+#'     de posse de terra.}
+#'
+#' \item{\code{Adocao}}{Fator de 2 níveis qualitativos que indica se há,
+#'     ou não, a adoção da nova variedade de arroz.}
+#'
+#' \item{\code{Freq}}{Frequência conjunta de Posse e Adoção.}
+#'
+#' }
+#' @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.24, pág. 106)
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(AndradeTb2.24)
+#' str(AndradeTb2.24)
+#'
+#' xyplot(Freq ~ Adocao,
+#'        groups = Posse,
+#'        data = AndradeTb2.24,
+#'        type = "b",
+#'        auto.key = list(title = "Posse",
+#'                        cex.title = 1.1,
+#'                        columns = 3),
+#'        xlab = "Adoção",
+#'        ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.24.txt b/data-raw/AndradeTb2.24.txt
new file mode 100644
index 00000000..4bf35fcd
--- /dev/null
+++ b/data-raw/AndradeTb2.24.txt
@@ -0,0 +1,7 @@
+Posse	Adocao	Freq
+Proprietario	Adota	102
+VariosArrendatarios	Adota	42
+UnicoArrendatario	Adota	5
+Proprietario	NaoAdota	26
+VariosArrendatarios	NaoAdota	10
+UnicoArrendatario	NaoAdota	2
diff --git a/data/AndradeTb2.24.rda b/data/AndradeTb2.24.rda
new file mode 100644
index 0000000000000000000000000000000000000000..6337735d5bc7dfbf933736a716a90fadc4a275cc
GIT binary patch
literal 266
zcmZ>Y%CIzaj8qGbyy7rTg@NJd{{#QaG6Wa|MHo~W!yW9^|28-<FbHm7_?FBo;8dk{
z<>CvsW)8Mq!zEJlI$Ugd9gKJs7<idneU>?xm@qJ8Fql*^t!Yr0ZfdYfIpLvI`ymzf
z4Q(#{;>({ZwCD%hubNx6LP#T{<>#a5^vIOuPgqoYmx}clMRXbm8}V(_m^g#6DKJCD
zSt>~_i^o%Z)df#B2gylF7t3#LcX#!eeLAP<mTc+vvdS<ko?~*?B2qi+7UzYwoe*qP
zwwk%*$img}aZSgZ98W#eblj-8KBnPOwmLU|K=6!2>nrk05?p&0PMPzG<xrEUM21uT
WsR`Dt0sD{Mndm2?Vk)58$p8QzkY<hm

literal 0
HcmV?d00001

diff --git a/man/AndradeTb2.24.Rd b/man/AndradeTb2.24.Rd
new file mode 100644
index 00000000..93e503bc
--- /dev/null
+++ b/man/AndradeTb2.24.Rd
@@ -0,0 +1,48 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.24.R
+\name{AndradeTb2.24}
+\alias{AndradeTb2.24}
+\title{Estudo sobre a Adoção de uma Variedade de Arroz}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{Posse}}{Fator de 3 níveis qualitativos que são os tipos
+    de posse de terra.}
+
+\item{\code{Adocao}}{Fator de 2 níveis qualitativos que indica se há,
+    ou não, a adoção da nova variedade de arroz.}
+
+\item{\code{Freq}}{Frequência conjunta de Posse e Adoção.}
+
+}}
+\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.24, pág. 106)
+}
+\description{
+Um economista agrícola está estudando fatores que afetam
+    a adoção de uma nova variedade de arroz altamente produtiva.
+}
+\examples{
+
+library(lattice)
+
+data(AndradeTb2.24)
+str(AndradeTb2.24)
+
+xyplot(Freq ~ Adocao,
+       groups = Posse,
+       data = AndradeTb2.24,
+       type = "b",
+       auto.key = list(title = "Posse",
+                       cex.title = 1.1,
+                       columns = 3),
+       xlab = "Adoção",
+       ylab = "Frequência")
+
+}
+\keyword{AAS}
+
-- 
GitLab