diff --git a/R/AndradeTb2.23.R b/R/AndradeTb2.23.R new file mode 100644 index 0000000000000000000000000000000000000000..719332b22c81000baea3223342e1a20acb464df6 --- /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 0000000000000000000000000000000000000000..d5987732b23e261a647cf45ba3bea5bddd798d08 --- /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 Binary files /dev/null and b/data/AndradeTb2.23.rda differ diff --git a/man/AndradeTb2.23.Rd b/man/AndradeTb2.23.Rd new file mode 100644 index 0000000000000000000000000000000000000000..dee142418a2e1c5ffe79ee0619cf8e3470e7f638 --- /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} +