From 99e99cccffd84d8fd88854f7416a4bbca8b78e62 Mon Sep 17 00:00:00 2001
From: Jhenifer Caetano <jhenicaet@gmail.com>
Date: Sun, 11 Sep 2016 15:47:29 -0300
Subject: [PATCH] Adiciona tabela PaulinoEx8.12 ao pacote
---
R/PaulinoEx8.12.R | 44 ++++++++++++++++++++
data-raw/PaulinoEx8.12.txt | 81 +++++++++++++++++++++++++++++++++++++
data/PaulinoEx8.12.rda | Bin 0 -> 406 bytes
man/PaulinoEx8.12.Rd | 53 ++++++++++++++++++++++++
4 files changed, 178 insertions(+)
create mode 100644 R/PaulinoEx8.12.R
create mode 100644 data-raw/PaulinoEx8.12.txt
create mode 100644 data/PaulinoEx8.12.rda
create mode 100644 man/PaulinoEx8.12.Rd
diff --git a/R/PaulinoEx8.12.R b/R/PaulinoEx8.12.R
new file mode 100644
index 00000000..ee0759cd
--- /dev/null
+++ b/R/PaulinoEx8.12.R
@@ -0,0 +1,44 @@
+#' @name PaulinoEx8.12
+#' @title Obesidade em Crianças Observada em Três Anos
+#' @description Dados de um estudo envolvendo um conjunto de 10 grupos
+#' de crianças, definidos pelo sexo e faixa atária em 1977, que
+#' foram observadas em três ocasiões (1977, 1979, 1981)
+#' relativamente à existência (O) ou não (N) de obesidade,
+#' determinada por uma medida apropriada de peso relativo.
+#' @format Um \code{data.frame} com 80 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{sexo}}{Sexo da criança envolvida no estudo. Feminino (f),
+#' masculino (m).}
+#'
+#' \item{\code{faixa}}{Faixa etária da criança, em 5 categorias.}
+#'
+#' \item{\code{categ}}{Categorias de resposta.}
+#'
+#' \item{\code{nobes}}{Número de crianças na categoria.}
+#'
+#' }
+#' @keywords RP dummy
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+#' Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#' (ExercÃcio 8.12, pág. 244).
+#' @examples
+#'
+#' str(PaulinoEx8.12)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' useOuterStrips(
+#' barchart(nobes ~ categ | sexo + faixa, data = PaulinoEx8.12,
+#' ylim = c(0, 170),
+#' panel = function(...) {
+#' args <- list(...)
+#' panel.text(args$x, args$y, args$y,
+#' pos = 3, offset = 0, cex = 0.8)
+#' panel.barchart(...)
+#' })
+#' )
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoEx8.12.txt b/data-raw/PaulinoEx8.12.txt
new file mode 100644
index 00000000..71cb64b6
--- /dev/null
+++ b/data-raw/PaulinoEx8.12.txt
@@ -0,0 +1,81 @@
+sexo faixa categ nobes
+m 5-7 nnn 90
+m 7-9 nnn 150
+m 9-11 nnn 152
+m 11-13 nnn 119
+m 13-15 nnn 101
+f 5-7 nnn 75
+f 7-9 nnn 154
+f 9-11 nnn 148
+f 11-13 nnn 129
+f 13-15 nnn 91
+m 5-7 nno 9
+m 7-9 nno 15
+m 9-11 nno 11
+m 11-13 nno 7
+m 13-15 nno 4
+f 5-7 nno 8
+f 7-9 nno 14
+f 9-11 nno 6
+f 11-13 nno 8
+f 13-15 nno 9
+m 5-7 non 3
+m 7-9 non 8
+m 9-11 non 8
+m 11-13 non 8
+m 13-15 non 2
+f 5-7 non 2
+f 7-9 non 13
+f 9-11 non 10
+f 11-13 non 7
+f 13-15 non 5
+m 5-7 noo 7
+m 7-9 noo 8
+m 9-11 noo 10
+m 11-13 noo 3
+m 13-15 noo 7
+f 5-7 noo 4
+f 7-9 noo 19
+f 9-11 noo 8
+f 11-13 noo 9
+f 13-15 noo 3
+m 5-7 onn 0
+m 7-9 onn 8
+m 9-11 onn 7
+m 11-13 onn 13
+m 13-15 onn 8
+f 5-7 onn 2
+f 7-9 onn 2
+f 9-11 onn 12
+f 11-13 onn 6
+f 13-15 onn 6
+m 5-7 ono 1
+m 7-9 ono 9
+m 9-11 ono 7
+m 11-13 ono 4
+m 13-15 ono 0
+f 5-7 ono 2
+f 7-9 ono 6
+f 9-11 ono 0
+f 11-13 ono 2
+f 13-15 ono 0
+m 5-7 oon 1
+m 7-9 oon 7
+m 9-11 oon 9
+m 11-13 oon 11
+m 13-15 oon 6
+f 5-7 oon 1
+f 7-9 oon 6
+f 9-11 oon 8
+f 11-13 oon 7
+f 13-15 oon 6
+m 5-7 ooo 8
+m 7-9 ooo 20
+m 9-11 ooo 25
+m 11-13 ooo 16
+m 13-15 ooo 15
+f 5-7 ooo 8
+f 7-9 ooo 21
+f 9-11 ooo 27
+f 11-13 ooo 14
+f 13-15 ooo 15
diff --git a/data/PaulinoEx8.12.rda b/data/PaulinoEx8.12.rda
new file mode 100644
index 0000000000000000000000000000000000000000..e7f1fb4a88e605ca43532d22ec72fcaef81c0635
GIT binary patch
literal 406
zcmV;H0crk1T4*^jL0KkKS&spg=l}y`f9U`J&L{u_I^YHfP*^{wpTJ-M1yDc$00FQ8
zn4tlnlS%5H21;qPC!_<^00YuJLA5_rIe<+t36Q`5OcMYA0TPjtXql<%Akm{CkPRN7
zG7nP(rK?|6f~zD@FaWVjjMz!2fCaAtfNCWbgx<DTS4tWvt*_n)CcA3_07@JhZ>dxb
zh+4O<Ic2|v5X(GtCK|S9qR3;7`O3^1fC`wkBqXfEn|&;q1h4j$KctsT%Va~0!Hres
z8g+PYhada<+u7Z>yXU*U99{mv6gbF$UErS!guRNpxqUtx>&4g6=c)pR5kRy+XY+5<
z9=$S2KKb;0zgqB{qU;462t`Q=AfoMribw?#D71wV2pLA`f+UEK?j9(&FaTykdnbGF
ztCgeP7$O?dWkQ@$_~&^Jy_kHkJ1c<ZxMjO{jXA}oO&8G=8Bc#d*-dv-Xsxl6G=*c#
z-Mp)CM2i>|hIW}EgG3N53@dS>5J9q{u#I#&FK1+gF)|gBg$w>J<ce^iAsz!O(2pLk
Ak^lez
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx8.12.Rd b/man/PaulinoEx8.12.Rd
new file mode 100644
index 00000000..fd05b9ee
--- /dev/null
+++ b/man/PaulinoEx8.12.Rd
@@ -0,0 +1,53 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx8.12.R
+\name{PaulinoEx8.12}
+\alias{PaulinoEx8.12}
+\title{Obesidade em Crianças Observada em Três Anos}
+\format{Um \code{data.frame} com 80 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{sexo}}{Sexo da criança envolvida no estudo. Feminino (f),
+ masculino (m).}
+
+\item{\code{faixa}}{Faixa etária da criança, em 5 categorias.}
+
+\item{\code{categ}}{Categorias de resposta.}
+
+\item{\code{nobes}}{Número de crianças na categoria.}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados
+ Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+ (ExercÃcio 8.12, pág. 244).
+}
+\description{
+Dados de um estudo envolvendo um conjunto de 10 grupos
+ de crianças, definidos pelo sexo e faixa atária em 1977, que
+ foram observadas em três ocasiões (1977, 1979, 1981)
+ relativamente à existência (O) ou não (N) de obesidade,
+ determinada por uma medida apropriada de peso relativo.
+}
+\examples{
+
+str(PaulinoEx8.12)
+
+library(lattice)
+library(latticeExtra)
+
+useOuterStrips(
+ barchart(nobes ~ categ | sexo + faixa, data = PaulinoEx8.12,
+ ylim = c(0, 170),
+ panel = function(...) {
+ args <- list(...)
+ panel.text(args$x, args$y, args$y,
+ pos = 3, offset = 0, cex = 0.8)
+ panel.barchart(...)
+ })
+)
+
+}
+\keyword{RP}
+\keyword{dummy}
+
--
GitLab