Adiciona tabela PaulinoEx8.12 ao pacote

R/PaulinoEx8.12.R

+#' @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

data-raw/PaulinoEx8.12.txt

+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

man/PaulinoEx8.12.Rd

+% 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}
+