From 64ff7bc83fc9b1cbd7b115d36f3c5ac7016fe031 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Fri, 30 Sep 2016 16:08:03 -0300
Subject: [PATCH] Adiciona Tabela 39 (AndradeTb3.2).
---
R/AndradeTb4.1.R | 30 ++++++++++++++++++++++++++++++
data-raw/AndradeTb4.1.txt | 14 ++++++++++++++
data/AndradeTb4.1.rda | Bin 0 -> 211 bytes
man/AndradeTb4.1.Rd | 38 ++++++++++++++++++++++++++++++++++++++
4 files changed, 82 insertions(+)
create mode 100644 R/AndradeTb4.1.R
create mode 100644 data-raw/AndradeTb4.1.txt
create mode 100644 data/AndradeTb4.1.rda
create mode 100644 man/AndradeTb4.1.Rd
diff --git a/R/AndradeTb4.1.R b/R/AndradeTb4.1.R
new file mode 100644
index 00000000..43549db2
--- /dev/null
+++ b/R/AndradeTb4.1.R
@@ -0,0 +1,30 @@
+#' @name AndradeTb4.1
+#' @title Número de Casais com X Filhos Homens
+#' @description Foram observados 10.690 casais com 12 filhos cada, e
+#' então contou-se o número de filhos do sexo masculino de cada
+#' casal.
+#' @format Um \code{data.frame} com 13 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{x}}{Número de filhos homens.}
+#'
+#' \item{\code{casais}}{Número de casais com x filhos homens.}
+#'
+#' }
+#' @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. (Tabela 4.1, pág. 235)
+#' @examples
+#'
+#' data(AndradeTb4.1)
+#' str(AndradeTb4.1)
+#'
+#' barplot(AndradeTb4.1$casais,
+#' col = "darkturquoise",
+#' names.arg = AndradeTb4.1$x,
+#' xlab = "Número de Filhos Homens",
+#' ylab = "Número de Casais")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb4.1.txt b/data-raw/AndradeTb4.1.txt
new file mode 100644
index 00000000..0c2238a1
--- /dev/null
+++ b/data-raw/AndradeTb4.1.txt
@@ -0,0 +1,14 @@
+x casais
+0 5
+1 35
+2 180
+3 599
+4 1250
+5 1990
+6 2400
+7 2060
+8 1350
+9 600
+10 179
+11 35
+12 7
diff --git a/data/AndradeTb4.1.rda b/data/AndradeTb4.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c7b789d38c2a7fcb7eefa824651222490ea6e853
GIT binary patch
literal 211
zcmZ>Y%CIzaj8qGb^o=o_!@$s7fA;@B4+aiK69!cVkpuPWa}GE#@Gvkk2rzIkZeZA!
zv52jK;Q~X33Bw5`WnX3m1_lNOMx{jzQVcxKzETWw3tn_KuA8jxvDDWgq^s$0?BWfM
zl2b&^q~{7exIFuORSApiMWJi&o~*KxR2Grd<MH&nIJHlS*R5eHZ!gD;qz);rcV;b;
z^S&)h2ul@pnjLFcJTK-G!!j+wh(5mB_xt2>y5}S@iljJt)S21GcYc(eu$U==S^UW{
R`$z9QmU9Vlu5P>B002#AOB?_I
literal 0
HcmV?d00001
diff --git a/man/AndradeTb4.1.Rd b/man/AndradeTb4.1.Rd
new file mode 100644
index 00000000..23e012db
--- /dev/null
+++ b/man/AndradeTb4.1.Rd
@@ -0,0 +1,38 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb4.1.R
+\name{AndradeTb4.1}
+\alias{AndradeTb4.1}
+\title{Número de Casais com X Filhos Homens}
+\format{Um \code{data.frame} com 13 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{x}}{Número de filhos homens.}
+
+\item{\code{casais}}{Número de casais com x filhos homens.}
+
+}}
+\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 4.1, pág. 235)
+}
+\description{
+Foram observados 10.690 casais com 12 filhos cada, e
+ então contou-se o número de filhos do sexo masculino de cada
+ casal.
+}
+\examples{
+
+data(AndradeTb4.1)
+str(AndradeTb4.1)
+
+barplot(AndradeTb4.1$casais,
+ col = "darkturquoise",
+ names.arg = AndradeTb4.1$x,
+ xlab = "Número de Filhos Homens",
+ ylab = "Número de Casais")
+
+}
+\keyword{AAS}
+
--
GitLab