Adiciona tabela 13.18 livro categoricos

R/PaulinoEx13.18.R

+#' @name PaulinoEx13.18
+#' @title Frequências observadas numa sondagem eleitoral britânica.
+#' @description Os dados apresentados dizem respeito a concretização do 
+#'    presente cenário relacionada com dados de um sondagem eleitoral na 
+#'    Grã-Bretanha (apresentados em Foster e Smith  - 1998), onde para 
+#'    cada entrevistado A, B e C representam o sexo, grupo social e 
+#'    intenção de voto categorizados.
+#' @format Um \code{data.frame} com 50 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{sex}}{Sexo do entrevistado.}
+#'
+#' \item{\code{gs}}{Grupo social do entrevistado.}
+#' 
+#' \item{\code{iv}}{Intenção de voto do candidato.}
+#' 
+#' \item{\code{freq}}{Frequências com os valores.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.18, pág. 489.
+#' @references Foster, J. J. e Smith, W. F. (1998). Model-based inference 
+#'     for categorical survey data subject to non-ignorable non-response, 
+#'     Journal of the Royal Statistical Society, B 60:57-70.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoEx13.18)
+#' 
+#' dados <- xtabs(freq ~ sex + gs + iv, data = PaulinoEx13.18)
+#' barchart(dados, horizontal = FALSE,
+#'    stack = FALSE,
+#'    scales = list(x = list(labels = c("F", "M"))),
+#'    ylab = "Frequência",
+#'    main = "Frequências observadas numa sondagem eleitoral britânica.",
+#'    auto.key = list(corner = c(0.90, 0.95), 
+#'    text = c("conservador", "democracia", "desconhecido", "outro", 
+#'    "trabalhista")))
+#'        
+NULL

data-raw/PaulinoEx13.18.txt

+sex	gs	iv	freq
+M	profissional liberal 	conservador	26
+M	profissional liberal 	trabalhista	8
+M	profissional liberal 	democracia	7
+M	profissional liberal 	outro	0
+M	profissional liberal 	desconhecido	11
+M	profissional tecnico 	conservador	87
+M	profissional tecnico 	trabalhista	37
+M	profissional tecnico 	democracia	30
+M	profissional tecnico 	outro	6
+M	profissional tecnico 	desconhecido	64
+M	trabalho qualificado 	conservador	66
+M	trabalho qualificado 	trabalhista	77
+M	trabalho qualificado 	democracia	23
+M	trabalho qualificado 	outro	8
+M	trabalho qualificado 	desconhecido	77
+M	trabalho pouco qualificado 	conservador	14
+M	trabalho pouco qualificado 	trabalhista	25
+M	trabalho pouco qualificado 	democracia	15
+M	trabalho pouco qualificado 	outro	1
+M	trabalho pouco qualificado 	desconhecido	12
+M	sem trabalho 	conservador	6
+M	sem trabalho 	trabalhista	6
+M	sem trabalho 	democracia	2
+M	sem trabalho 	outro	0
+M	sem trabalho 	desconhecido	7
+F	profissional liberal 	conservador	1
+F	profissional liberal 	trabalhista	1
+F	profissional liberal 	democracia	0
+F	profissional liberal 	outro	1
+F	profissional liberal 	desconhecido	2
+F	profissional tecnico 	conservador	63
+F	profissional tecnico 	trabalhista	34
+F	profissional tecnico 	democracia	32
+F	profissional tecnico 	outro	2
+F	profissional tecnico 	desconhecido	68
+F	trabalho qualificado 	conservador	102
+F	trabalho qualificado 	trabalhista	52
+F	trabalho qualificado 	democracia	22
+F	trabalho qualificado 	outro	4
+F	trabalho qualificado 	desconhecido	77
+F	trabalho pouco qualificado 	conservador	10
+F	trabalho pouco qualificado 	trabalhista	32
+F	trabalho pouco qualificado 	democracia	10
+F	trabalho pouco qualificado 	outro	2
+F	trabalho pouco qualificado 	desconhecido	38
+F	sem trabalho 	conservador	20
+F	sem trabalho 	trabalhista	25
+F	sem trabalho 	democracia	8
+F	sem trabalho 	outro	2
+F	sem trabalho 	desconhecido	19

man/PaulinoEx13.18.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.18.R
+\name{PaulinoEx13.18}
+\alias{PaulinoEx13.18}
+\title{Frequências observadas numa sondagem eleitoral britânica.}
+\format{Um \code{data.frame} com 50 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{sex}}{Sexo do entrevistado.}
+
+\item{\code{gs}}{Grupo social do entrevistado.}
+
+\item{\code{iv}}{Intenção de voto do candidato.}
+
+\item{\code{freq}}{Frequências com os valores.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.18, pág. 489.
+}
+\description{
+Os dados apresentados dizem respeito a concretização do 
+   presente cenário relacionada com dados de um sondagem eleitoral na 
+   Grã-Bretanha (apresentados em Foster e Smith  - 1998), onde para 
+   cada entrevistado A, B e C representam o sexo, grupo social e 
+   intenção de voto categorizados.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.18)
+
+dados <- xtabs(freq ~ sex + gs + iv, data = PaulinoEx13.18)
+barchart(dados, horizontal = FALSE,
+   stack = FALSE,
+   scales = list(x = list(labels = c("F", "M"))),
+   ylab = "Frequência",
+   main = "Frequências observadas numa sondagem eleitoral britânica.",
+   auto.key = list(corner = c(0.90, 0.95), 
+   text = c("conservador", "democracia", "desconhecido", "outro", 
+   "trabalhista")))
+       
+}
+\references{
+Foster, J. J. e Smith, W. F. (1998). Model-based inference 
+    for categorical survey data subject to non-ignorable non-response, 
+    Journal of the Royal Statistical Society, B 60:57-70.
+}
+\keyword{TC}
+