Realiza correções

R/PaulinoTb9.15.R

@@ -23,7 +23,7 @@
 #' \item{\code{nalunos}}{Número de alunos.}
 #'
 #' }
-#' @keywords TC dados-categóricos
+#' @keywords contingência dados-categóricos
 #' @source PAULINO; SINGER (2006), Tabela 9.15, pág. 286.
 #' @examples
 #'
@@ -38,13 +38,13 @@
 #' library(latticeExtra)
 #' 
 #' useOuterStrips(
-#'     barchart(nalunos ~ factor(ano) | agreg + drogas, groups = sexo,
+#'     barchart(nalunos ~ drogas | agreg + factor(ano), groups = sexo,
 #'              horizontal = FALSE,
 #'              data = PaulinoTb9.15,
 #'              auto.key = list(space = "top", columns = 2,
 #'                              cex.title = 1, rectangles = TRUE,
 #'                              points = FALSE, title = "Sexo"),
-#'              xlab = "Ano",
+#'              xlab = "Drogas",
 #'              ylab = "Número de alunos")
 #' )
 #'

data-raw/PaulinoTb9.15.txt

 ano	sexo	agreg	drogas	nalunos
-1991	m	nuclear	nao	267
-1991	m	nuclear	licitas	577
-1991	m	nuclear	ilicitas	55
-1991	m	monoparental	nao	32
-1991	m	monoparental	licitas	97
-1991	m	monoparental	ilicitas	11
-1991	m	alargada	nao	29
-1991	m	alargada	licitas	82
-1991	m	alargada	ilicitas	6
-1991	m	sem pais	nao	13
-1991	m	sem pais	licitas	39
-1991	m	sem pais	ilicitas	6
-1991	f	nuclear	nao	321
-1991	f	nuclear	licitas	622
-1991	f	nuclear	ilicitas	35
-1991	f	monoparental	nao	55
-1991	f	monoparental	licitas	149
-1991	f	monoparental	ilicitas	16
-1991	f	alargada	nao	49
-1991	f	alargada	licitas	113
-1991	f	alargada	ilicitas	4
-1991	f	sem pais	nao	14
-1991	f	sem pais	licitas	26
-1991	f	sem pais	ilicitas	3
-1994	m	nuclear	nao	118
-1994	m	nuclear	licitas	289
-1994	m	nuclear	ilicitas	45
-1994	m	monoparental	nao	21
-1994	m	monoparental	licitas	53
-1994	m	monoparental	ilicitas	9
-1994	m	alargada	nao	14
-1994	m	alargada	licitas	35
-1994	m	alargada	ilicitas	3
-1994	m	sem pais	nao	6
-1994	m	sem pais	licitas	20
-1994	m	sem pais	ilicitas	0
-1994	f	nuclear	nao	135
-1994	f	nuclear	licitas	284
-1994	f	nuclear	ilicitas	26
-1994	f	monoparental	nao	27
-1994	f	monoparental	licitas	80
-1994	f	monoparental	ilicitas	13
-1994	f	alargada	nao	20
-1994	f	alargada	licitas	36
-1994	f	alargada	ilicitas	5
-1994	f	sem pais	nao	4
-1994	f	sem pais	licitas	20
-1994	f	sem pais	ilicitas	5
+1991	masculino	nuclear	não	267
+1991	masculino	nuclear	lícitas	577
+1991	masculino	nuclear	ilícitas	55
+1991	masculino	monoparental	não	32
+1991	masculino	monoparental	lícitas	97
+1991	masculino	monoparental	ilícitas	11
+1991	masculino	alargada	não	29
+1991	masculino	alargada	lícitas	82
+1991	masculino	alargada	ilícitas	6
+1991	masculino	sem pais	não	13
+1991	masculino	sem pais	lícitas	39
+1991	masculino	sem pais	ilícitas	6
+1991	feminino	nuclear	não	321
+1991	feminino	nuclear	lícitas	622
+1991	feminino	nuclear	ilícitas	35
+1991	feminino	monoparental	não	55
+1991	feminino	monoparental	lícitas	149
+1991	feminino	monoparental	ilícitas	16
+1991	feminino	alargada	não	49
+1991	feminino	alargada	lícitas	113
+1991	feminino	alargada	ilícitas	4
+1991	feminino	sem pais	não	14
+1991	feminino	sem pais	lícitas	26
+1991	feminino	sem pais	ilícitas	3
+1994	masculino	nuclear	não	118
+1994	masculino	nuclear	lícitas	289
+1994	masculino	nuclear	ilícitas	45
+1994	masculino	monoparental	não	21
+1994	masculino	monoparental	lícitas	53
+1994	masculino	monoparental	ilícitas	9
+1994	masculino	alargada	não	14
+1994	masculino	alargada	lícitas	35
+1994	masculino	alargada	ilícitas	3
+1994	masculino	sem pais	não	6
+1994	masculino	sem pais	lícitas	20
+1994	masculino	sem pais	ilícitas	0
+1994	feminino	nuclear	não	135
+1994	feminino	nuclear	lícitas	284
+1994	feminino	nuclear	ilícitas	26
+1994	feminino	monoparental	não	27
+1994	feminino	monoparental	lícitas	80
+1994	feminino	monoparental	ilícitas	13
+1994	feminino	alargada	não	20
+1994	feminino	alargada	lícitas	36
+1994	feminino	alargada	ilícitas	5
+1994	feminino	sem pais	não	4
+1994	feminino	sem pais	lícitas	20
+1994	feminino	sem pais	ilícitas	5

man/PaulinoTb9.15.Rd

@@ -2,7 +2,7 @@
 % Please edit documentation in R/PaulinoTb9.15.R
 \name{PaulinoTb9.15}
 \alias{PaulinoTb9.15}
-\title{Toxicodependência em Alunos de uma Escola}
+\title{Dependência de tóxicos em Alunos}
 \format{Um \code{data.frame} com 48 observações e 5 variáveis, em que
 
 \describe{
@@ -26,10 +26,10 @@ PAULINO; SINGER (2006), Tabela 9.15, pág. 286.
 }
 \description{
 Inquérito feito com alunos do terceiro ciclo do ensino
-    báico em escolas de Lisboa, sendo estes participantes de um
+    básico em escolas de Lisboa, sendo estes participantes de um
     programa de prevenção a toxicodependência. O inquérito foi
     realizado em duas etapas, a primeira em 1991, ano de início do
-    programa e a segunda em 1994.
+    programa, e a segunda em 1994.
 }
 \examples{
 
@@ -44,17 +44,17 @@ library(lattice)
 library(latticeExtra)
 
 useOuterStrips(
-    barchart(nalunos ~ factor(ano) | agreg + drogas, groups = sexo,
+    barchart(nalunos ~ drogas | agreg + factor(ano), groups = sexo,
              horizontal = FALSE,
              data = PaulinoTb9.15,
              auto.key = list(space = "top", columns = 2,
                              cex.title = 1, rectangles = TRUE,
                              points = FALSE, title = "Sexo"),
-             xlab = "Ano",
+             xlab = "Drogas",
              ylab = "Número de alunos")
 )
 
 }
-\keyword{TC}
+\keyword{contingência}
 \keyword{dados-categóricos}