Adiciona tabela 13.4 livro categorico

R/PaulinoTb13.4.R

+#' @name PaulinoTb13.4
+#' @title Frequências observadas em mulheres.
+#' @description Um estudo realizado por Williamson e Haber (1994), 
+#'     envolvendo mulheres com e sem cancro do colo do útero 
+#'     (variável A), classificadas adicionalmente pelo número de 
+#'     parceiros sexuais (variável B categorizada em ‘poucos’ se 
+#'     inferior ou igual a 3 e ‘muitos’no caso contrário) e pelo 
+#'     rendimento anual do agregado familiar (variável C categorizada 
+#'     em ‘baixo’ se inferior ou igual a 2500 USD e ‘alto’ no caso 
+#'     contrário).
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{scc}}{Statu do cancro cervical (controlo e caso).}
+#'
+#' \item{\code{nps}}{Número de parceiros sexuais, descritos como poucos,
+#'     muitos e omisso. Na categoria poucos, refere-se a menor ou igual 
+#'     a 3 diante aos parceiros sexuais.}
+#'
+#' \item{\code{rend}}{Rendimento anual do agregado familiar..}
+#' 
+#' \item{\code{freq}}{Frequência associada ao rendimento anual do 
+#'     agregado familiar.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.4, pág. 470.
+#' @examples
+#' 
+#' library(lattice)
+#' data(PaulinoTb13.4)
+#' 
+#' dados <- xtabs(freq ~ nps + scc + rend, data = PaulinoTb13.4)
+#' barchart(dados, horizontal = FALSE, 
+#'         stack = FALSE,
+#'         scales = list(x = list(labels = c("muitos",'omissos',"poucos"))),
+#'         ylab = "Frequência", xlab = "Statu do cancro cervical",
+#'         main = "Frequências observadas em mulheres.",
+#'         auto.key = list(corner = c(0.95, 0.90), 
+#'                         text = c('Alto','Baixo', 'omisso')))
+#'
+NULL

data-raw/PaulinoTb13.4.txt

+scc	nps	rend	freq
+controlo	poucos	baixo	77
+controlo	poucos	alto	87
+controlo	poucos	omisso	14
+controlo	muitos 	baixo	94
+controlo	muitos 	alto	70
+controlo	muitos 	omisso	8
+controlo	omisso	baixo	25
+controlo	omisso	alto	18
+controlo	omisso	omisso	14
+caso	poucos	baixo	67
+caso	poucos	alto	36
+caso	poucos	omisso	3
+caso	muitos 	baixo	143
+caso	muitos 	alto	78
+caso	muitos 	omisso	9
+caso	omisso	baixo	43
+caso	omisso	alto	16
+caso	omisso	omisso	12

man/PaulinoTb13.4.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb13.4.R
+\name{PaulinoTb13.4}
+\alias{PaulinoTb13.4}
+\title{Frequências observadas em mulheres.}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{scc}}{Statu do cancro cervical (controlo e caso).}
+
+\item{\code{nps}}{Número de parceiros sexuais, descritos como poucos,
+    muitos e omisso. Na categoria poucos, refere-se a menor ou igual 
+    a 3 diante aos parceiros sexuais.}
+
+\item{\code{rend}}{Rendimento anual do agregado familiar..}
+
+\item{\code{freq}}{Frequência associada ao rendimento anual do 
+    agregado familiar.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.4, pág. 470.
+}
+\description{
+Um estudo realizado por Williamson e Haber (1994), 
+    envolvendo mulheres com e sem cancro do colo do útero 
+    (variável A), classificadas adicionalmente pelo número de 
+    parceiros sexuais (variável B categorizada em ‘poucos’ se 
+    inferior ou igual a 3 e ‘muitos’no caso contrário) e pelo 
+    rendimento anual do agregado familiar (variável C categorizada 
+    em ‘baixo’ se inferior ou igual a 2500 USD e ‘alto’ no caso 
+    contrário).
+}
+\examples{
+
+library(lattice)
+data(PaulinoTb13.4)
+
+dados <- xtabs(freq ~ nps + scc + rend, data = PaulinoTb13.4)
+barchart(dados, horizontal = FALSE, 
+        stack = FALSE,
+        scales = list(x = list(labels = c("muitos",'omissos',"poucos"))),
+        ylab = "Frequência", xlab = "Statu do cancro cervical",
+        main = "Frequências observadas em mulheres.",
+        auto.key = list(corner = c(0.95, 0.90), 
+                        text = c('Alto','Baixo', 'omisso')))
+
+}
+\keyword{TC}
+