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