From 67ec223de8a0c301dfcb7cb7ffe66422bc34c6c8 Mon Sep 17 00:00:00 2001
From: Jhenifer <jhenicaet@gmail.com>
Date: Thu, 2 Feb 2017 17:17:07 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/PaulinoTb1.9.R | 15 ++++++++-------
data-raw/PaulinoTb1.9.txt | 10 +++++-----
data/PaulinoTb1.9.rda | Bin 288 -> 292 bytes
man/PaulinoTb1.9.Rd | 20 +++++++++++---------
4 files changed, 24 insertions(+), 21 deletions(-)
diff --git a/R/PaulinoTb1.9.R b/R/PaulinoTb1.9.R
index f6698926..b667aaa4 100644
--- a/R/PaulinoTb1.9.R
+++ b/R/PaulinoTb1.9.R
@@ -1,19 +1,20 @@
#' @name PaulinoTb1.9
#' @title Grupos Sanguíneos em 3 Amostras
#' @description Distribuições observadas de grupos (fenótipos) de sangue
-#' em 3 amostras de populações de Londres, uma de controlo e as
-#' outras de pacientes com úlcera estomacal ou doudenal
+#' em 3 amostras de populações de Londres, uma de controle e as
+#' outras de pacientes com úlcera estomacal ou doudenal.
#'
#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{amost}}{Amostras de sangue (controlo, úlcera estomacal e
-#' duodenal).}
+#' \item{\code{amost}}{Característica da amostra (controle, úlcera
+#' estomacal e duodenal).}
#'
#' \item{\code{sang}}{Grupo sanguíneo (O, A, B, AB).}
#'
-#' \item{\code{dist}}{Distribuição observada dos grupos sanguíneos.}
+#' \item{\code{freq}}{Frequência de pacientes na amostra \code{amost} do
+#' grupo sanguíneo \code{sang}.}
#'
#' }
#' @keywords contingência
@@ -30,13 +31,13 @@
#'
#' str(PaulinoTb1.9)
#'
-#' xt <- xtabs(dist ~ amost + sang, data = PaulinoTb1.9)
+#' xt <- xtabs(freq ~ amost + sang, data = PaulinoTb1.9)
#'
#' xt
#' prop.table(xt)
#'
#' mosaicplot(xt, main = NULL,
#' xlab = "Amostras",
-#' ylab = "Tipo de sangue")
+#' ylab = "Tipos de sangue")
#'
NULL
\ No newline at end of file
diff --git a/data-raw/PaulinoTb1.9.txt b/data-raw/PaulinoTb1.9.txt
index dc252f60..9828f5b5 100644
--- a/data-raw/PaulinoTb1.9.txt
+++ b/data-raw/PaulinoTb1.9.txt
@@ -1,8 +1,8 @@
-amost sang dist
-controlo O 4578
-controlo A 4219
-controlo B 890
-controlo AB 313
+amost sang freq
+controle O 4578
+controle A 4219
+controle B 890
+controle AB 313
estomacal O 181
estomacal A 96
estomacal B 18
diff --git a/data/PaulinoTb1.9.rda b/data/PaulinoTb1.9.rda
index 4df411ee6f33ab36489b487bff965e4344553980..45971c27912498e7c621d5cb9201815f2547464c 100644
GIT binary patch
literal 292
zcmZ>Y%CIzaj8qGb%yUrDV_<mm|MdT|3I>LW1_~w&R~+h>@1Nnoz{J4FAi%)FxPjr<
zw6<lPOKcr33tY}(>t#4`!p7H0bNQkyxmi+f863Puh9*Wv1|ExMB?@Pn9GD?EvC-t9
zp;3pBdcZovT_PJK?q*!?4LR<!<g>t}plK70O7BWvaN%mVEROmVddnx-=kW}wAT}YV
z)suu+H!VKH{`{{<>ti04CbyOwJ-d8uc31sb_$ye{%F&{+L9MNArZTH@KtjX)O-vn^
zq*rhLeq3^Lq?YoHAiq~@PS0H<KlendsqUJb4;voooH*I|>NvxXX{{dugZP*Hyr9OA
z9@TD~W8Lk@c+v4-LVDLGo8_h=hg_K4Ob&amh^Y2sa^c|kr}w0*V4=dD29Fp3HWhmR
literal 288
zcmZ>Y%CIzaj8qGbbb5Pu2Lr>K|EK?#RWLA2G*B>MxZ+U1eEtjv1||kZ1_1^Z#tjU=
zrtu1yw68EUTe!@Zf!T4whY4A;sxsAP`}zmF&0Fj?lc#Y3LsgTis0~-fR|W=#iwhV`
zj<xn&F&3CC_DW!K*v{42oKug9PucWXW9gd@f3`cM@fXka`4*E^*Q7M}go3w$Q^u4p
zEsa?ZzH(Xqz3T2S%gPtgyTPyKS$&ULzUR-WF(L*6U91zOR6GtA_9iG)Wh}VT<(bzX
zYj)p%a!AL9XN#i#9^1B|u3T6~d+C~7K|?0bGH2OS4nI2=2YY%8Ykqp~*vONsKKG}-
v-_r#N8qJfgSqdd5E1R+`Ol&n=b$-|8_CGDmoC@(r?@aU)Q4!c(@Qwih?cI4u
diff --git a/man/PaulinoTb1.9.Rd b/man/PaulinoTb1.9.Rd
index 80fa0bd9..d2aa8b18 100644
--- a/man/PaulinoTb1.9.Rd
+++ b/man/PaulinoTb1.9.Rd
@@ -7,12 +7,13 @@
\describe{
-\item{\code{amost}}{Amostras de sangue (controlo, úlcera estomacal e
- duodenal).}
+\item{\code{amost}}{Característica da amostra (controle, úlcera
+ estomacal e duodenal).}
\item{\code{sang}}{Grupo sanguíneo (O, A, B, AB).}
-\item{\code{dist}}{Distribuição observada dos grupos sanguíneos.}
+\item{\code{freq}}{Frequência de pacientes na amostra \code{amost} do
+ grupo sanguíneo \code{sang}.}
}}
\source{
@@ -21,23 +22,24 @@ Paulino, C. D., Singer, J. M. (2006). Análise de Dados
(Tabela 1.9, pág. 12).
}
\description{
-Distribuições observadas de grupos (fenótipos) de sague
- em 3 amostras de populações de Londres, uma de controlos e as
- outras de pacientes com úlcera, estomacal num caso e doudenal no
- outro.
+Distribuições observadas de grupos (fenótipos) de sangue
+ em 3 amostras de populações de Londres, uma de controle e as
+ outras de pacientes com úlcera estomacal ou doudenal.
}
\examples{
+data(PaulinoTb1.9)
+
str(PaulinoTb1.9)
-xt <- xtabs(dist ~ amost + sang, data = PaulinoTb1.9)
+xt <- xtabs(freq ~ amost + sang, data = PaulinoTb1.9)
xt
prop.table(xt)
mosaicplot(xt, main = NULL,
xlab = "Amostras",
- ylab = "Tipo de sangue")
+ ylab = "Tipos de sangue")
}
\references{
--
GitLab