From de1d7c30f5814f9c0c62dd8394ed1f6d28689ad1 Mon Sep 17 00:00:00 2001 From: Vinicius <vinicius.cesar.pedroso@gmail.com> Date: Tue, 18 Oct 2016 15:21:28 -0200 Subject: [PATCH] Adiciona tabela 14.1 livro categoricos --- R/PaulinoTb14.1.R | 45 +++++++++++++++++++++++++++++++ data-raw/PaulinoTb14.1.txt | 5 ++++ data/PaulinoTb14.1.rda | Bin 0 -> 236 bytes man/PaulinoTb14.1.Rd | 53 +++++++++++++++++++++++++++++++++++++ 4 files changed, 103 insertions(+) create mode 100644 R/PaulinoTb14.1.R create mode 100644 data-raw/PaulinoTb14.1.txt create mode 100644 data/PaulinoTb14.1.rda create mode 100644 man/PaulinoTb14.1.Rd diff --git a/R/PaulinoTb14.1.R b/R/PaulinoTb14.1.R new file mode 100644 index 00000000..d1d9995a --- /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 00000000..e6c1e174 --- /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 GIT binary patch literal 236 zcmZ>Y%CIzaj8qGb+{K+WgMne={{#PvJQx^QO&C-dLLBUu|8H<$U|`+AaAU&MU^O4% zQ&qDvXZfh9Ic~WeaNvXy1CLv?;sgnmV5epCW;!!SIb3`tmF&HsZLP%3h_uLQcXcN0 z$rJkXRwr@Wn}0{IOAGXyEjk;lwl{V5v!eNb6hsUbJJxx>=#pcZ>L}-_))KnJlXuxv zNnYlJ*7r3X61=Y$m;Q8H?-r+#`o+ThSH$Jqh^#aGr-iNvbGk4|gtr^<r!3ep_oR)= ti_4{679lEAyUiZ0TYpGpj>AujCnC#a?G7_3^gVj#v7Adt+%Y$p0RZgZVb=fv literal 0 HcmV?d00001 diff --git a/man/PaulinoTb14.1.Rd b/man/PaulinoTb14.1.Rd new file mode 100644 index 00000000..e8b7af39 --- /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} + -- GitLab