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