Adiciona tabela PaulinoTb1.15 ao pacote

R/PaulinoTb1.15.R

+#' @name PaulinoTb1.15
+#' @title Pacientes com Endometriose
+#' @description Estudo sobre endometriose realizado na Faculdade de
+#'     Medicina da Universidade de São Paulo. A endometriose
+#'     caracteriza-se pela localização etópica do tecido endometrial e é
+#'     uma das principais causas de infertilidade.
+#' @format Um \code{data.frame} com 49 observações e 6 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{grupo}}{Grupo de indivíduos envolvido no estudo.}
+#'
+#' \item{\code{abort}}{Número de abortos sofridos pela paciente.}
+#'
+#' \item{\code{dismen}}{Sintoma da dismenorréia (dor na menstrução),
+#'     classificada como: N = não tem, L = leve, M = moderada,
+#'     I = intensa.}
+#'
+#' \item{\code{dispa}}{Sintoma da dispareunia (dor na relação sexual),
+#'     classificada como: N = não tem, P = tem, PRO = tem, com mais
+#'     intensidade, 2 = tem em ambas a posições.}
+#'
+#' \item{\code{afsr}}{AFSr, gravidade da doença em que as pacientes
+#'     foram classificadas, cujos valores variam de 0 (não tem) a 4
+#'     (muito grave).}
+#'
+#' }
+#' @keywords dados-categorizados
+#' @source Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+#'     Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+#'     (Tabela 1.15, pág. 17).
+#' @examples
+#'
+#' str(PaulinoTb1.15)
+#' 
+#' sapply(PaulinoTb1.15, unique)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' da <- na.omit(PaulinoTb1.15)
+#'
+#' useOuterStrips(
+#'     barchart(grupo ~ abort | dismen + dispa,
+#'              groups = afsr,
+#'              data = da,
+#'              horizontal = FALSE)
+#' )
+#'
+NULL
\ No newline at end of file

data-raw/PaulinoTb1.15.txt

+grupo	abort	dismen	dispa	afsr
+controlo	0	L	N	0
+controlo	1	N	P	0
+controlo	0	N	N	0
+controlo	0	L	N	0
+controlo	1	N	N	0
+controlo	0	L	N	0
+controlo	1	N	N	0
+controlo	4	N	N	0
+controlo	1	N	N	0
+controlo	1	N	N	0
+controlo	3	N	N	0
+controlo	0	N	N	0
+controlo	0	L	N	0
+controlo	0	M	P	0
+controlo	0	N	N	0
+doente	0	M	P	1
+doente	0	M	N	1
+doente	0	I	PRO	1
+doente	0	L	N	1
+doente	1	M	N	1
+doente	4	I	2	1
+doente	0	S/	N	1
+doente	0	M	2	1
+doente	0	M		1
+doente	0	L	N	2
+doente	2	M	2	2
+doente	0	I	PRO	2
+doente	0	I	PRO	2
+doente	1	I	PRO	2
+doente	0	M	N	2
+doente	1	M	P	2
+doente	0	I	PRO	2
+doente	1	I	PRO	2
+doente	1	I	PRO	2
+doente	1	I	PRO	2
+doente	0	I	N	3
+doente	0	L	PRO	3
+doente	1	M	PRO	3
+doente	0	I	N	3
+doente	0	M		3
+doente	0	I	N	3
+doente	0	M	2	3
+doente	0	I	PRO	3
+doente	0	M	PRO	3
+doente	0	I	N	3
+doente	0	I	2	4
+doente	1	I	PRO	4
+doente	0	M	N	4
+doente	0	I	PRO	4

man/PaulinoTb1.15.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb1.15.R
+\name{PaulinoTb1.15}
+\alias{PaulinoTb1.15}
+\title{Pacientes com Endometriose}
+\format{Um \code{data.frame} com 49 observações e 6 variáveis, em que
+
+\describe{
+
+\item{\code{grupo}}{Grupo de indivíduos envolvido no estudo.}
+
+\item{\code{abort}}{Número de abortos sofridos pela paciente.}
+
+\item{\code{dismen}}{Sintoma da dismenorréia (dor na menstrução),
+    classificada como: N = não tem, L = leve, M = moderada,
+    I = intensa.}
+
+\item{\code{dispa}}{Sintoma da dispareunia (dor na relação sexual),
+    classificada como: N = não tem, P = tem, PRO = tem, com mais
+    intensidade, 2 = tem em ambas a posições.}
+
+\item{\code{afsr}}{AFSr, gravidade da doença em que as pacientes
+    foram classificadas, cujos valores variam de 0 (não tem) a 4
+    (muito grave).}
+
+}}
+\source{
+Paulino, C. D., Singer, J. M. (2006). Análise de Dados 
+    Categorizados (1st ed.). São Paulo, SP: Edgard Blucher.
+    (Tabela 1.15, pág. 17).
+}
+\description{
+Estudo sobre endometriose realizado na Faculdade de
+    Medicina da Universidade de São Paulo. A endometriose
+    caracteriza-se pela localização etópica do tecido endometrial e é
+    uma das principais causas de infertilidade.
+}
+\examples{
+
+str(PaulinoTb1.15)
+
+sapply(PaulinoTb1.15, unique)
+
+library(lattice)
+library(latticeExtra)
+
+da <- na.omit(PaulinoTb1.15)
+
+useOuterStrips(
+    barchart(grupo ~ abort | dismen + dispa,
+             groups = afsr,
+             data = da,
+             horizontal = FALSE)
+)
+
+}
+\keyword{dados-categorizados}
+