From 640623fa4988b99f13f4ac5269eed5e59eccf341 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Thu, 29 Sep 2016 16:17:38 -0300
Subject: [PATCH] Adiciona tabela 13.4 livro categorico
---
R/PaulinoTb13.4.R | 42 +++++++++++++++++++++++++++++++
data-raw/PaulinoTb13.4.txt | 19 ++++++++++++++
data/PaulinoTb13.4.rda | Bin 0 -> 311 bytes
man/PaulinoTb13.4.Rd | 50 +++++++++++++++++++++++++++++++++++++
4 files changed, 111 insertions(+)
create mode 100644 R/PaulinoTb13.4.R
create mode 100644 data-raw/PaulinoTb13.4.txt
create mode 100644 data/PaulinoTb13.4.rda
create mode 100644 man/PaulinoTb13.4.Rd
diff --git a/R/PaulinoTb13.4.R b/R/PaulinoTb13.4.R
new file mode 100644
index 00000000..d060385e
--- /dev/null
+++ b/R/PaulinoTb13.4.R
@@ -0,0 +1,42 @@
+#' @name PaulinoTb13.4
+#' @title Frequências observadas em mulheres.
+#' @description Um estudo realizado por Williamson e Haber (1994),
+#' envolvendo mulheres com e sem cancro do colo do útero
+#' (variável A), classificadas adicionalmente pelo número de
+#' parceiros sexuais (variável B categorizada em ‘poucos’ se
+#' inferior ou igual a 3 e ‘muitos’no caso contrário) e pelo
+#' rendimento anual do agregado familiar (variável C categorizada
+#' em ‘baixo’ se inferior ou igual a 2500 USD e ‘alto’ no caso
+#' contrário).
+#' @format Um \code{data.frame} com 18 observações e 4 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{scc}}{Statu do cancro cervical (controlo e caso).}
+#'
+#' \item{\code{nps}}{Número de parceiros sexuais, descritos como poucos,
+#' muitos e omisso. Na categoria poucos, refere-se a menor ou igual
+#' a 3 diante aos parceiros sexuais.}
+#'
+#' \item{\code{rend}}{Rendimento anual do agregado familiar..}
+#'
+#' \item{\code{freq}}{Frequência associada ao rendimento anual do
+#' agregado familiar.}
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 13.4, pág. 470.
+#' @examples
+#'
+#' library(lattice)
+#' data(PaulinoTb13.4)
+#'
+#' dados <- xtabs(freq ~ nps + scc + rend, data = PaulinoTb13.4)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("muitos",'omissos',"poucos"))),
+#' ylab = "Frequência", xlab = "Statu do cancro cervical",
+#' main = "Frequências observadas em mulheres.",
+#' auto.key = list(corner = c(0.95, 0.90),
+#' text = c('Alto','Baixo', 'omisso')))
+#'
+NULL
diff --git a/data-raw/PaulinoTb13.4.txt b/data-raw/PaulinoTb13.4.txt
new file mode 100644
index 00000000..932ab7b4
--- /dev/null
+++ b/data-raw/PaulinoTb13.4.txt
@@ -0,0 +1,19 @@
+scc nps rend freq
+controlo poucos baixo 77
+controlo poucos alto 87
+controlo poucos omisso 14
+controlo muitos baixo 94
+controlo muitos alto 70
+controlo muitos omisso 8
+controlo omisso baixo 25
+controlo omisso alto 18
+controlo omisso omisso 14
+caso poucos baixo 67
+caso poucos alto 36
+caso poucos omisso 3
+caso muitos baixo 143
+caso muitos alto 78
+caso muitos omisso 9
+caso omisso baixo 43
+caso omisso alto 16
+caso omisso omisso 12
diff --git a/data/PaulinoTb13.4.rda b/data/PaulinoTb13.4.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d63bdb027a821fa6ce9640ebcfdf26aa61bfcb82
GIT binary patch
literal 311
zcmZ>Y%CIzaj8qGbe0}fOKL*Co`h)+!M<}>(+A#1kha9w5|9`-Np@ETsaRZ}Nhm>09
zN_)j6mxHB)avd%%IANf6IjfBU3WQXA{k?1jE*MHNFr-b$U~y70beL_ZW|r$KFvX`~
z*O?F<XHDOm7lI5|u5gJxUfBBnp!_PwwlqEiZGZFjl+yjY-s`9IBu^KZu$fm?&-|uR
z=6qSn_j9i-^Pep+VS^!SuhQ?;wxQb=)voLFy3!h=*yNSNByeGtMAI6TODvfmTUCzm
z-a4=SzczcZ8?SH4lRMMreykUocX}7c|BR>SyA7jeTOFAn`@=!Qd7)cNMDfb3v@Z!<
z;=7iWewtM??WEJG2U;_Fo^0JzF4oO2_RX%<^tm^iV}RL#Np0WGJW1QVb0+6WCYJx=
MMXnYB6F>n40Da4a5dZ)H
literal 0
HcmV?d00001
diff --git a/man/PaulinoTb13.4.Rd b/man/PaulinoTb13.4.Rd
new file mode 100644
index 00000000..3624b551
--- /dev/null
+++ b/man/PaulinoTb13.4.Rd
@@ -0,0 +1,50 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb13.4.R
+\name{PaulinoTb13.4}
+\alias{PaulinoTb13.4}
+\title{Frequências observadas em mulheres.}
+\format{Um \code{data.frame} com 18 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{scc}}{Statu do cancro cervical (controlo e caso).}
+
+\item{\code{nps}}{Número de parceiros sexuais, descritos como poucos,
+ muitos e omisso. Na categoria poucos, refere-se a menor ou igual
+ a 3 diante aos parceiros sexuais.}
+
+\item{\code{rend}}{Rendimento anual do agregado familiar..}
+
+\item{\code{freq}}{Frequência associada ao rendimento anual do
+ agregado familiar.}
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 13.4, pág. 470.
+}
+\description{
+Um estudo realizado por Williamson e Haber (1994),
+ envolvendo mulheres com e sem cancro do colo do útero
+ (variável A), classificadas adicionalmente pelo número de
+ parceiros sexuais (variável B categorizada em ‘poucos’ se
+ inferior ou igual a 3 e ‘muitos’no caso contrário) e pelo
+ rendimento anual do agregado familiar (variável C categorizada
+ em ‘baixo’ se inferior ou igual a 2500 USD e ‘alto’ no caso
+ contrário).
+}
+\examples{
+
+library(lattice)
+data(PaulinoTb13.4)
+
+dados <- xtabs(freq ~ nps + scc + rend, data = PaulinoTb13.4)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("muitos",'omissos',"poucos"))),
+ ylab = "Frequência", xlab = "Statu do cancro cervical",
+ main = "Frequências observadas em mulheres.",
+ auto.key = list(corner = c(0.95, 0.90),
+ text = c('Alto','Baixo', 'omisso')))
+
+}
+\keyword{TC}
+
--
GitLab