From 122a1a266efb142c3e156e19abb045acb609d003 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Thu, 6 Oct 2016 15:57:22 -0300
Subject: [PATCH] Adiciona Tabela 44 (AndradeTb6.2).
---
R/AndradeTb6.2.R | 43 ++++++++++++++++++++++++++++++++
data-raw/AndradeTb6.2.txt | 12 +++++++++
data/AndradeTb6.2.rda | Bin 0 -> 257 bytes
man/AndradeTb6.2.Rd | 51 ++++++++++++++++++++++++++++++++++++++
4 files changed, 106 insertions(+)
create mode 100644 R/AndradeTb6.2.R
create mode 100644 data-raw/AndradeTb6.2.txt
create mode 100644 data/AndradeTb6.2.rda
create mode 100644 man/AndradeTb6.2.Rd
diff --git a/R/AndradeTb6.2.R b/R/AndradeTb6.2.R
new file mode 100644
index 00000000..9eb43cea
--- /dev/null
+++ b/R/AndradeTb6.2.R
@@ -0,0 +1,43 @@
+#' @name AndradeTb6.2
+#' @title Alturas das Alunas do Curso de Estatística Básica
+#' @description Dados das alturas de 17 alunas da turma de Estatística
+#' Básica do Curso de Ciências Biológicas.
+#' @format Um \code{data.frame} com 11 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{altura}}{Altura das alunas, em metros.}
+#'
+#' \item{\code{freq}}{Frequência absoluta das alturas das alunas.}
+#'
+#' }
+#' @keywords CENSO
+#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+#' ciências agrárias e biológicas com noções de experimentação (2nd
+#' ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.2, pág. 289)
+#' @examples
+#'
+#' data(AndradeTb6.2)
+#' str(AndradeTb6.2)
+#'
+#' # Gráfico de barras
+#' with(AndradeTb6.2, {
+#' fr <- paste0("(", round(100 * freq / sum(freq)), "% )")
+#' bp <- barplot(freq,
+#' names.arg = altura,
+#' col = "darkturquoise",
+#' beside = TRUE,
+#' ylim = c(0, 5),
+#' xlab = "Altura das Alunas",
+#' ylab = "Frequência Absoluta")
+#' text(bp, freq + 0.3, labels = paste(freq, fr))
+#' })
+#'
+#' # Gráfico de setores
+#' with(AndradeTb6.2, {
+#' fr <- paste0("(", round(100 * freq / sum(freq)), "%)")
+#' pie(freq, labels = paste(altura, "metros", fr),
+#' col = gray.colors(length(freq)))
+#' })
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb6.2.txt b/data-raw/AndradeTb6.2.txt
new file mode 100644
index 00000000..192cab92
--- /dev/null
+++ b/data-raw/AndradeTb6.2.txt
@@ -0,0 +1,12 @@
+altura freq
+1.56 1
+1.6 4
+1.61 2
+1.62 1
+1.63 1
+1.65 1
+1.67 2
+1.68 1
+1.7 1
+1.72 2
+1.73 1
diff --git a/data/AndradeTb6.2.rda b/data/AndradeTb6.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0bb4d01f3552727bca40c49e1800ab5d870f7056
GIT binary patch
literal 257
zcmZ>Y%CIzaj8qGbJoweghk>E0{_lT#A4Ud8Nroj2CNB2u`zAOsG#D^2GB`*uDDW^>
zZeZAUB2&>MiP?eiRmO#{Cd>*s%U66g;dNUiY3z}~%gd%F>|iJ{OOmlm<N^bO6axbT
zgH(n~ajOT5+^xjcwTh<UY@SVhsU4x;yq_6J_Ma3~VQfh1Ycp$Gbb(bUfW^<H*mZ$|
zNpwp13=T_GgND0{e&1Oll~dNob<~~bjn|Ft)jzHnc|8o$=<BOHv{!oK6rq{VYTm89
z)ypDMm>Yb+oaKFVYy`_WpY$W<Vnx<w5(Zu&g+JoHCUVSeVZC6<k@!bZrIL^P$L>j*
Mhg#bBR|zEm01BO73IG5A
literal 0
HcmV?d00001
diff --git a/man/AndradeTb6.2.Rd b/man/AndradeTb6.2.Rd
new file mode 100644
index 00000000..b0818600
--- /dev/null
+++ b/man/AndradeTb6.2.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb6.2.R
+\name{AndradeTb6.2}
+\alias{AndradeTb6.2}
+\title{Alturas das Alunas do Curso de Estatística Básica}
+\format{Um \code{data.frame} com 11 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{altura}}{Altura das alunas, em metros.}
+
+\item{\code{freq}}{Frequência absoluta das alturas das alunas.}
+
+}}
+\source{
+Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
+ ciências agrárias e biológicas com noções de experimentação (2nd
+ ed.). Florianópolis, SC. Editora da UFSC. (Tabela 6.2, pág. 289)
+}
+\description{
+Dados das alturas de 17 alunas da turma de Estatística
+ Básica do Curso de Ciências Biológicas.
+}
+\examples{
+
+data(AndradeTb6.2)
+str(AndradeTb6.2)
+
+# Gráfico de barras
+with(AndradeTb6.2, {
+ fr <- paste0("(", round(100 * freq / sum(freq)), "\% )")
+ bp <- barplot(freq,
+ names.arg = altura,
+ col = "darkturquoise",
+ beside = TRUE,
+ ylim = c(0, 5),
+ xlab = "Altura das Alunas",
+ ylab = "Frequência Absoluta")
+ text(bp, freq + 0.3, labels = paste(freq, fr))
+ })
+
+# Gráfico de setores
+with(AndradeTb6.2, {
+ fr <- paste0("(", round(100 * freq / sum(freq)), "\%)")
+ pie(freq, labels = paste(altura, "metros", fr),
+ col = gray.colors(length(freq)))
+ })
+
+}
+\keyword{CENSO}
+
--
GitLab