From df5ee29fe09aebd9803743243d949dbcd8b51df4 Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 14:23:23 -0300
Subject: [PATCH] Adiciona tabela PaulinoEx8.11a ao pacote
---
R/PaulinoEx8.11a.R | 44 ++++++++++++++++++++++++++++++
data-raw/PaulinoEx8.11a.txt | 9 ++++++
data/PaulinoEx8.11a.rda | Bin 0 -> 265 bytes
man/PaulinoEx8.11a.Rd | 53 ++++++++++++++++++++++++++++++++++++
4 files changed, 106 insertions(+)
create mode 100644 R/PaulinoEx8.11a.R
create mode 100644 data-raw/PaulinoEx8.11a.txt
create mode 100644 data/PaulinoEx8.11a.rda
create mode 100644 man/PaulinoEx8.11a.Rd
diff --git a/R/PaulinoEx8.11a.R b/R/PaulinoEx8.11a.R
new file mode 100644
index 00000000..ad440aa2
--- /dev/null
+++ b/R/PaulinoEx8.11a.R
@@ -0,0 +1,44 @@
+#' @name PaulinoEx8.11a
+#' @title Comportamento Predatório da Jararaca
+#' @description Estudo envolvendo o comportamento predatório em
+#' cativeiro da jararaca (uma das serpentes mais venenosas do
+#' Brasil). Objetivo do exercício é analisar os dados estudando o
+#' efeito das características das presas na proporção teória de
+#' botes predatórios.
+#' @format Um \code{data.frame} com 8 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{pigm}}{Pigmentação da serpente (escura, albina).}
+#'
+#' \item{\code{peso}}{Peso relativo da serpente (menor, maior).}
+#'
+#' \item{\code{bote}}{Bote predatório (sim, não).}
+#'
+#' \item{\code{freq}}{Frequência observada.}
+#'
+#' }
+#' @keywords contingência binomial
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (Exercício 8.11 a, pág. 244).
+#' @examples
+#'
+#' str(PaulinoEx8.11a)
+#'
+#' xt <- xtabs(freq ~ pigm + peso + bote, data = PaulinoEx8.11a)
+#' xt
+#'
+#' library(lattice)
+#'
+#' barchart(xt,
+#' horizontal = FALSE,
+#' beside = FALSE,
+#' stack = FALSE,
+#' auto.key = list(space = "top", columns = 2,
+#' cex.title = 1, rectangles = TRUE,
+#' points = FALSE, title = "Bote predatório"),
+#' xlab = "Pigmentação",
+#' ylab = "Frequência")
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.11a.txt b/data-raw/PaulinoEx8.11a.txt
new file mode 100644
index 00000000..04f811e0
--- /dev/null
+++ b/data-raw/PaulinoEx8.11a.txt
@@ -0,0 +1,9 @@
+pigm peso bote freq
+escura menor sim 6
+escura menor nao 3
+escura maior sim 6
+escura maior nao 4
+albina menor sim 5
+albina menor nao 7
+albina maior sim 17
+albina maior nao 4
diff --git a/data/PaulinoEx8.11a.rda b/data/PaulinoEx8.11a.rda
new file mode 100644
index 0000000000000000000000000000000000000000..5d5d80c957881430d4e93aac298feb6d7262522c
GIT binary patch
literal 265
zcmZ>Y%CIzaj8qGbd?eiYi-F<a{{#O&XD~1@8aS{q1UT3)|9`-Nfx&SD!w*N6tG4P(
zJ}fqs%3SRD%51^OUY-;qDPFc-h75*`go%poQ!<<#7hJw*XvnywBez*PE#=suOM!xd
z)3V-7=XdK$T@Z8VQe)Z%$J0v^JeQUIO*j)#-pMxc#QB=eWrF&=mz$^VSDWN$CYs^@
z=6K(Zl@Z-ep$r-m44AzcT1-p~G@e{&$@|{qxy1VQrN2|BUU9CmS^59do{FQIG6jFS
z^;RTq&7CCSaOYa%+L=o$Ugx>m?Df}5Q)15iVL9p4JeBFe4%!QvS95>WeZel==r1BT
YXK{;*h#DLFg58re54E%l%<;bf0OE#ptpET3
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx8.11a.Rd b/man/PaulinoEx8.11a.Rd
new file mode 100644
index 00000000..e2f18677
--- /dev/null
+++ b/man/PaulinoEx8.11a.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.11a.R
+\name{PaulinoEx8.11a}
+\alias{PaulinoEx8.11a}
+\title{Comportamento Predatório da Jararaca}
+\format{Um \code{data.frame} com 8 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{pigm}}{Pigmentação da serpente (escura, albina).}
+
+\item{\code{peso}}{Peso relativo da serpente (menor, maior).}
+
+\item{\code{bote}}{Bote predatório (sim, não).}
+
+\item{\code{freq}}{Frequência observada.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (Exercício 8.11 a, pág. 244).
+}
+\description{
+Estudo envolvendo o comportamento predatório em
+ cativeiro da jararaca (uma das serpentes mais venenosas do
+ Brasil). Objetivo do exercício é analisar os dados estudando o
+ efeito das características das presas na proporção teória de
+ botes predatórios.
+}
+\examples{
+
+str(PaulinoEx8.11a)
+
+xt <- xtabs(freq ~ pigm + peso + bote, data = PaulinoEx8.11a)
+xt
+
+library(lattice)
+
+barchart(xt,
+ horizontal = FALSE,
+ beside = FALSE,
+ stack = FALSE,
+ auto.key = list(space = "top", columns = 2,
+ cex.title = 1, rectangles = TRUE,
+ points = FALSE, title = "Bote predatório"),
+ xlab = "Pigmentação",
+ ylab = "Frequência")
+
+}
+\keyword{binomial}
+\keyword{contingência}
+
--
GitLab