Skip to content
Snippets Groups Projects
Select Git revision
  • e2e62b9e0eefef17c294fbb350d2b8a834b4e630
  • devel default protected
  • eduardo217
  • jhenifer207
  • jhenifer128
  • jhenifer126
  • jhenifer125
  • guilherme190
  • lineu180
  • lineu181
  • bruna141
  • bruna216
  • altamiro187
  • maria134
  • maria133
  • maria132
  • vinicius177
  • vinicius176
  • vinicius173
  • vinicius210
  • ludmila155
21 results

SoaresEx6.17.Rd

  • SoaresEx6.17.Rd 1.68 KiB
    % Generated by roxygen2: do not edit by hand
    % Please edit documentation in R/SoaresEx6.17.R
    \name{SoaresEx6.17}
    \alias{SoaresEx6.17}
    \title{Relação entre a Depressão e o Desejo pela Morte de Pacientes
        com Câncer Terminal}
    \format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
    
    \describe{
    
    \item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
        do estudo.}
    
    \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
        estudo.}
    
    \item{\code{freq}}{Frequência de casos em cada combinação.}
    
    }}
    \source{
    SOARES; SIQUEIRA (2002), exercício 17, pág. 230.
    }
    \description{
    Um estudo feito por Chochinov et al. (1995) contou com a
        participação de 190 pacientes de dois hospitais em Winnipeg,
        Canadá, com diagnóstico primário de câncer terminal, admitidos no
        período de coletas de dados. Uma das preocupações era verificar a
        existência de relação entre o desejo de morte relatado por alguns
        deles e a depressão diagnosticada em alguns casos.
    }
    \examples{
    
    library(lattice)
    
    data(SoaresEx6.17)
    str(SoaresEx6.17)
    
    names(SoaresEx6.17)[3] <- "freq"
    dado <- xtabs(freq ~ dpm + dpss, data = SoaresEx6.17)
    mosaicplot(dado)
    
    barchart(dado,
             horizontal = FALSE,
             stack = FALSE,
             scales = list(x = list(labels = c("Ausente", "Presente"))),
             ylab = "Frequência",
             xlab = "Depressão",
             auto.key = list(text = c("Desejo pela morte ausente",
                                      "Desejo pela morte presente")))
    
    }
    \references{
    CHOCHINOV, H. M., WILSON, K.G., ENNS, M. et al. Desire
        for death in the terminal ill. \emph{The American Journal of
        Psychiatry}, v.152, p.1185-91, 1995.
    }
    \keyword{AAS}