From caa4027fdb9450695f3366577dd7a3932bdc3898 Mon Sep 17 00:00:00 2001
From: Bruno Geronymo <geronymobruno@hotmail.com>
Date: Mon, 5 Sep 2016 16:31:38 -0300
Subject: [PATCH] Adiciona Tabela 16 (AndradeTb2.23).
---
R/AndradeTb2.23.R | 36 ++++++++++++++++++++
data-raw/AndradeTb2.23.txt | 66 +++++++++++++++++++++++++++++++++++++
data/AndradeTb2.23.rda | Bin 0 -> 228 bytes
man/AndradeTb2.23.Rd | 44 +++++++++++++++++++++++++
4 files changed, 146 insertions(+)
create mode 100644 R/AndradeTb2.23.R
create mode 100644 data-raw/AndradeTb2.23.txt
create mode 100644 data/AndradeTb2.23.rda
create mode 100644 man/AndradeTb2.23.Rd
diff --git a/R/AndradeTb2.23.R b/R/AndradeTb2.23.R
new file mode 100644
index 00000000..719332b2
--- /dev/null
+++ b/R/AndradeTb2.23.R
@@ -0,0 +1,36 @@
+#' @name AndradeTb2.23
+#' @title Estudo Sobre Locais e Ocorrência de Aborto
+#' @description Um pesquisador está estudando uma possível associação
+#' entre local e o número de abortos de crianças do sexo feminino.
+#' @format Um \code{data.frame} com 65 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{local}}{Fator de 2 níveis qualitativos que são os
+#' locais, sendo: 1 = Rio Vermelho; 2 = Costa da Lagoa.}
+#'
+#' \item{\code{aborto}}{Número de ocorrências de abortos de crianças do
+#' sexo feminino.}
+#'
+#' }
+#' @keywords AAS
+#' @source Estatística para as ciências agrárias e biológicas: com
+#' noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+#' 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+#' 2.23, pág. 105)
+#' @examples
+#'
+#' data(AndradeTb2.23)
+#' str(AndradeTb2.23)
+#'
+#' tb <- xtabs(data = AndradeTb2.23)
+#'
+#' barplot(t(tb),
+#' beside = TRUE,
+#' legend.text = c("0 Aborto","1 Aborto", "2 Abortos"),
+#' ylim = c(0, 25),
+#' xlab = "Local",
+#' ylab = "Frequência",
+#' names.arg = c("Rio Vermelho", "Costa da Lagoa"))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/AndradeTb2.23.txt b/data-raw/AndradeTb2.23.txt
new file mode 100644
index 00000000..d5987732
--- /dev/null
+++ b/data-raw/AndradeTb2.23.txt
@@ -0,0 +1,66 @@
+local aborto
+2 0
+2 0
+2 1
+2 0
+2 0
+2 0
+2 0
+2 2
+2 2
+2 0
+2 1
+2 1
+2 0
+2 0
+2 0
+2 1
+2 1
+2 1
+2 1
+2 1
+2 0
+2 0
+2 0
+2 0
+2 0
+2 0
+2 0
+2 0
+2 0
+2 0
+2 1
+2 1
+2 2
+2 0
+2 0
+2 0
+2 0
+2 1
+1 1
+1 1
+1 1
+1 0
+1 2
+1 1
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
+1 0
diff --git a/data/AndradeTb2.23.rda b/data/AndradeTb2.23.rda
new file mode 100644
index 0000000000000000000000000000000000000000..71533a8d576c295e9da9d7565026b78f075c290b
GIT binary patch
literal 228
zcmZ>Y%CIzaj8qGbtO~jB#K5Tb|HS`YCm0wSEf`c7L>%nd=QcPnFfcSQZeY0Wqcqzi
zNlJ==fjN^U(?1v_&TzqFs;z(EgcFR*X7MrzO5HIuYr7<@m0Z%#?8F&9Ej8klhKRwB
zp8^xpd`#Rg-HujhU==-HvU~Mm77iAJ#q3Q6f3|ptU1?K^xVCI<*%t2ZpiJJg5(yrP
zi`vy1o?UW}dZ2PCPyg?X`PI)mHqE%Zd3yd{bAO))N4m~>gr!)@b7+<+rg!%5W&D@q
hTdY2<$)-18jj-XvE9<Kh8UMtd6nW_6_%gVb0{}FnS<C<c
literal 0
HcmV?d00001
diff --git a/man/AndradeTb2.23.Rd b/man/AndradeTb2.23.Rd
new file mode 100644
index 00000000..dee14241
--- /dev/null
+++ b/man/AndradeTb2.23.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.23.R
+\name{AndradeTb2.23}
+\alias{AndradeTb2.23}
+\title{Estudo Sobre Locais e Ocorrência de Aborto}
+\format{Um \code{data.frame} com 65 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{local}}{Fator de 2 níveis qualitativos que são os
+ locais, sendo: 1 = Rio Vermelho; 2 = Costa da Lagoa.}
+
+\item{\code{aborto}}{Número de ocorrências de abortos de crianças do
+ sexo feminino.}
+
+}}
+\source{
+Estatística para as ciências agrárias e biológicas: com
+ noções de experimentação / Dalton F. Andrade, Paulo J. Ogliari.
+ 2. ed. rev. e ampl. - Florianópolis: Ed. da UFSC, 2010. (Tabela
+ 2.23, pág. 105)
+}
+\description{
+Um pesquisador está estudando uma possível associação
+ entre local e o número de abortos de crianças do sexo feminino.
+}
+\examples{
+
+data(AndradeTb2.23)
+str(AndradeTb2.23)
+
+tb <- xtabs(data = AndradeTb2.23)
+
+barplot(t(tb),
+ beside = TRUE,
+ legend.text = c("0 Aborto","1 Aborto", "2 Abortos"),
+ ylim = c(0, 25),
+ xlab = "Local",
+ ylab = "Frequência",
+ names.arg = c("Rio Vermelho", "Costa da Lagoa"))
+
+}
+\keyword{AAS}
+
--
GitLab