diff --git a/R/PaulinoTb1.10.R b/R/PaulinoTb1.10.R index f6c6b11916442a8d55bca8e8abdf94ddc1708400..b6eccfda911be3052249bc3b4a48acdee9bd4f01 100644 --- a/R/PaulinoTb1.10.R +++ b/R/PaulinoTb1.10.R @@ -2,22 +2,29 @@ #' @title Pacientes com AIDS em Portugual #' @description De um estudo envolvendo casos de AIDS notificados em #' Portugual até 31/01/95 extrairam-se os dados relativos à -#' classificação dos pacientes. Devido às inúmeras -#' variantes da manifestação da AIDS, a variável indicadora -#' correspondente foi categorizada segundo critérios epidemiológicos. +#' classificação dos pacientes. Devido às inúmeras variantes da +#' manifestação da AIDS, a variável indicadora correspondente foi +#' categorizada segundo critérios epidemiológicos em Pneumonia, pela +#' bactéria \emph{Pneumocystis carinni}, Tuberculose extrapulmonar, +#' Candidíase, Toxoplasmose, Sarcoma de Kaposi - todas encaradas +#' como ocorrendo isoladamente -, Pneumonia associada a outras +#' infecções (pneum.assoc.) e Tuberculose extrapulmonar associada a +#' outras infecções (tub.assoc.) que não Pneumonia. #' @format Um \code{data.frame} com 64 observações e 4 variáveis, em que #' #' \describe{ #' #' \item{\code{sexo}}{Sexo do paciente (masculino, feminino).} #' -#' \item{\code{doen}}{Variante da doença manisfestada no momento do -#' diagnóstico.} +#' \item{\code{doen}}{Doença manisfestada no momento do diagnóstico +#' (pneumonia, tuberculose, candidíase, toxoplasmose, sarcoma, +#' pneum. assoc, tub.assoc. e outras).} #' #' \item{\code{sobrev}}{Tempo de sobrevivência desde o momento do -#' diagnóstico, registrado em anos.} +#' diagnóstico, registrado em anos (< 1, \[1,2\), \[2,3\), > 2).} #' -#' \item{\code{paci}}{Número de pacientes com AIDS.} +#' \item{\code{paci}}{Número de pacientes com AIDS na combinação das +#' variáveis \code{sexo}, \code{doen} e \code{sobrev}.} #' #' } #' @keywords contingência @@ -40,7 +47,8 @@ #' barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE, #' auto.key = list(space = "top", columns = 4, #' cex.title = 1, rectangles = TRUE, -#' points = FALSE, title = "Sobrevivência"), +#' points = FALSE, +#' title = "Sobrevivência (anos)"), #' xlab = "Sexo", #' ylab = "Frequência") #' diff --git a/man/PaulinoTb1.10.Rd b/man/PaulinoTb1.10.Rd index aad5f6613aec1820a438b51fb9b95aa878154976..118b047947336581ae7433a7003776d68e1731bd 100644 --- a/man/PaulinoTb1.10.Rd +++ b/man/PaulinoTb1.10.Rd @@ -7,15 +7,17 @@ \describe{ -\item{\code{sexo}}{Sexo do indivíduo com AIDS (masculino, feminino).} +\item{\code{sexo}}{Sexo do paciente (masculino, feminino).} -\item{\code{doen}}{Variante da doença manisfestada no momento do - diagnóstico.} +\item{\code{doen}}{Doença manisfestada no momento do diagnóstico + (pneumonia, tuberculose, candidíase, toxoplasmose, sarcoma, + pneum. assoc, tub.assoc. e outras).} \item{\code{sobrev}}{Tempo de sobrevivência desde o momento do - diagnóstico, medido em anos.} + diagnóstico, registrado em anos (< 1, \[1,2\), \[2,3\), > 2).} -\item{\code{paci}}{Número de pacientes com AIDS.} +\item{\code{paci}}{Número de pacientes com AIDS na combinação das + variáveis \code{sexo}, \code{doen} e \code{sobrev}.} }} \source{ @@ -26,12 +28,19 @@ Paulino, C. D., Singer, J. M. (2006). Análise de Dados \description{ De um estudo envolvendo casos de AIDS notificados em Portugual até 31/01/95 extrairam-se os dados relativos à - classificação dos pacientes com AIDS. Devido às inúmeras - variantes da manifestação da AIDS, a variável indicadora - correspondente foi categorizada segundo critérios epidemiológicos. + classificação dos pacientes. Devido às inúmeras variantes da + manifestação da AIDS, a variável indicadora correspondente foi + categorizada segundo critérios epidemiológicos em Pneumonia, pela + bactéria \emph{Pneumocystis carinni}, Tuberculose extrapulmonar, + Candidíase, Toxoplasmose, Sarcoma de Kaposi - todas encaradas + como ocorrendo isoladamente -, Pneumonia associada a outras + infecções (pneum.assoc.) e Tuberculose extrapulmonar associada a + outras infecções (tub.assoc.) que não Pneumonia. } \examples{ +data(PaulinoTb1.10) + str(PaulinoTb1.10) xt <- xtabs(paci ~ sexo + doen + sobrev, data = PaulinoTb1.10) @@ -44,7 +53,8 @@ library(lattice) barchart(xt, horizontal = FALSE, beside = FALSE, stack = FALSE, auto.key = list(space = "top", columns = 4, cex.title = 1, rectangles = TRUE, - points = FALSE, title = "Sobrevivência"), + points = FALSE, + title = "Sobrevivência (anos)"), xlab = "Sexo", ylab = "Frequência")