Realiza alterações no gráfico e no txt

R/PaulinoTb9.24.R

@@ -19,7 +19,7 @@
 #'     cardíacos.}
 #'
 #' }
-#' @keywords TC dicotomicas
+#' @keywords contingência dicotomicas
 #' @source PAULINO; SINGER (2006), Tabela 9.24, pág. 316.
 #' @examples
 #'
@@ -34,13 +34,13 @@
 #' library(latticeExtra)
 #'
 #' useOuterStrips(
-#'     barchart(freq ~ idade | hipert + grau, groups = sexo,
-#'              horizontal = FALSE,
+#'     barchart(freq ~ hipert | idade + grau, groups = sexo,
+#'              horizontal = FALSE, stack = TRUE,
 #'              data = PaulinoTb9.24,
 #'              auto.key = list(space = "top", columns = 2,
 #'                              cex.title = 1, rectangles = TRUE,
 #'                              points = FALSE, title = "Sexo"),
-#'              xlab = "Idade",
+#'              xlab = "Hipertensão",
 #'              ylab = "Frequência")
 #' )
 #'

data-raw/PaulinoTb9.24.txt

 sexo	idade	hipert	grau	freq
-f	< 55	nao	< 50	31
-f	< 55	nao	> 49	17
-f	< 55	sim	< 50	42
-f	< 55	sim	> 49	27
-f	> 54	nao	< 50	55
-f	> 54	nao	> 49	42
-f	> 54	sim	< 50	94
-f	> 54	sim	> 49	104
-m	< 55	nao	< 50	80
-m	< 55	nao	> 49	112
-m	< 55	sim	< 50	70
-m	< 55	sim	> 49	130
-m	> 54	nao	< 50	74
-m	> 54	nao	> 49	188
-m	> 54	sim	< 50	68
-m	> 54	sim	> 49	314
+feminino	< 55	não	< 50	31
+feminino	< 55	não	> 49	17
+feminino	< 55	sim	< 50	42
+feminino	< 55	sim	> 49	27
+feminino	> 54	não	< 50	55
+feminino	> 54	não	> 49	42
+feminino	> 54	sim	< 50	94
+feminino	> 54	sim	> 49	104
+masculino	< 55	não	< 50	80
+masculino	< 55	não	> 49	112
+masculino	< 55	sim	< 50	70
+masculino	< 55	sim	> 49	130
+masculino	> 54	não	< 50	74
+masculino	> 54	não	> 49	188
+masculino	> 54	sim	< 50	68
+masculino	> 54	sim	> 49	314

man/PaulinoTb9.24.Rd

@@ -24,7 +24,7 @@
 PAULINO; SINGER (2006), Tabela 9.24, pág. 316.
 }
 \description{
-Estudo realizado em consulentes de uma clínica
+Estudo realizado em pacientes de uma clínica
     particular de cardiologia no período de 1989-1994.
 }
 \examples{
@@ -40,17 +40,17 @@ library(lattice)
 library(latticeExtra)
 
 useOuterStrips(
-    barchart(freq ~ idade | hipert + grau, groups = sexo,
-             horizontal = FALSE,
+    barchart(freq ~ hipert | idade + grau, groups = sexo,
+             horizontal = FALSE, stack = TRUE,
              data = PaulinoTb9.24,
              auto.key = list(space = "top", columns = 2,
                              cex.title = 1, rectangles = TRUE,
                              points = FALSE, title = "Sexo"),
-             xlab = "Idade",
+             xlab = "Hipertensão",
              ylab = "Frequência")
 )
 
 }
-\keyword{TC}
+\keyword{contingência}
 \keyword{dicotomicas}