From cd2be07763999eeced43ff4f9c031c8a133721e2 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Thu, 6 Oct 2016 16:40:35 -0300
Subject: [PATCH] Adiciona Tabela 46 (AndradeEx7.3).

---
 R/AndradeEx7.3.R          |  36 +++++++++++++++++++++++++++++++
 data-raw/AndradeEx7.3.txt |  30 ++++++++++++++++++++++++++
 data/AndradeEx7.3.rda     | Bin 0 -> 217 bytes
 man/AndradeEx7.3.Rd       |  44 ++++++++++++++++++++++++++++++++++++++
 4 files changed, 110 insertions(+)
 create mode 100644 R/AndradeEx7.3.R
 create mode 100644 data-raw/AndradeEx7.3.txt
 create mode 100644 data/AndradeEx7.3.rda
 create mode 100644 man/AndradeEx7.3.Rd

diff --git a/R/AndradeEx7.3.R b/R/AndradeEx7.3.R
new file mode 100644
index 00000000..05e0edbc
--- /dev/null
+++ b/R/AndradeEx7.3.R
@@ -0,0 +1,36 @@
+#' @name AndradeEx7.3
+#' @title Diâmetros de Árvores de Eucalipto
+#' @description De um povoamento de eucaliptos, sortearam-se 30 árvores
+#'     e determinaram-se os diâmetros, em cm, com a finalidade de
+#'     estimar o diâmetro médio do povoamento.
+#' @format Um \code{vector} numérico com 30 observações.
+#' @keywords AAS
+#' @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. (Capítulo 7, Exercício
+#'     3, pág. 342)
+#' @examples
+#'
+#' data(AndradeEx7.3)
+#' str(AndradeEx7.3)
+#'
+#' hist(AndradeEx7.3,
+#'      prob = TRUE,
+#'      labels = TRUE,
+#'      col = "darkturquoise",
+#'      xlab = "Diâmetro (em cm)",
+#'      ylab = "Densidade",
+#'      main = NULL,
+#'      ylim = c(0, 0.055))
+#'
+#' lines(density(AndradeEx7.3), lwd = 2)
+#' rug(AndradeEx7.3)
+#'
+#' boxplot(AndradeEx7.3,
+#'         ylab = "Diâmetro (em cm)")
+#'
+#' mean(AndradeEx7.3)
+#' sd(AndradeEx7.3)
+#' fivenum(AndradeEx7.3)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx7.3.txt b/data-raw/AndradeEx7.3.txt
new file mode 100644
index 00000000..46368757
--- /dev/null
+++ b/data-raw/AndradeEx7.3.txt
@@ -0,0 +1,30 @@
+10.1
+15.8
+18.5
+22.3
+23.5
+17.2
+17.8
+18.7
+16.7
+29.1
+28
+30.3
+26.8
+28
+17.8
+18.9
+28.9
+27.9
+22.5
+32.9
+29.5
+28.3
+34.2
+38.5
+38.5
+35.5
+34.2
+31.8
+32.5
+41.8
diff --git a/data/AndradeEx7.3.rda b/data/AndradeEx7.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3b09415d0905af6977e78c9f63c234814d127b67
GIT binary patch
literal 217
zcmZ>Y%CIzaj8qGbZ0<VofPo?X|Jy&N42mp_Kj*(=5pYmvlyGohU@+idaA0F(U|=+0
z*vK}CbNPZ9GZ;8u%<xg4;4vxF)K=hR<Dy(2_a!DalX=*B+L}4o8Zs9!yb%Ajnk$Vp
zXVqRii)RyN8@i-qe@$5YZpVj|wg)YKi9TIyp<T>#Cqy6VxqVAB>(r$P`P*xk>|GLL
zU7RJ^9^@?D!Rhj1LC)k!-?Bg6FTXB#XTSQA<qDh*ar>9tYjK{zy0g&!Qug$13XU#~
Zf8E*H*ye`rI-c~-V>y?QKw+c|0{~t{St|el

literal 0
HcmV?d00001

diff --git a/man/AndradeEx7.3.Rd b/man/AndradeEx7.3.Rd
new file mode 100644
index 00000000..195ae98d
--- /dev/null
+++ b/man/AndradeEx7.3.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx7.3.R
+\name{AndradeEx7.3}
+\alias{AndradeEx7.3}
+\title{Diâmetros de Árvores de Eucalipto}
+\format{Um \code{vector} numérico com 30 observações.}
+\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. (Capítulo 7, Exercício
+    3, pág. 342)
+}
+\description{
+De um povoamento de eucaliptos, sortearam-se 30 árvores
+    e determinaram-se os diâmetros, em cm, com a finalidade de
+    estimar o diâmetro médio do povoamento.
+}
+\examples{
+
+data(AndradeEx7.3)
+str(AndradeEx7.3)
+
+hist(AndradeEx7.3,
+     prob = TRUE,
+     labels = TRUE,
+     col = "darkturquoise",
+     xlab = "Diâmetro (em cm)",
+     ylab = "Densidade",
+     main = NULL,
+     ylim = c(0, 0.055))
+
+lines(density(AndradeEx7.3), lwd = 2)
+rug(AndradeEx7.3)
+
+boxplot(AndradeEx7.3,
+        ylab = "Diâmetro (em cm)")
+
+mean(AndradeEx7.3)
+sd(AndradeEx7.3)
+fivenum(AndradeEx7.3)
+
+}
+\keyword{AAS}
+
-- 
GitLab