From e20dd5a5a6557ae537764b206165b2289b9db513 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Fri, 7 Oct 2016 15:46:13 -0300
Subject: [PATCH] Adiciona tabela 13.15 livro categoricos
---
R/PaulinoEx13.15.R | 47 +++++++++++++++++++++++++++++
data-raw/PaulinoEx13.15.txt | 19 ++++++++++++
data/PaulinoEx13.15.rda | Bin 0 -> 272 bytes
man/PaulinoEx13.15.Rd | 57 ++++++++++++++++++++++++++++++++++++
4 files changed, 123 insertions(+)
create mode 100644 R/PaulinoEx13.15.R
create mode 100644 data-raw/PaulinoEx13.15.txt
create mode 100644 data/PaulinoEx13.15.rda
create mode 100644 man/PaulinoEx13.15.Rd
diff --git a/R/PaulinoEx13.15.R b/R/PaulinoEx13.15.R
new file mode 100644
index 00000000..8bff5ea9
--- /dev/null
+++ b/R/PaulinoEx13.15.R
@@ -0,0 +1,47 @@
+#' @name PaulinoEx13.15
+#' @title Frequências de pacientes com algum tipo de efeitos colaterais
+#' avaliados em três visitas.
+#' @description Um estudo feito por Molenberghs et al. (1997) trata sobre
+#' pacientes do foro psiquiátrico em tratamento com uma droga. Uma
+#' das respostas consideras em 3 ocasiões, (X1, X2, X3), foi a
+#' indicação de efeitos colaterais (manifestada pelo surgimento de
+#' novos sintomas psiquiátricos) registrada dicotomicamente nos
+#' níveis 1 (ausência ou presença sem interferir com a funcionalidade
+#' do paciente) e 2 ( presença com implicações significativas na
+#' funcionalidade, podendo inclusive suplantar o efeito terâpeutico).
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{vis1}}{Primeira visita feita.}
+#'
+#' \item{\code{vis2}}{Segunda visita feita.}
+#'
+#' \item{\code{vis3}}{Terceira visita feita.}
+#'
+#' \item{\code{freq}}{Frequência com as observações.}
+#'
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.15, pág. 486.
+#' @references Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+#' fitting algorithms for incomplete categorical data, Journal of
+#' the Royal Statistical Society, B 59:401-414.
+#' @examples
+#'
+#' library(lattice)
+#'
+#' data(PaulinoEx13.15)
+#'
+#' dados <- xtabs(freq ~ vis1 + vis2 + vis3, data = PaulinoEx13.15)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("1","2"))),
+#' ylab = "Frequência",
+#' xlab = "Visita 1",
+#' main = "Frequências de pacientes com algum tipo de efeitos
+#' colaterais avaliados em três visitas.",
+#' auto.key = list(corner = c(0.90, 0.95),
+#' text = c("1", "2", "omisso")))
+#'
+NULL
diff --git a/data-raw/PaulinoEx13.15.txt b/data-raw/PaulinoEx13.15.txt
new file mode 100644
index 00000000..8f8cd231
--- /dev/null
+++ b/data-raw/PaulinoEx13.15.txt
@@ -0,0 +1,19 @@
+vis1 vis2 vis3 freq
+1 1 1 192
+1 1 2 11
+1 1 omisso 29
+1 2 1 4
+1 2 2 0
+1 2 omisso 4
+1 omisso 1
+1 omisso 2
+1 omisso omisso 15
+2 1 1 11
+2 1 2 0
+2 1 omisso 2
+2 2 1 3
+2 2 2 2
+2 2 omisso 9
+2 omisso 1
+2 omisso 2
+2 omisso omisso 16
diff --git a/data/PaulinoEx13.15.rda b/data/PaulinoEx13.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..80178278168cac0a4f69e613ef24233d93f8e22e
GIT binary patch
literal 272
zcmZ>Y%CIzaj8qGbY&y8gih<GM|Iz=}H<%b0tr*xC0vz<!_aAUzaA06yWMJID@T)`B
z*WaUG<Km`X2DSzs|A1r8iVH4eTwrTpYvY)t=;mvZA;oLLz>vS$%&I_gDsNCqrlMNG
zp-BQtPH{VorSvX#G;ua$a_GEc3z)F`n*ZgKD>|mMD7inGc(z+YpT}X^n?>i(t&N+$
z`fp^Y=>eZb64JbTu5MRpDGb=r;!xOd$%U&iNRU}WtV5;CF5*%|>w^=b=6n8cKiB_X
zYU8{ua$2ur=dS;eyJy$^eXr$f<{GwLc4u8UdHO|dL!*sfPDhGMo|^aA@@v7N^o?F=
e!WzBZvU*AT7u{;S5-R><_ax0jEiGcaffoP{`*PU;
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx13.15.Rd b/man/PaulinoEx13.15.Rd
new file mode 100644
index 00000000..66696ebd
--- /dev/null
+++ b/man/PaulinoEx13.15.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.15.R
+\name{PaulinoEx13.15}
+\alias{PaulinoEx13.15}
+\title{Frequências de pacientes com algum tipo de efeitos colaterais
+ avaliados em três visitas.}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{vis1}}{Primeira visita feita.}
+
+\item{\code{vis2}}{Segunda visita feita.}
+
+\item{\code{vis3}}{Terceira visita feita.}
+
+\item{\code{freq}}{Frequência com as observações.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.15, pág. 486.
+}
+\description{
+Um estudo feito por Molenberghs et al. (1997) trata sobre
+ pacientes do foro psiquiátrico em tratamento com uma droga. Uma
+ das respostas consideras em 3 ocasiões, (X1, X2, X3), foi a
+ indicação de efeitos colaterais (manifestada pelo surgimento de
+ novos sintomas psiquiátricos) registrada dicotomicamente nos
+ níveis 1 (ausência ou presença sem interferir com a funcionalidade
+ do paciente) e 2 ( presença com implicações significativas na
+ funcionalidade, podendo inclusive suplantar o efeito terâpeutico).
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.15)
+
+dados <- xtabs(freq ~ vis1 + vis2 + vis3, data = PaulinoEx13.15)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("1","2"))),
+ ylab = "Frequência",
+ xlab = "Visita 1",
+ main = "Frequências de pacientes com algum tipo de efeitos
+ colaterais avaliados em três visitas.",
+ auto.key = list(corner = c(0.90, 0.95),
+ text = c("1", "2", "omisso")))
+
+}
+\references{
+Molenberghs, G. e Goetghebeur, E. J. T. (1997). Simple
+ fitting algorithms for incomplete categorical data, Journal of
+ the Royal Statistical Society, B 59:401-414.
+}
+\keyword{TC}
+
--
GitLab