Adiciona tabela PaulinoEx9.27 ao pacote

R/PaulinoEx9.27.R

+#' @name PaulinoEx9.27
+#' @title Sensibilidade Política de Trabalhadores
+#' @description Estudo envolvendo sócios de um sindicato de
+#'     trabalhadores gráficos, tomaram-se três grupos definidos pelo
+#'     nível de sensibilidade política. Os trabalhadores foram
+#'     inquiridos sobre qual a posição de um dado partido face a uma
+#'     determinada lei em dois momentos, no início e no fim do período
+#'     de uma campanha eleitoral.
+#' @format Um \code{data.frame} com 12 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{sensi}}{Nível de sensibilidade política (alto, médio ou
+#'     alto).}
+#'
+#' \item{\code{inicio}}{Instante em que foi aplicado o inquérito, início
+#'     da campanha política (correto, incorreto).}
+#'
+#' \item{\code{fim}}{Instante em que foi aplicado o inquérito, fim da
+#'     campanha política (correto, incorreto).}
+#'
+#'\item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Exemplo 9.27, pág. 342.
+#' @examples
+#' 
+#' data(PaulinoEx9.27)
+#' 
+#' str(PaulinoEx9.27)
+#' 
+#' xt <- xtabs(freq ~ ., data = PaulinoEx9.27)
+#' ftable(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(xt,
+#'          horizontal = FALSE,
+#'          beside = FALSE,
+#'          stack = FALSE,
+#'          auto.key = list(space = "top", columns = 2, cex.title = 1,
+#'                          rectangles = TRUE, points = FALSE,
+#'                          title = "Fim da campanha eleitoral"),
+#'          xlab = "Sensibilidade política",
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file

data-raw/PaulinoEx9.27.txt

+sensi	inicio	fim	freq
+alto	correto	correto	42
+alto	correto	incorreto	7
+alto	incorreto	correto	8
+alto	incorreto	incorreto	18
+medio	correto	correto	41
+medio	correto	incorreto	14
+medio	incorreto	correto	31
+medio	incorreto	incorreto	75
+baixo	correto	correto	6
+baixo	correto	incorreto	4
+baixo	incorreto	correto	12
+baixo	incorreto	incorreto	57

man/PaulinoEx9.27.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.27.R
+\name{PaulinoEx9.27}
+\alias{PaulinoEx9.27}
+\title{Sensibilidade Política de Trabalhadores}
+\format{Um \code{data.frame} com 12 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{sensi}}{Nível de sensibilidade política (alto, médio ou
+    alto).}
+
+\item{\code{inicio}}{Instante em que foi aplicado o inquérito, início
+    da campanha política (correto, incorreto).}
+
+\item{\code{fim}}{Instante em que foi aplicado o inquérito, fim da
+    campanha política (correto, incorreto).}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exemplo 9.27, pág. 342.
+}
+\description{
+Estudo envolvendo sócios de um sindicato de
+    trabalhadores gráficos, tomaram-se três grupos definidos pelo
+    nível de sensibilidade política. Os trabalhadores foram
+    inquiridos sobre qual a posição de um dado partido face a uma
+    determinada lei em dois momentos, no início e no fim do período
+    de uma campanha eleitoral.
+}
+\examples{
+
+data(PaulinoEx9.27)
+
+str(PaulinoEx9.27)
+
+xt <- xtabs(freq ~ ., data = PaulinoEx9.27)
+ftable(xt)
+
+library(lattice)
+
+barchart(xt,
+         horizontal = FALSE,
+         beside = FALSE,
+         stack = FALSE,
+         auto.key = list(space = "top", columns = 2, cex.title = 1,
+                         rectangles = TRUE, points = FALSE,
+                         title = "Fim da campanha eleitoral"),
+         xlab = "Sensibilidade política",
+         ylab = "Frequência")
+
+}
+\keyword{TC}
+