From d3f6a51910d3c920689a5e03e845f9170407426e Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Tue, 15 Mar 2016 01:58:59 -0300
Subject: [PATCH] Adiciona dados do Exemplo 5.1 do Ferreia

---
 R/FerreiraEg5.1.R          |  37 +++++++++++++++++++++++++++++++
 data-raw/FerreiraEg5.1.txt |  31 ++++++++++++++++++++++++++
 data/FerreiraEg5.1.rda     | Bin 0 -> 253 bytes
 man/FerreiraEg5.1.Rd       |  44 +++++++++++++++++++++++++++++++++++++
 4 files changed, 112 insertions(+)
 create mode 100644 R/FerreiraEg5.1.R
 create mode 100644 data-raw/FerreiraEg5.1.txt
 create mode 100644 data/FerreiraEg5.1.rda
 create mode 100644 man/FerreiraEg5.1.Rd

diff --git a/R/FerreiraEg5.1.R b/R/FerreiraEg5.1.R
new file mode 100644
index 00000000..abe031e6
--- /dev/null
+++ b/R/FerreiraEg5.1.R
@@ -0,0 +1,37 @@
+#' @name FerreiraEg5.1
+#' @title Teores de Areia e Argila em Solo na Amazônia
+#' @description Conjunto de dados referente aos teores de areia e argila
+#'     de uma amostra com 30 parcelas de solo de capoeira nova na
+#'     Amazônia.
+#' @format Um \code{data.frame} com 30 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{areia}}{Representa o teor de areia em cada parcela de
+#'     solo.}
+#'
+#' \item{\code{argila}}{Representa o teor de argila em cada parcela de
+#'     solo.}
+#'
+#' }
+#' @keywords TODO
+#' @source Ferreira, D. F. (2011). Estatística Multivariada (2nd
+#'     ed.). Lavras, MG: Editora UFLA. (Exemplo 5.1 pág. 193-194)
+#'
+#' @examples
+#' data(FerreiraEg5.1)
+#' 
+#' pairs(FerreiraEg5.1)
+#' 
+#' layout(matrix(c(2, 0, 1, 3), ncol = 2, byrow = TRUE),
+#'        widths = c(4/5, 1/5), heights = c(1/5, 4/5))
+#' areiaPlot <- hist(FerreiraEg5.1$areia, plot = FALSE)
+#' argilaPlot <- hist(FerreiraEg5.1$argila, plot = FALSE)
+#' par(mar = c(5, 5, 0.5, 0.5))
+#' plot(argila ~ areia, data = FerreiraEg5.1, cex = 1.5)
+#' par(mar = c(0, 5, 1, 1))
+#' barplot(areiaPlot$counts, axes = FALSE, space = 0)
+#' par(mar = c(5, 0, 1, 1))
+#' barplot(argilaPlot$counts, axes = FALSE, space = 0, horiz = TRUE)
+#'
+NULL
diff --git a/data-raw/FerreiraEg5.1.txt b/data-raw/FerreiraEg5.1.txt
new file mode 100644
index 00000000..8694466a
--- /dev/null
+++ b/data-raw/FerreiraEg5.1.txt
@@ -0,0 +1,31 @@
+areia	argila
+11	38
+13	47
+18	34
+16	49
+11	45
+30	32
+5	64
+7	59
+11	50
+17	38
+21	35
+22	36
+13	40
+12	36
+25	28
+20	32
+24	25
+28	32
+17	39
+18	34
+27	36
+45	24
+11	40
+42	23
+41	21
+9	40
+48	21
+14	32
+53	21
+31	32
diff --git a/data/FerreiraEg5.1.rda b/data/FerreiraEg5.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7abe6c862036c3161e2ca2422d25254c977d27d3
GIT binary patch
literal 253
zcmZ>Y%CIzaj8qGbyqM6J#lUc;{^0-p^>6Qf{>0(VAmE_Cd`^P{g8%~q;|7MUYfPq`
zoa~lm#9+d3@>P|CNruT~-xW&pmaj@*X*T%^v#&||stm>j3>O%fMcr4hHC&J~VaQ;1
zFk)bfh`1c6^Kb#f>NAZxA1ohnb@$%sZQ&?>bIc;eMP*;_UX^FJIad|mj$(0U-mqNy
ztko+yr<fxZlXspwwMdC+(~OA)E*y6AJU<*sYLf6`m>|Hxn`Okw#BZ*|;4CP}IB(H3
zjWZ{g8hkjy@2+xL)2Z=Un0n+YN#RRk>G8UY<==+!x?MlkQD`CS()_A!3lsC7*png;
Lot#~pELQ*ks}*K|

literal 0
HcmV?d00001

diff --git a/man/FerreiraEg5.1.Rd b/man/FerreiraEg5.1.Rd
new file mode 100644
index 00000000..589a4f48
--- /dev/null
+++ b/man/FerreiraEg5.1.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/FerreiraEg5.1.R
+\name{FerreiraEg5.1}
+\alias{FerreiraEg5.1}
+\title{Teores de Areia e Argila em Solo na Amazônia}
+\format{Um \code{data.frame} com 30 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{areia}}{Representa o teor de areia em cada parcela de
+    solo.}
+
+\item{\code{argila}}{Representa o teor de argila em cada parcela de
+    solo.}
+
+}}
+\source{
+Ferreira, D. F. (2011). Estatística Multivariada (2nd
+    ed.). Lavras, MG: Editora UFLA. (Exemplo 5.1 pág. 193-194)
+}
+\description{
+Conjunto de dados referente aos teores de areia e argila
+    de uma amostra com 30 parcelas de solo de capoeira nova na
+    Amazônia.
+}
+\examples{
+data(FerreiraEg5.1)
+
+pairs(FerreiraEg5.1)
+
+layout(matrix(c(2, 0, 1, 3), ncol = 2, byrow = TRUE),
+       widths = c(4/5, 1/5), heights = c(1/5, 4/5))
+areiaPlot <- hist(FerreiraEg5.1$areia, plot = FALSE)
+argilaPlot <- hist(FerreiraEg5.1$argila, plot = FALSE)
+par(mar = c(5, 5, 0.5, 0.5))
+plot(argila ~ areia, data = FerreiraEg5.1, cex = 1.5)
+par(mar = c(0, 5, 1, 1))
+barplot(areiaPlot$counts, axes = FALSE, space = 0)
+par(mar = c(5, 0, 1, 1))
+barplot(argilaPlot$counts, axes = FALSE, space = 0, horiz = TRUE)
+
+}
+\keyword{TODO}
+
-- 
GitLab