diff --git a/R/PaulinoTb14.1.R b/R/PaulinoTb14.1.R new file mode 100644 index 0000000000000000000000000000000000000000..d1d9995a550dcf1870a16abdbf0567205eecf741 --- /dev/null +++ b/R/PaulinoTb14.1.R @@ -0,0 +1,45 @@ +#' @name PaulinoTb14.1 +#' @title Respostas das técnicas A e D na subamostra dos casos. +#' @description Singer, Correia e Paschoalinoto (1989) descrevem um +#' estudo sobre técnicas serológicas de diagnóstico da +#' esquistossomíase, tendo como objetivo a comparação de uma dada +#' técnica padrão (rotulada por A), conhecida pela sua rapidez e +#' precisão nos resultados, com outras técnicas alternativas +#' (rotuladas por B, C e D). A amostra envolveu dois grupos de +#' 50 indivíduos, um constituído por pacientes com esquistossomíase +#' comprovada (casos) e outro por indivíduos sem a referida doença. +#' A partir das amostras de sangue de cada um dos indivíduos +#' registrou-se a resposta (positiva ou negativa) produzida por cada +#' técnica serológica. Neste caso averigua-se-á a igualdade das +#' sensibilidades entre a técnica padrão e a técnica alternativa D, +#' através do teste condicional exacto da hipótese nula de +#' homogeneidade marginal, isto é, de simetria. +#' @format Um \code{data.frame} com 4 observações e 3 variáveis. +#' +#' \describe{ +#' +#' \item{\code{tecA}}{Técnica A (padrão).} +#' +#' \item{\code{tecD}}{Técnica alternativa D.} +#' +#' \item{\code{freq}}{Frequências com os valores obtidos.} +#' +#' } +#' @keywords TC +#' @source PAULINO; SINGER (2006), Tabela 14.1, pág. 498. +#' @examples +#' +#' library(lattice) +#' +#' data(PaulinoTb14.1) +#' +#' dados <- xtabs(freq ~ tecA + tecD, data = PaulinoTb14.1) +#' barchart(dados, horizontal = FALSE, +#' stack = FALSE, +#' scales = list(x = list(labels = c("Negativa", "Positiva"))), +#' ylab = "Frequência", +#' main = "Respostas das técnicas A e D na subamostra dos casos.", +#' auto.key = list(corner = c(0.05, 0.95), +#' text = c("Negativa", "Positiva"))) +#' +NULL diff --git a/data-raw/PaulinoTb14.1.txt b/data-raw/PaulinoTb14.1.txt new file mode 100644 index 0000000000000000000000000000000000000000..e6c1e1744a5dae2c17ae4f613cb22c040ca79c31 --- /dev/null +++ b/data-raw/PaulinoTb14.1.txt @@ -0,0 +1,5 @@ +tecA tecD freq +positiva positiva 44 +positiva negativa 0 +negativa positiva 4 +negativa negativa 2 diff --git a/data/PaulinoTb14.1.rda b/data/PaulinoTb14.1.rda new file mode 100644 index 0000000000000000000000000000000000000000..bf192bc0a2cab008c64385e846f0b6196b01489a Binary files /dev/null and b/data/PaulinoTb14.1.rda differ diff --git a/man/PaulinoTb14.1.Rd b/man/PaulinoTb14.1.Rd new file mode 100644 index 0000000000000000000000000000000000000000..e8b7af39254409735faaa278083e899a947dab16 --- /dev/null +++ b/man/PaulinoTb14.1.Rd @@ -0,0 +1,53 @@ +% Generated by roxygen2: do not edit by hand +% Please edit documentation in R/PaulinoTb14.1.R +\name{PaulinoTb14.1} +\alias{PaulinoTb14.1} +\title{Respostas das técnicas A e D na subamostra dos casos.} +\format{Um \code{data.frame} com 4 observações e 3 variáveis. + +\describe{ + +\item{\code{tecA}}{Técnica A (padrão).} + +\item{\code{tecD}}{Técnica alternativa D.} + +\item{\code{freq}}{Frequências com os valores obtidos.} + +}} +\source{ +PAULINO; SINGER (2006), Tabela 14.1, pág. 498. +} +\description{ +Singer, Correia e Paschoalinoto (1989) descrevem um + estudo sobre técnicas serológicas de diagnóstico da + esquistossomíase, tendo como objetivo a comparação de uma dada + técnica padrão (rotulada por A), conhecida pela sua rapidez e + precisão nos resultados, com outras técnicas alternativas + (rotuladas por B, C e D). A amostra envolveu dois grupos de + 50 indivíduos, um constituído por pacientes com esquistossomíase + comprovada (casos) e outro por indivíduos sem a referida doença. + A partir das amostras de sangue de cada um dos indivíduos + registrou-se a resposta (positiva ou negativa) produzida por cada + técnica serológica. Neste caso averigua-se-á a igualdade das + sensibilidades entre a técnica padrão e a técnica alternativa D, + através do teste condicional exacto da hipótese nula de + homogeneidade marginal, isto é, de simetria. +} +\examples{ + +library(lattice) + +data(PaulinoTb14.1) + +dados <- xtabs(freq ~ tecA + tecD, data = PaulinoTb14.1) +barchart(dados, horizontal = FALSE, + stack = FALSE, + scales = list(x = list(labels = c("Negativa", "Positiva"))), + ylab = "Frequência", + main = "Respostas das técnicas A e D na subamostra dos casos.", + auto.key = list(corner = c(0.05, 0.95), + text = c("Negativa", "Positiva"))) + +} +\keyword{TC} +