Adiciona tabela 13.17 livro categóricos

R/PaulinoEx13.17.R

+#' @name PaulinoEx13.17
+#' @title Frequências observadas em mulheres com síndrome de Turner.
+#' @description Um estudo sobre a síndrome de Turner (anomalia genética 
+#'     nos cromossomas sexuais das mulheres) discutidos em Nordheim 
+#'     (1984). As variáveis indicam a presença ou não (X) de um sintoma 
+#'     particular da síndrome (o peito liso), a maior (1) ou menor (2) 
+#'     fiabilidade (Y) dos procedimentos clínicos na avaliação de A e o 
+#'     método de apuramento dos pacientes (Z) indicado pelas razões 
+#'     por que estes procuram assistência médica categorizado em: 1) 
+#'     aparência geral; 2) amenorreia primária; 3) baixa estatura; 4) 
+#'     combinação de 2) e 3); 5) motivos não relacionados com a síndrome.
+#' @format Um \code{data.frame} com 30 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{esX}}{Estado do sintoma X.}
+#'
+#' \item{\code{gfY}}{Grupo de fiabilidade Y.}
+#' 
+#' \item{\code{ma}}{Método de apuramento.}
+#' 
+#' \item{\code{freq}}{Frequência com os valores.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.17, pág. 488.
+#' @references Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+#'     fitting algorithms for incomplete categorical data, Journal of 
+#'     the Royal Statistical Society, B 59:401-414.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoEx13.16)
+#' 
+#' dados <- xtabs(freq ~ gfY + esX + ma, data = PaulinoEx13.17)
+#' barchart(dados, horizontal = FALSE,
+#'    stack = FALSE,
+#'    scales = list(x = list(labels = c("mais fiável (1)",
+#'    "menos fiável (2)"))),
+#'    ylab = "Frequência",
+#'    main = "Frequências observadas em mulheres com síndrome de Turner.",
+#'    auto.key = list(corner = c(0.90, 0.95), 
+#'    text = c("1", "2", "3", "4", "5")))
+#'        
+NULL

data-raw/PaulinoEx13.17.txt

+esX	gfY	ma	freq
+presente (1)	mais fiavel (1)	1	30
+presente (1)	mais fiavel (1)	2	22
+presente (1)	mais fiavel (1)	3	23
+presente (1)	mais fiavel (1)	4	12
+presente (1)	mais fiavel (1)	5	14
+presente (1)	menos fiavel (2)	1	102
+presente (1)	menos fiavel (2)	2	52
+presente (1)	menos fiavel (2)	3	17
+presente (1)	menos fiavel (2)	4	7
+presente (1)	menos fiavel (2)	5	22
+ausente (2)	mais fiavel (1)	1	15
+ausente (2)	mais fiavel (1)	2	10
+ausente (2)	mais fiavel (1)	3	4
+ausente (2)	mais fiavel (1)	4	3
+ausente (2)	mais fiavel (1)	5	3
+ausente (2)	menos fiavel (2)	1	26
+ausente (2)	menos fiavel (2)	2	16
+ausente (2)	menos fiavel (2)	3	10
+ausente (2)	menos fiavel (2)	4	8
+ausente (2)	menos fiavel (2)	5	5
+omisso	mais fiavel (1)	1	41
+omisso	mais fiavel (1)	2	8
+omisso	mais fiavel (1)	3	6
+omisso	mais fiavel (1)	4	6
+omisso	mais fiavel (1)	5	3
+omisso	menos fiavel (2)	1	39
+omisso	menos fiavel (2)	2	37
+omisso	menos fiavel (2)	3	3
+omisso	menos fiavel (2)	4	1
+omisso	menos fiavel (2)	5	8

man/PaulinoEx13.17.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.17.R
+\name{PaulinoEx13.17}
+\alias{PaulinoEx13.17}
+\title{Frequências observadas em mulheres com síndrome de Turner.}
+\format{Um \code{data.frame} com 30 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{esX}}{Estado do sintoma X.}
+
+\item{\code{gfY}}{Grupo de fiabilidade Y.}
+
+\item{\code{ma}}{Método de apuramento.}
+
+\item{\code{freq}}{Frequência com os valores.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.17, pág. 488.
+}
+\description{
+Um estudo sobre a síndrome de Turner (anomalia genética 
+    nos cromossomas sexuais das mulheres) discutidos em Nordheim 
+    (1984). As variáveis indicam a presença ou não (X) de um sintoma 
+    particular da síndrome (o peito liso), a maior (1) ou menor (2) 
+    fiabilidade (Y) dos procedimentos clínicos na avaliação de A e o 
+    método de apuramento dos pacientes (Z) indicado pelas razões 
+    por que estes procuram assistência médica categorizado em: 1) 
+    aparência geral; 2) amenorreia primária; 3) baixa estatura; 4) 
+    combinação de 2) e 3); 5) motivos não relacionados com a síndrome.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.16)
+
+dados <- xtabs(freq ~ gfY + esX + ma, data = PaulinoEx13.17)
+barchart(dados, horizontal = FALSE,
+   stack = FALSE,
+   scales = list(x = list(labels = c("mais fiável (1)",
+   "menos fiável (2)"))),
+   ylab = "Frequência",
+   main = "Frequências observadas em mulheres com síndrome de Turner.",
+   auto.key = list(corner = c(0.90, 0.95), 
+   text = c("1", "2", "3", "4", "5")))
+       
+}
+\references{
+Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+    fitting algorithms for incomplete categorical data, Journal of 
+    the Royal Statistical Society, B 59:401-414.
+}
+\keyword{TC}
+