From 306b1063a99acf64acff312dfe029c12e433abac Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Fri, 7 Oct 2016 18:38:48 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20tabela=2013.17=20livro=20categ=C3=B3?=
=?UTF-8?q?ricos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulinoEx13.17.R | 45 +++++++++++++++++++++++++++++
data-raw/PaulinoEx13.17.txt | 31 ++++++++++++++++++++
data/PaulinoEx13.17.rda | Bin 0 -> 339 bytes
man/PaulinoEx13.17.Rd | 55 ++++++++++++++++++++++++++++++++++++
4 files changed, 131 insertions(+)
create mode 100644 R/PaulinoEx13.17.R
create mode 100644 data-raw/PaulinoEx13.17.txt
create mode 100644 data/PaulinoEx13.17.rda
create mode 100644 man/PaulinoEx13.17.Rd
diff --git a/R/PaulinoEx13.17.R b/R/PaulinoEx13.17.R
new file mode 100644
index 00000000..bb099733
--- /dev/null
+++ b/R/PaulinoEx13.17.R
@@ -0,0 +1,45 @@
+#' @name PaulinoEx13.17
+#' @title Frequências observadas em mulheres com síndrome de Turner.
+#' @description Um estudo sobre a síndrome de Turner (anomalia genética
+#' nos cromossomas sexuais das mulheres) discutidos em Nordheim
+#' (1984). As variáveis indicam a presença ou não (X) de um sintoma
+#' particular da síndrome (o peito liso), a maior (1) ou menor (2)
+#' fiabilidade (Y) dos procedimentos clínicos na avaliação de A e o
+#' método de apuramento dos pacientes (Z) indicado pelas razões
+#' por que estes procuram assistência médica categorizado em: 1)
+#' aparência geral; 2) amenorreia primária; 3) baixa estatura; 4)
+#' combinação de 2) e 3); 5) motivos não relacionados com a síndrome.
+#' @format Um \code{data.frame} com 30 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{esX}}{Estado do sintoma X.}
+#'
+#' \item{\code{gfY}}{Grupo de fiabilidade Y.}
+#'
+#' \item{\code{ma}}{Método de apuramento.}
+#'
+#' \item{\code{freq}}{Frequência com os valores.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.17, pág. 488.
+#' @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.16)
+#'
+#' dados <- xtabs(freq ~ gfY + esX + ma, data = PaulinoEx13.17)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("mais fiável (1)",
+#' "menos fiável (2)"))),
+#' ylab = "Frequência",
+#' main = "Frequências observadas em mulheres com síndrome de Turner.",
+#' auto.key = list(corner = c(0.90, 0.95),
+#' text = c("1", "2", "3", "4", "5")))
+#'
+NULL
diff --git a/data-raw/PaulinoEx13.17.txt b/data-raw/PaulinoEx13.17.txt
new file mode 100644
index 00000000..7efe6a42
--- /dev/null
+++ b/data-raw/PaulinoEx13.17.txt
@@ -0,0 +1,31 @@
+esX gfY ma freq
+presente (1) mais fiavel (1) 1 30
+presente (1) mais fiavel (1) 2 22
+presente (1) mais fiavel (1) 3 23
+presente (1) mais fiavel (1) 4 12
+presente (1) mais fiavel (1) 5 14
+presente (1) menos fiavel (2) 1 102
+presente (1) menos fiavel (2) 2 52
+presente (1) menos fiavel (2) 3 17
+presente (1) menos fiavel (2) 4 7
+presente (1) menos fiavel (2) 5 22
+ausente (2) mais fiavel (1) 1 15
+ausente (2) mais fiavel (1) 2 10
+ausente (2) mais fiavel (1) 3 4
+ausente (2) mais fiavel (1) 4 3
+ausente (2) mais fiavel (1) 5 3
+ausente (2) menos fiavel (2) 1 26
+ausente (2) menos fiavel (2) 2 16
+ausente (2) menos fiavel (2) 3 10
+ausente (2) menos fiavel (2) 4 8
+ausente (2) menos fiavel (2) 5 5
+omisso mais fiavel (1) 1 41
+omisso mais fiavel (1) 2 8
+omisso mais fiavel (1) 3 6
+omisso mais fiavel (1) 4 6
+omisso mais fiavel (1) 5 3
+omisso menos fiavel (2) 1 39
+omisso menos fiavel (2) 2 37
+omisso menos fiavel (2) 3 3
+omisso menos fiavel (2) 4 1
+omisso menos fiavel (2) 5 8
diff --git a/data/PaulinoEx13.17.rda b/data/PaulinoEx13.17.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c026dbfea6923da4acaa347ed3aec33c137db693
GIT binary patch
literal 339
zcmZ>Y%CIzaj8qGb)Nwjy&cHao{^0-rFDE)Zv}s^t2uRRh{{Mgjg8%~q;|4~f6PzxA
zTb8f<<?C!}=J~2(vEu?;2RY^7ua3*6eD%3xl3|j;00JsgvN9)t7*Y%jl@4o8c`#_d
zkZe_O)L=QH!O7tyD16cFZxKUVag(j^9L0o5Mq3z_1DRF`SzTpYZR)ao{jEt`n>nTg
zFWg<0UGimd*tUJI-Zy<Zbj6YBs3Y6;oy!sfbnn%7&nusP$w7Pu%QJ>PjUNsj5z8OG
zm@A;l#n__I*kaS>;WNXjSp5d0z{af;ey!^0TEYKU?BMbV`m0-a<-hKzev$D`_4n1w
zoAUi<7oKdk+98tM`iJ+*q!XVwPIg8_oUHtGV9V;9;)!REUrSYyzTLes=&aO>UiFn<
tc&@huNqNN2^1Sig;PU**R(q}(D3z$+4+t_{Tz~Y=L_ZM~Zh?)x2LK-5me>FQ
literal 0
HcmV?d00001
diff --git a/man/PaulinoEx13.17.Rd b/man/PaulinoEx13.17.Rd
new file mode 100644
index 00000000..b312ef4f
--- /dev/null
+++ b/man/PaulinoEx13.17.Rd
@@ -0,0 +1,55 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx13.17.R
+\name{PaulinoEx13.17}
+\alias{PaulinoEx13.17}
+\title{Frequências observadas em mulheres com síndrome de Turner.}
+\format{Um \code{data.frame} com 30 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{esX}}{Estado do sintoma X.}
+
+\item{\code{gfY}}{Grupo de fiabilidade Y.}
+
+\item{\code{ma}}{Método de apuramento.}
+
+\item{\code{freq}}{Frequência com os valores.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.17, pág. 488.
+}
+\description{
+Um estudo sobre a síndrome de Turner (anomalia genética
+ nos cromossomas sexuais das mulheres) discutidos em Nordheim
+ (1984). As variáveis indicam a presença ou não (X) de um sintoma
+ particular da síndrome (o peito liso), a maior (1) ou menor (2)
+ fiabilidade (Y) dos procedimentos clínicos na avaliação de A e o
+ método de apuramento dos pacientes (Z) indicado pelas razões
+ por que estes procuram assistência médica categorizado em: 1)
+ aparência geral; 2) amenorreia primária; 3) baixa estatura; 4)
+ combinação de 2) e 3); 5) motivos não relacionados com a síndrome.
+}
+\examples{
+
+library(lattice)
+
+data(PaulinoEx13.16)
+
+dados <- xtabs(freq ~ gfY + esX + ma, data = PaulinoEx13.17)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("mais fiável (1)",
+ "menos fiável (2)"))),
+ ylab = "Frequência",
+ main = "Frequências observadas em mulheres com síndrome de Turner.",
+ auto.key = list(corner = c(0.90, 0.95),
+ text = c("1", "2", "3", "4", "5")))
+
+}
+\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