From b05bc28ece354eb4ebbc7c6f2ec15761a6b78220 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Fri, 30 Sep 2016 16:32:45 -0300
Subject: [PATCH] Adiciona Tabela 40 (AndradeEx4.8).
---
R/AndradeEx4.8.R | 30 ++++++++++++++++++++++++++++++
data-raw/AndradeEx4.8.txt | 7 +++++++
data/AndradeEx4.8.rda | Bin 0 -> 181 bytes
man/AndradeEx4.8.Rd | 38 ++++++++++++++++++++++++++++++++++++++
4 files changed, 75 insertions(+)
create mode 100644 R/AndradeEx4.8.R
create mode 100644 data-raw/AndradeEx4.8.txt
create mode 100644 data/AndradeEx4.8.rda
create mode 100644 man/AndradeEx4.8.Rd
diff --git a/R/AndradeEx4.8.R b/R/AndradeEx4.8.R
new file mode 100644
index 00000000..d8326098
--- /dev/null
+++ b/R/AndradeEx4.8.R
@@ -0,0 +1,30 @@
+#' @name AndradeEx4.8
+#' @title Número de Ninhadas com X Porcos Machos
+#' @description Foram examinadas 2.000 ninhadas de cinco porcos cada
+#' uma, segundo o número de machos.
+#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Número de machos na ninhada de 5 porcos.}
+#'
+#' \item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+#'
+#' }
+#' @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 4, Exercício
+#' 8, pág. 237)
+#' @examples
+#'
+#' data(AndradeEx4.8)
+#' str(AndradeEx4.8)
+#'
+#' barplot(AndradeEx4.8$ninhadas,
+#' col = "darkturquoise",
+#' names.arg = AndradeEx4.8$x,
+#' xlab = "Número de Machos na Ninhada",
+#' ylab = "Número de Ninhadas")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeEx4.8.txt b/data-raw/AndradeEx4.8.txt
new file mode 100644
index 00000000..4a220a5e
--- /dev/null
+++ b/data-raw/AndradeEx4.8.txt
@@ -0,0 +1,7 @@
+x ninhadas
+0 20
+1 360
+2 700
+3 680
+4 200
+5 40
diff --git a/data/AndradeEx4.8.rda b/data/AndradeEx4.8.rda
new file mode 100644
index 0000000000000000000000000000000000000000..8da26e4d48d9a99c948b6df600d801f13db52d6a
GIT binary patch
literal 181
zcmZ>Y%CIzaj8qGbba=j{pMfE>{?7k09|i_T5eGE}0SEo`IR_jV7#tW_7#tV`7cg}3
ziWtrI33go8aG8<U)@+54R)#_n+bo6?3@Lg+g&X~|=Iy+pkq}^D9KD3^nxMy?RyR)L
z3FT&APBF0NN=7`=&tfuJa%7cMAhV-#Gs}iePMSWIN5x&Qr*7L_=yky*bLGRmZ7WtB
mwM`R<^tHcn@NM7JxLlQ``r7pp2K7hpO!N~`5wLu#d;kEg-9sh-
literal 0
HcmV?d00001
diff --git a/man/AndradeEx4.8.Rd b/man/AndradeEx4.8.Rd
new file mode 100644
index 00000000..47e73ab8
--- /dev/null
+++ b/man/AndradeEx4.8.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeEx4.8.R
+\name{AndradeEx4.8}
+\alias{AndradeEx4.8}
+\title{Número de Ninhadas com X Porcos Machos}
+\format{Um \code{data.frame} com 6 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{x}}{Número de machos na ninhada de 5 porcos.}
+
+\item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+
+}}
+\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 4, Exercício
+ 8, pág. 237)
+}
+\description{
+Foram examinadas 2.000 ninhadas de cinco porcos cada
+ uma, segundo o número de machos.
+}
+\examples{
+
+data(AndradeEx4.8)
+str(AndradeEx4.8)
+
+barplot(AndradeEx4.8$ninhadas,
+ col = "darkturquoise",
+ names.arg = AndradeEx4.8$x,
+ xlab = "Número de Machos na Ninhada",
+ ylab = "Número de Ninhadas")
+
+}
+\keyword{AAS}
+
--
GitLab