From 23096b3d8fb8518b086344970e304a0ffe0c60eb Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Fri, 18 Mar 2016 18:23:38 -0300
Subject: [PATCH] =?UTF-8?q?Tabela=204=20(PimentelPg91)=20conclu=C3=ADda.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/PimentelPg91.R          |  33 ++++++++++++++++++++++++++++++
 data-raw/PimentelPg91.txt |  25 +++++++++++++++++++++++
 data/PimentelPg91.rda     | Bin 0 -> 338 bytes
 man/PimentelPg91.Rd       |  41 ++++++++++++++++++++++++++++++++++++++
 4 files changed, 99 insertions(+)
 create mode 100644 R/PimentelPg91.R
 create mode 100644 data-raw/PimentelPg91.txt
 create mode 100644 data/PimentelPg91.rda
 create mode 100644 man/PimentelPg91.Rd

diff --git a/R/PimentelPg91.R b/R/PimentelPg91.R
new file mode 100644
index 00000000..49db5e37
--- /dev/null
+++ b/R/PimentelPg91.R
@@ -0,0 +1,33 @@
+#' @name PimentelPg91
+#' @title Dados de produção de milho
+#' @description Experimento em blocos casualizados realizado pelo
+#'     Engenheiro Agrônomo Duvilio Ometto, com 2 tratamentos (aradura
+#'     profunda e aradura superficial) e 6 blocos com 2 repetições cada.
+#' @format Um \code{data.frame} com 24 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{aradura}}{Fator de 2 níveis qualitativos, que são os
+#'     diferentes tipos de aradura.}
+#'
+#' \item{\code{bloco}}{Fator de 6 níveis qualitativos, usado para
+#'     controle local.}
+#'     
+#' \item{\code{prod}}{Produção de milho, em kg por parcela de
+#'     200\eqn{m^{2}}.}
+#'
+#' }
+#' @keywords DBC
+#' @source Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+#'     (15th ed.). Piracicaba, SP: FEALQ.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' bwplot(prod ~ aradura,
+#'        groups = bloco,
+#'        data = PimentelPg91,
+#'        xlab = "Aradura",
+#'        ylab = "Produção")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PimentelPg91.txt b/data-raw/PimentelPg91.txt
new file mode 100644
index 00000000..eedeceed
--- /dev/null
+++ b/data-raw/PimentelPg91.txt
@@ -0,0 +1,25 @@
+aradura	bloco	prod
+profunda	i	5.5
+profunda	i	7.0
+profunda	ii	6.8
+profunda	ii	6.2
+profunda	iii	4.6
+profunda	iii	6.0
+profunda	iv	6.4
+profunda	iv	6.8
+profunda	v	7.7
+profunda	v	8.8
+profunda	vi	6.2
+profunda	vi	5.8
+normal	i	6.0
+normal	i	6.8
+normal	ii	5.2
+normal	ii	5.9
+normal	iii	4.4
+normal	iii	4.7
+normal	iv	7.2
+normal	iv	5.6
+normal	v	7.1
+normal	v	6.4
+normal	vi	7.6
+normal	vi	4.5
diff --git a/data/PimentelPg91.rda b/data/PimentelPg91.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7500385731d1815b4764aabb24e74247a2f67794
GIT binary patch
literal 338
zcmZ>Y%CIzaj8qGbEV<>W%fM(?|MdU&+P4af778v50S@-d?>9IwFc>hfF*q<VZeX-f
zFj1AX^|`{3#LMPzfv3UbD_;V`3<k~y1_lNuSCLOX%a;Yaxiv5_Zj~}&d}=()`0cq2
z)et7N3&-9_xoi~Bo$6>h%{49alxp)LLtTZ{4bMg7wm)P$9=UTpyZxDl)=fvHD<5|x
zKAiR9>DA{VjUrp7nJL8=OaEB4B(OgwRFm7u;ljjU-A6eVE}4~8_bXbNZH_|Iv>S|S
zD*f3DR!GG)vP}_oI{9~1S7Yqb`Q|s9)UFB%^)MTBbUtUdc=l0l{zaBwC7t)mCtMUT
zmk+u(ku$$h!+?F>mcVz%k8k&h*m~8w`sG%yMXNURG;W<6`?W_&<l(yy>rRARd^vAM
xU;7)@<7Mmx2G5l=_ibIYk?%pn!v(ih)-f$VAk?kJ^-u3fSHVJsms=)90RU9wlTQEu

literal 0
HcmV?d00001

diff --git a/man/PimentelPg91.Rd b/man/PimentelPg91.Rd
new file mode 100644
index 00000000..f344f7d9
--- /dev/null
+++ b/man/PimentelPg91.Rd
@@ -0,0 +1,41 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PimentelPg91.R
+\name{PimentelPg91}
+\alias{PimentelPg91}
+\title{Dados de produção de milho}
+\format{Um \code{data.frame} com 24 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{aradura}}{Fator de 2 níveis qualitativos, que são os
+    diferentes tipos de aradura.}
+
+\item{\code{bloco}}{Fator de 6 níveis qualitativos, usado para
+    controle local.}
+    
+\item{\code{prod}}{Produção de milho, em kg por parcela de
+    200\eqn{m^{2}}.}
+
+}}
+\source{
+Pimentel-Gomes, F. (2009). Curso de Estatística Experimental
+    (15th ed.). Piracicaba, SP: FEALQ.
+}
+\description{
+Experimento em blocos casualizados realizado pelo
+    Engenheiro Agrônomo Duvilio Ometto, com 2 tratamentos (aradura
+    profunda e aradura superficial) e 6 blocos com 2 repetições cada.
+}
+\examples{
+
+library(lattice)
+
+bwplot(prod ~ aradura,
+       groups = bloco,
+       data = PimentelPg91,
+       xlab = "Aradura",
+       ylab = "Produção")
+
+}
+\keyword{DBC}
+
-- 
GitLab