From 8c496fd52f6c498ac8cd2e89e7c25c0c5e6f4431 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Fri, 2 Sep 2016 16:19:04 -0300
Subject: [PATCH 01/14] Adiciona tabela do exercicio 19
---
R/SoaresEx19.R | 49 ++++++++++++++++++++++++++++++++++
data-raw/SoaresEx19.txt | 5 ++++
data/SoaresEx19.rda | Bin 0 -> 217 bytes
man/SoaresEx19.Rd | 57 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 111 insertions(+)
create mode 100644 R/SoaresEx19.R
create mode 100644 data-raw/SoaresEx19.txt
create mode 100644 data/SoaresEx19.rda
create mode 100644 man/SoaresEx19.Rd
diff --git a/R/SoaresEx19.R b/R/SoaresEx19.R
new file mode 100644
index 00000000..a32c9f7d
--- /dev/null
+++ b/R/SoaresEx19.R
@@ -0,0 +1,49 @@
+#' @name SoaresEx19
+#' @title Eficácia do exame clínico neurológico
+#' @description A hemorragia peri-intraventricular (HPIV) é uma das
+#' causas mais frequentes de agressão ao sistema nervoso central no
+#' período de neonatal e a segunda causa mais frequente de morte em
+#' prematuros. Atualmente, o método de escolha para diagnóstico
+#' consiste em técnicas não invasivas (ultra-sonografia e tomografia
+#' computacionalizada). Tavares (1995) estudou a ocorrência desta
+#' enfermidade em 120 dos 129 recém-nascidos com peso menor que
+#' 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
+#' 18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
+#' neurológico, as crianças foram examinadas por um pediatra clínico
+#' com formação em neonatologia, sem o conhecimento prévio dos
+#' exames ultrasonográficos, que confirmam ou não diagnóstico
+#' fornecido pelo médico.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{hpiv}}{Hemorragia peri-intraventricular presente ou não.}
+#'
+#' \item{\code{ex}}{Exame neurológico alterado ou normal.}
+#'
+#' \item{ef}{Eficiência do exame.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Ex 19, pg 128.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx19)
+#'
+#' a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
+#' barchart(a, horizontal = FALSE,
+#' stack = FALSE,
+#' scales=list(x=list(labels=c("Ausente","Presente"))),
+#' ylab = "Frequência",
+#' xlab = "HPIV",
+#' main = "Eficácia do exame clínico neurológico",
+#' auto.key = list(corner = c(0.95, 0.95),
+#' text = c("Exame Neurológico Alterado",
+#' 'Exame Neurológico Normal')))
+#'
+#'
+#'
+NULL
diff --git a/data-raw/SoaresEx19.txt b/data-raw/SoaresEx19.txt
new file mode 100644
index 00000000..93ab5f99
--- /dev/null
+++ b/data-raw/SoaresEx19.txt
@@ -0,0 +1,5 @@
+hpiv ex ef
+p a 25
+p n 13
+a a 31
+a n 50
diff --git a/data/SoaresEx19.rda b/data/SoaresEx19.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ccbd78e3e2e67ea7319057f55eb6b8c2e94b8a5e
GIT binary patch
literal 217
zcmZ>Y%CIzaj8qGb+}5D<gMneg{{#PxJQNxj4HVcIBpme9?;dbqU|`+Auq|P#^F=jb
zUulh$iyapZzT)-eNMT@LV8~DjwfAUTaDmO?vcm~kl_tI>Lk;GID%+YJuTLn}Rb#GS
zn8YDadE#fH=9G?*O~&~XRX?|#RyE(9$gnJFGUGJ)eHSf+JF`6vL=1H}a!n*6c|5{)
zNis8T3Z1EZSn6)!r-@nG6}vOP9(jH5MCX$9{%3KuS;sy$-m%R3)b{4_nw{rU19>z>
YRa)bhF?MvQJ$mP{oJ&aT0!ust0HwHBRR910
literal 0
HcmV?d00001
diff --git a/man/SoaresEx19.Rd b/man/SoaresEx19.Rd
new file mode 100644
index 00000000..2d068d7f
--- /dev/null
+++ b/man/SoaresEx19.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx19.R
+\name{SoaresEx19}
+\alias{SoaresEx19}
+\title{Eficácia do exame clínico neurológico}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{hpiv}}{Hemorragia peri-intraventricular presente ou não.}
+
+\item{\code{ex}}{Exame neurológico alterado ou normal.}
+
+\item{ef}{Eficiência do exame.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex 19, pg 128.
+}
+\description{
+A hemorragia peri-intraventricular (HPIV) é uma das
+ causas mais frequentes de agressão ao sistema nervoso central no
+ período de neonatal e a segunda causa mais frequente de morte em
+ prematuros. Atualmente, o método de escolha para diagnóstico
+ consiste em técnicas não invasivas (ultra-sonografia e tomografia
+ computacionalizada). Tavares (1995) estudou a ocorrência desta
+ enfermidade em 120 dos 129 recém-nascidos com peso menor que
+ 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
+ 18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
+ neurológico, as crianças foram examinadas por um pediatra clínico
+ com formação em neonatologia, sem o conhecimento prévio dos
+ exames ultrasonográficos, que confirmam ou não diagnóstico
+ fornecido pelo médico.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx19)
+
+a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
+barchart(a, horizontal = FALSE,
+ stack = FALSE,
+ scales=list(x=list(labels=c("Ausente","Presente"))),
+ ylab = "Frequência",
+ xlab = "HPIV",
+ main = "Eficácia do exame clínico neurológico",
+ auto.key = list(corner = c(0.95, 0.95),
+ text = c("Exame Neurológico Alterado",
+ 'Exame Neurológico Normal')))
+
+
+
+}
+\keyword{AAS}
+
--
GitLab
From e69b3f8ba83e54f01c9162d1cd95d4d62f9824e0 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 16:21:19 -0300
Subject: [PATCH 02/14] Adiciona description ao commit
---
.RData | Bin 0 -> 5907 bytes
DESCRIPTION | 2 +-
data-raw/SoaresTb4.9.csv | 5 +++++
man/labestData.Rd | 2 +-
4 files changed, 7 insertions(+), 2 deletions(-)
create mode 100644 .RData
create mode 100644 data-raw/SoaresTb4.9.csv
diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..0e75516338e02c68c952c765beca174a8153a29e
GIT binary patch
literal 5907
zcmb2|=3oE==C{(B5yIEYJPz&S)=Cm&ak=wsV+12B3yZ6(tC*|iA(fd9D$*xgTmvsg
z&EI-!*Hzva$E9J>N9Qhb-H;XSUAX$1XpXjCL&vr*rAp(IK1Rkf8E!rOt9jr2$+?}+
z=T*PE`EKXwBd%&cBUK_97!EMq$Wd-M>eekI_Uk;y1BPceym!e6F)-X_)NOvTo^$QJ
z8R|_UTw4;{nPzb<DcTssa<O3T0S(V>0eVwA5;>bLvYFK9{?PBv&}$NKInmr1E`Q;C
z`i%Ydy;9LE-WTMvO+Eg)r^-BTJU0Dlgyo#4X7_cS)y`aVc3<uB<i?kKDoIIGzRc@c
zYU82e#I2^XKvI0tXCnp6MRL>m@?6BbT-!qQ<|t29n9$K<Htk*~Q)9(UhJ?k7LT6}P
zxR=Pfwz|(_g+s;+x1CZd)wV)P9o*e7RC+2bUW=S<(-vLvDWOekbA+YOmC_e-tEPOu
zux`uS2Bx(^Q?6F4*eJ%D&51Fx;_L2{weRgyZ)*{fihQrpI3awmtm>;{({~-*IYFZA
zap$V<o-H;jXS0NzTDs^}^UD|9z0)L@xGYIfo3mVaTGfh-n}J6Sa>7FNn5W2!ieBxM
zIdh<J1Isk-$`Z*}YuZ*R7W5oD8<CQe%<`x!!76j6%sDZysV!TD{8Hz1CuwKsew8q0
zRX^y_HpTz(>9z;lDX%WE$f!@(O5I{sV!l!Jm<`)kF%y9W3$B}pNHeJliLEf~DGYww
z=y^{<RQuVyh#Lj2^X*<dW?vCI?bWK9g%QkQt6A$;I5`EXtZ+>bDpgq7FCg}6X@z6j
z1~;eg0do{s=Pu?m-Ldq*POHw%A$KqGUp*yxi059{GMC&RORc`tG)Q$vY;Z`wW3@%m
z#N@2R3*Tbi8D{PLiUKe1D#dXvY*f^`ZtijY5ZCqB0-|<XH+b$cz4UGAdJAE}IcqsX
z*{-@yT(@m5!z0C@oy*F-{9W=Z{13mVx)@yXd`qLB&Xu_tC(ROMElSo@X)Wrx9iw-a
zk&`(%x{UFc|I(nX(g~-Sf|)fYEcTU{k}|2!QpYRX;MTdxLCxpfUcO4`+9jR9oS`26
zRsOB);>_;dY6%NhU!J|>hC+uLzfAQMcbV9?Wp2CTyUuLg+;i`Yli=cif37An9PZc<
zcInIVKFuZN?0@DOp4xwR&vjwt-ji&+B@WgXuI{<sEg74C@AX~Do91)A&*AuL_>yt<
zZH>=2<82kAqz&YZ<i1r1%1Q>-vNZE5eeg8dlBzsw>BXCyo}FGer($7*T9bNG@II+d
z<`N+$o>J$w;G7B08+s1x<Vf6Tv@)Pc;Nm?ezRv<4llqnxRz!$%sv1mo6xP|u>c#0O
zK52P*+V30}t;4D=Y`0G+aOyC5W@;(sFJruPN@iPLo|@{DSC!vId2@7~g~KHnRlN+w
zk1bMh7Py%D!eWzJ?bYt+9}yl&$5+*c&dTHDzrOQtj6;20GAsXL$;pQPTF06e%4Ox3
z9DBM@Sd*#!IhSa1fX+&mV_%lJeLc?lVV&3Kgr^U+&N2(+2s$10eEsy^vlS5+E_StY
z%q{o#U9B+ZmWF7vjn9rCmWf@w7tGwm17~tEPu1agZy4eFHp3*?J%=T_CL_drm+R`?
zd|5A4tR&aInzf~wQHFilyS0^)2KvHN(he61swC%0_;pK5Gzw~+UEDhH&9(TY#$j7e
zNxb<KtCrStQPPO{<t-j&kBLSTj_I&Tul)77%;Z#qh~(N<<tA2+t+g+rGxU74*Zgl*
z-B9`J%;amf?HB6J-zqsRt(@`3NnNjX0zY$`x|NN@#e-J!ms}V4wEXZ^w$|cw_f0;r
zPREto<*U|8E>W14<`Vn-Cy%_CgO{MN`5T*vgA8e&ORV^u|GVAV=d;+{F?=hN;=aa(
zt+yUayCzum98nfnl%kY(IQZ1l6*nAoIS)zj{KydDT-JR#iQ{2v!;2Vir$v^j3O5T1
zZ?McVG=A7_^q{@0X}z%eF0Bip{pmq%wuV)WQ<jG`ykeV?vN&|s^3!%c6+sh&bY3o!
zcF!_*nQi{+q}Sw$9Sdw$3Nd~Oy&ydCu#$-(!^eF|CptvxgM_ON-_teu+cfJev&?DU
z<Fl^Fa&4=TXndMvQoQ(vQfjz>@9m0?fUfS~-8_}9s<H=C8g&#eXU&~D|2%`K>r$1#
zRps0rdR7t_diKoJsH!w{&<*HP(%hBTuuJ9E{5FR=gOnma&pPu(4=>&}Jb5REMRP(#
z?=H?IE473e**euGow__jC0FEB&zkGj-fD>%eYXuKzBh_eJSbJ$cvdAK%%g*C)|n$Z
z(L7I$BsBLfe#dc{$w_I67pMHB=cVzpb~!9OA-G6U=t7&j664_wk3NV!_RtOf@X3Yg
z*o0t-BTHXsM>5a3B&m4mjl5Gbm$v#u$v0~ro2Li`?Ul?=4he}eoV!KYNRr2Xp5q3?
z*iV9N6JAa{ZghCU_p;*?&in|P5K;ZWB6CS)@2m@%K}=D4zTUhU+1blNnxCC{Vl+|k
z*2SMs5?0s0ib#@l&Ns?SOg^c})U0yiqEeru^4y~2HotrUJ4*qRw<qpsZJAxkvNmMX
zR->aA^Nt3DMBkD%nYBx%p!8$NFRMqB6L+K~gkFCnej(;fZp$>sWfxl~F!9WA)#~jx
znN)Ogqqlo?Lx7P(JHO#fu4ul~yB219d$c^`5(>FHsl=gvYO-RJ>Pru{73cDkJZg?z
zsJN!~prriT!82P7+5{|SE4m~+J>!?6AN2A?M`->bdCi*AgZF3bpRm7EWuDqU*FUa*
z;(xrJSI4Us6U)N3>Am1(PVxVumwqHgnZIP>+7_a^?Zd7Dy`tqQ&*%7QEq|P<^h@g2
zy*EF8&w3&DHUB#2&F8!B3*HpA%5{CCb79SAf9~mfj4!^OxIa|+634xDll3M?pS9%-
z*gP@wfY#MRb*`b}H`l&gC*xMuea>i0c*yE{<5`IeGt<)ZW*=FQ(&@FI_hxP9w-_NG
zb<?v^Y^OvYwV#=>gd_8!`S%m4od2Y~q<Zfyo4;_&Iib_1ODs8gb@yyuw(P}}&iA)3
zUYZ)vCZg73cT}49+6JvuiJ<Vq+>1G9W!|4Aux)}%@UklFi&iCSx6CuV@1>tj5)i6Q
z-l|>oP^GGftxCj|A;eW9q<-?BnR3>X9({a#)z2?u<%=J4Ik<T2Coh>)|2R0ZG+KIY
z#g+Om<-Y<tE=NE5CAHVb?(WrFyVkoco3=xz(_8Y!LY=~<d~dDW53PQ+^IzCqm~ro>
z<InkaGUh+I&+oZ<{PZ~nQ`N;UT>7+Uv%dJBsmAR7*1A&ptl!;bt6vLGQTy_<OUb21
za%sDK+VZ37$5I~%#H{y`6S`b2o_?-=nUAGJ`LZ?t3PT-ta^*g1OXK)q(~_GcAYHjD
zIoKxn@N@M?AEIZS+p=x3{@c#EW_segm$7F~P0<tcGU>L{t$Y(OLm|H@_T{Cr+~!{m
z0gBBP2J%<Fo)%NAyp_Z^zb0Xst)9b{fR!B&cy*g@)G{k=ZgSbg<8fN!o71{y97}|n
zx>&=+9Fi7xytv`ReDU7htp}pg4(y6~%WKnM;5(_a>=|R*DUqneTg(2>`n~_zKmM84
zmwl~jy_47cwqCClwC2c+0|(y!e|YHP9joJ|$EH4OD)L!>B*QcO`p0WW_Bs^>9eQ<)
z^}OFPrPt>ocw%?6yr|t|`o8D7VK2vNL!~d-3j>NoZFUB<2_!FaXKl90e&n}ws?=$X
z94FO_P4jk@n(=<0b~5oS7tj3{Y&$KDCQga?{%`i4zmrc&A5C*`GC2~P9V2tATEe9u
z<V1oT6IYAU+Ww9QB@s?XwEwJ;lHbeY)xI@j*5llyrc)xPO8hjh?~7Ow@9_0qCtK3|
z)%RX9cz$>N&}G9cD)aS|oc?P2od-@=?%E{EroLuE!_$|C&s?dvaZmi*d@1+Mk<G!O
z^=lfrCBNz`?RwG_BXP1ZanU)Oezpyh9E$=Nm2bE>Z^-VeWL~k4aV6sop>U@qMmbDM
z2h3h=%L<&hE-{KjwZ=kRv?EORnNftE8ney@qq>(e&*N)(=S%2z)Ymode;#=M?Z>ym
zQ|x`-B;D;<vHC)<U+w2W#W{<Wr*j7_bDd)IRCcQ5s~I%`*1?O67BlG-JKkk=mYK4g
zebb?}Q)KSEeX+3pL1TmPwT}9~M<f>ee$<w>Vn6gKBt5=xMShGy&8~~_tbbnmn|{f=
z_>VO{z2ZUOG2#Bj%pb}h9sA@E^yTBR)6F05A6&xAwMO@w>5%{_A8jvf1HMTgmL^?c
zPT1$>rc?6CII8*T*4l_2|8m%>kGAKjd*|Jotb4j)Q@uUIO#hA3?#(VUI?nol|GY%-
zxw#SlAD%VcIOnK*&Bi;4k9roxew}$(XYqReUAOnYFihHeRafQfcg}T_r`IRXJt<qT
z$m+>lfuk3<F4Ir5w5=+4etl>|_{Mz)rOU4^t@v;E|MPslV_SSo?*^Ui3;nTn-u<|j
zKMyK+9)7a)&4fp{0^7~z?R+1z-&}Iu+`qlAJYMfqjbuIlW}m^m(t=xu=LNIRo5}LW
z>glVuyAE<T@0ljE=VEo~%fs8WcTem8SNXWV{c%`L!oFIUf=3&k$f@0z->hdc+u~jJ
z?5cv|^-H}cn?=@7sd=*D!`DCe8Yk-2zFWE^CoV!e=IMjDTQN`f9FdWfnm@Jp>gCu!
zt8W{edl3GdO*z{B$CW=14*$PXZfBKr_fuo$GyU0J%IZ3nUlsLB_GeZFoZVLQTHz)C
zUv;~kHQ%2u&Gx@NwYA+X-hTI@^xEQY0nd-tMsl~!ymw3LO?l{_<NWIS{P`6hPfv-@
zyYudac*y6o@0LE7Dt7Dn#d|KRYDQGenhej^Gd0gn6zu1lVdbK~*VN?GwWkLrO`GoS
z=Hf1Ua{b+14<GofuRHPNuXOwG<ELN!N}U^Z=JvKj_msE1_)`9O{*^D)sdlfQl>gM<
z##{U9<(K)|cY5ycn;{&xW!mS!)d3g1bLyJ6N2_wL+*$K=>i34#;%#@nZI`*f@3LNI
zP0f@}hqUng`m@oAc6OiMwK1q9en0T|a(&Fr^h;mof2tRiUHAK3<d#Qw<(%t(J~{W^
z@Abdk2XxlF=+v+N`f<v?-_x(%So^6kQ*7?0`xc+xtx^0Ob7}7CD6{)ptPbuwEFD|(
z!{uqG#JSIb)_>Md*?aC+)rsQ5zYptDJ<geWUuR!@?AF)cKR+K|E9n@<_nPmx-S+g~
zYu3z@xl|<B5%Ov8rg!h}-AVuadfv5l=ash2*&SzlFv(%%)g2e7`}|CwH~n0PtVPfY
zjR=|jS*Kg(PEF+x-Y%nQDkOKKe!+$%;`RMs7j}Hs%0BHsr_XzTWcs5C{5|t3F5Y;1
zQDyog%VpK)YOmSk{&`fKX*lh^xa=&`74zTUx^u8pyli8NzyDU#oky3Smp=aMN~oR9
z{^ak0_olr3y-r=%&X(J#dWPA3vy0!No<2T!+UK9fY?<fVUcH_Z|Ks^>@po$_ZyHrR
zxzc}r&%2D%o%w$<!d#syKYY~`?bccwVl2Zgq~EhcrReL%HM<Np98xuU`0UrDXAAfg
zZ64oP+oj$5%y03nZ~wPjR6Q}Dl;i&G9drA>^S@J%{_H;;#9T2)x03boo4mQDGb3#B
zb1$5`u;l$xMrGSxyUdpw<?Ah^ro5=o+qz;^nuF^t+jNWn51FptdgRT1XL0uRsps_G
z?5!#CO*z`#wX<&i+5O_%9_am_aCh42i_T%H)8_x*ap&E+JKv67bN$L$d;RzKjvm2$
z@6S8x?4D07z7=zFdZ=x`)}Gn%^7mig{qFK%#<88By2EGJ{Fur+Z|1W7tlvs)itnah
zzpib5e&)@2k=M%K{>Y#2nlj}Ji-Vt=L3xf>&WVGUt>5+j*7%jserlEf-IKEmzb`3t
zua649u*FVu;oBw0{~piV9AEd<z_9E~GpqCTKhGNfXlcah&c3g_R>3m;=f1wxnIF!6
zfB%d3W%R3yQpNu=!{UCkU%Hoi`c2ukFO_1Yzy9s$^)!7W|BNHX>D%n*qTw;MS0+uU
zzOzlMYR&BEgD3xrmh#R{x*UD(UT?<y`H6cadKhnK-JZLrdb^hXfdlVX+AP_ZJp1Op
zZt+u_&F`)H`uEzxjk*sOZ_O^|*1vZ$$K&_I;>8j(-!pFSKD?yc=C|(7`rLbMZc}f{
zA8bAR_vz!;|0dM_+HvHwiVAPf8jd?xru}o(t-klEYac8B^)UaZdPTEt2fe&m?NAW+
zapTlu+{<?Qvqzl`*;E;J=Yp%NdYt^rjg_wRnJ%uJ+2`<0?ENlbH|4j&@>jR9T<y4a
z{6kx`*}d4k38&6&xmKxZ7@zxn{q2bcsqHWSt@qv;xO@8a%Gz+l@@o>6fiWegg&((^
zh+99!v;NLT>6hi^ablB?aOzF5FY+l04dYxT{rcRq-Oq~W?9GzzJYDXgEb!i%_iI@B
z<;mJA%17(;&zptl$!^U4!JT~6a_8@RpCrrQtvSQFB7e;W+qnwab9Vl6{_UQ({J_WO
zuUqzCIlJorqEo7;PggGse{nCfZ&FwJ>9^6ZyZL@t#M*`hef{%m<JZ=g#@vU@*PjXQ
z`W(q^UtIIBQdNo5S6fPGwe~yn*sj_bo0GNAu0FolJ@;GG!R>zgx38I5fAN$aqk;4-
z>%?z=xBcFCR8Ie<TzPhGQ#em9*8}_0W~uAL<SM7B?Ke5G>R!70-JPkvcdV_CO*^*k
zz4+$s?e72H9`gS)Ywx!cw+{T9ID7s2{m(W%`y?~_q;O4Do^4QJLZ)9+^-_gJt>0^A
zdxZrhnif^(?yvoJXUE+6cjg~2w|M{Q#%f#62V3QevUFxt9(xmcOCn*V_knK{>ptrw
z@6>UaGD~((*rDF8?!Ptuu^aB+`<!^T?{-e)Dc1#>&-cw=vgG59n&l6|^-e#neb0XS
zSzG)U5!HTP8Qb>PF}b3_vwyY!)$v|e({Vv9HR9T**4chK(Gx^UlkTnzdeWHm?AEHS
z*H6vg{n<R0haueFe3kE%88c1`Dd}p}1;4ACTloCx*+mD|u>af}$9LlUjj$O%qdESY
ztzPnX=9|(;m-#*AQo6IRnQT9vV<Nk!_S1qZQ<%21Cq50gj?q^)-?#3!(UN5k7rbOU
z`evF)yPSNyVfLR@?yfJN3B26Q`FVb$Wb|L9WqvJ(kH48OCUG(@_+HhSjj!HxPCFIa
z^i=+Pk@<Efv0pvLd9$)?SZBx!?EUiOWOd)~ZI(HDCj+mot&|J@b*_HfNpb7?7d4sJ
z!dIFf35(a=db{MoMcZic&E3Y^cHT6}|6l34FCi;9_@it0*Z1|(Q_Cz95;GS3u=c*T
z=A`y1W6`I_bLIE!c=zG=w-15$k89gKQu5EAx}hvycuo0=PmN*TuDgG%eXDx^ou{YI
zoyjX+EzY_BVe-iz$}`_j>ur2`*<ORk=E=Ute_xg<#})R+N7~yOzxvtn{RU_8^shai
z;|(&8yv?87RdrsgwLR)5^Zfg>Y#lE>xb)e5_cL|b2aQjc=TF(zV}CK`l7Yp;qc4gd
z{uY{dq{9Bm)HRzQo^}=rU(c1a^!vlyPqpqF?5Z#Q`?huF&qC{NcD)~)j{Qt)yX?Jt
zqg;2D-Pb>x>@J$>-^)MT%J$$@vp0W4pxMcT*L17n{a%EgTOX_A>(8D4`{%Kz{nFo;
z?J0k;<|{vM(@MtRRg<;Prd#CAyt!ES^WNY*U*7pFXa7`PR9e1#Ew@<P|BSctzi%ir
zTGh0^-dA~``1Z7CAEww=pPOTG?c7U``PDnBu0LHn@ocI7sdxK+tlaU2^L)~?J&Z?}
zvxooP@#)RK%ifdg_XU@wE?QsUd-R?3V!3r|bc=lVZF{-7Sv<$-u2_#`)ol-({O|+6
z)A!F6-u|C^{f$}Q*UjF)%5I0w(~Es`PrvCur~P*Rr+u~ka&<YguLjQfl+OKE&7;;W
zqsUh0`{mzK(@r#dvS-wnZGNI_p0sQ0$|ZLTUN%pUHT`M(xQ+Ys_w}#NPm-)&RCA>(
zvEkNLCq{=FzSYw$lbr&)MHg&jywJhGHmTk_XQJjQ@3Rdel5G|j=f+N+xbn^J-#_@i
zOUk_v7dh~qm+Qg74gL-Z3Owv=EG$LLe`{+h<?4Liq)SfIy71Ayb?vWhhnyK00ORzZ
AQUCw|
literal 0
HcmV?d00001
diff --git a/DESCRIPTION b/DESCRIPTION
index 64f998a1..4092c831 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -43,6 +43,6 @@ Suggests:
reshape2,
MASS,
qcc,
- multicomp
+ multcomp
VignetteBuilder: knitr
RoxygenNote: 5.0.1
diff --git a/data-raw/SoaresTb4.9.csv b/data-raw/SoaresTb4.9.csv
new file mode 100644
index 00000000..baaaa2f6
--- /dev/null
+++ b/data-raw/SoaresTb4.9.csv
@@ -0,0 +1,5 @@
+teste sem esp
+uts 80 60
+tmg 90 90
+aobp 98 54
+aebp 72 96
diff --git a/man/labestData.Rd b/man/labestData.Rd
index 24932f76..8a8c53af 100644
--- a/man/labestData.Rd
+++ b/man/labestData.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/labestData.R
\docType{package}
\name{labestData}
--
GitLab
From df79272eb3bd2bdeee839a914c77dd78153fc68d Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 16:27:28 -0300
Subject: [PATCH 03/14] Adiciona tabela 18 ao pacote
---
R/SoaresEx18.R | 40 ++++++++++++++++++++++
data-raw/SoaresEx18.txt | 7 ++++
data/SoaresEx18.rda | Bin 0 -> 256 bytes
man/SoaresEx18.Rd | 74 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 121 insertions(+)
create mode 100644 R/SoaresEx18.R
create mode 100644 data-raw/SoaresEx18.txt
create mode 100644 data/SoaresEx18.rda
create mode 100644 man/SoaresEx18.Rd
diff --git a/R/SoaresEx18.R b/R/SoaresEx18.R
new file mode 100644
index 00000000..427bee64
--- /dev/null
+++ b/R/SoaresEx18.R
@@ -0,0 +1,40 @@
+#' @name SoaresEx18
+#' @title Valores de creatinina fosfocinase (CFC) em 360 pacientes.
+#' @description Em um hospital do coração, foram analisados os valores
+#' de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+#' infarto agudo do miocárdio.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{cfc}}{Indice dos valores de CFC.}
+#'
+#' \item{\code{ia}}{Infarto agudo presente ou não presente.}
+#'
+#' \item{exp}{Variável explicativa com os valores obtidos.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Ex 18, pg 127.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx18)
+#'
+#' coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+#' barchart(coleta, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
+#' "80 <= CFC < 280"))),
+#' ylab = "Frequência",
+#' xlab = "CFC",
+#' main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+#' auto.key = list(corner = c(0.75, 0.95),
+#' text = c("não",
+#' 'sim')))
+#'
+#'
+#'
+NULL
diff --git a/data-raw/SoaresEx18.txt b/data-raw/SoaresEx18.txt
new file mode 100644
index 00000000..2259f023
--- /dev/null
+++ b/data-raw/SoaresEx18.txt
@@ -0,0 +1,7 @@
+cfc ia exp
+< 80 sim 15
+< 80 não 114
+80-279 sim 118
+80-279 não 15
+>279 sim 97
+>279 não 1
diff --git a/data/SoaresEx18.rda b/data/SoaresEx18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..aef79019dfe543cb37ac7231c44612988a88775f
GIT binary patch
literal 256
zcmZ>Y%CIzaj8qGb%=a{&&A@Q1{>p!&6ATW_1y9)+BpmeB?;dbq;9%fjU=ZBEa4k(r
zD|6Ybs+n@jGEI2-eSKF>_%eSbv&-d>ipg%x0vDv%9GA@w$kj@fTh_q9*1%xGq;T(=
zm_tgQL&k)bzQ{sWwVABSj6Q1*-%+~ErmxTadHU%G+B^YUm$8IOh+CY!H-n+WWNO%?
zmv&LvhrFX*CW*C}sT>qcSSBoSsLZjWW4+mo4oQZ*OY2v2>aGvieYBrjqV#FO-U&X=
z0TG?@9>v1e%v{sl*psuB&izu;R9~;NN?JPZW6(mYbCZ`DI#kCutM`UKW?~Fb|5&aP
M+{(%JWwPZ40M7Yf&Hw-a
literal 0
HcmV?d00001
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
new file mode 100644
index 00000000..4526c8ac
--- /dev/null
+++ b/man/SoaresEx18.Rd
@@ -0,0 +1,74 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx18.R, R/SoaresTb4.9.R
+\name{SoaresEx18}
+\alias{SoaresEx18}
+\title{Valores de creatinina fosfocinase (CFC) em 360 pacientes.}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{cfc}}{Indice dos valores de CFC.}
+
+\item{\code{ia}}{Infarto agudo presente ou não presente.}
+
+\item{exp}{Variável explicativa com os valores obtidos.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex 18, pg 127.
+
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex 18, pg 127.
+}
+\description{
+Em um hospital do coração, foram analisados os valores
+ de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+ infarto agudo do miocárdio.
+
+Em um hospital do coração, foram analisados os valores
+ de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+ infarto agudo do miocárdio.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx18)
+
+coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+barchart(coleta, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
+ "80 <= CFC < 280"))),
+ ylab = "Frequência",
+ xlab = "CFC",
+ main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+ auto.key = list(corner = c(0.75, 0.95),
+ text = c("não",
+ 'sim')))
+
+
+
+
+library(lattice)
+data(SoaresEx18)
+
+coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+barchart(coleta, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("CFC >= 280","CFC < 80",
+ "80 <= CFC < 280"))),
+ ylab = "Frequência",
+ xlab = "CFC",
+ main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+ auto.key = list(corner = c(0.75, 0.95),
+ text = c("não",
+ 'sim')))
+
+
+
+}
+\keyword{AAS}
+
--
GitLab
From 23d8357dca3d01b7e575e553023118c53475f15c Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 16:29:55 -0300
Subject: [PATCH 04/14] Deletar data-raw
---
data-raw/SoaresTb4.9.csv | 5 -----
1 file changed, 5 deletions(-)
delete mode 100644 data-raw/SoaresTb4.9.csv
diff --git a/data-raw/SoaresTb4.9.csv b/data-raw/SoaresTb4.9.csv
deleted file mode 100644
index baaaa2f6..00000000
--- a/data-raw/SoaresTb4.9.csv
+++ /dev/null
@@ -1,5 +0,0 @@
-teste sem esp
-uts 80 60
-tmg 90 90
-aobp 98 54
-aebp 72 96
--
GitLab
From 6399d0ad98f04b5baceb34ef7ce5790e9c149275 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 17:03:41 -0300
Subject: [PATCH 05/14] Adiciona tabela 6.1 ao pacote
---
R/SoaresTb6.1.R | 49 +++++++++++++++++++++++++++++++++
data-raw/SoaresTb6.1.txt | 5 ++++
data/SoaresTb6.1.rda | Bin 0 -> 241 bytes
man/SoaresEx18.Rd | 28 +------------------
man/SoaresTb6.1.Rd | 58 +++++++++++++++++++++++++++++++++++++++
5 files changed, 113 insertions(+), 27 deletions(-)
create mode 100644 R/SoaresTb6.1.R
create mode 100644 data-raw/SoaresTb6.1.txt
create mode 100644 data/SoaresTb6.1.rda
create mode 100644 man/SoaresTb6.1.Rd
diff --git a/R/SoaresTb6.1.R b/R/SoaresTb6.1.R
new file mode 100644
index 00000000..41e9ac3b
--- /dev/null
+++ b/R/SoaresTb6.1.R
@@ -0,0 +1,49 @@
+#' @name SoaresTb6.1
+#' @title Número de pacientes tratados com AZT ou placebo.
+#' @description Em 1987, FISCHL publicou o primeiro relato de um ensaio
+#' clínico que comprovou a eficácia do fármaco zidovudina (AZT) para
+#' prolongar a vida de pacientes com AIDS. Na tabela é apresentado
+#' os dados entre a relação dos pacientes que receberam o AZT e o
+#' placebo e permaneceram vivos ou mortos durante o experimento.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{grp}}{Grupo de pacientes que receberam o zidozudina
+#' (AZT) ou placebo.}
+#'
+#' \item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
+#' fármacos no que diz respeito ao prolongamento de suas vidas.}
+#'
+#' \item{exp}{Variável explicativa dos valores obtidos.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Tb 6.1, pg 177.
+#'
+#' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
+#' efficacy of azidothymidine (AZT) in treatment of patients with
+#' AIDS and AIDS-related complez. A doubleblind, placebo-controlled
+#' trial. The New England Journal of Medicine, v.317, n.4 p.185-91,
+#' 1987.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresTb6.1)
+#'
+#' dados <- xtabs(exp ~ grp + sit, data = SoaresTb6.1)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales=list(x=list(labels=c("AZT","Placebo"))),
+#' ylab = "Frequência",
+#' xlab = "Grupo",
+#' main = "Número de pacientes tratados com AZT ou placebo",
+#' auto.key = list(corner = c(0.95, 0.95),
+#' text = c("Morto",
+#' 'Vivo')))
+#'
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/SoaresTb6.1.txt b/data-raw/SoaresTb6.1.txt
new file mode 100644
index 00000000..30a4b8da
--- /dev/null
+++ b/data-raw/SoaresTb6.1.txt
@@ -0,0 +1,5 @@
+grp;sit;exp
+azt;vivo;144
+azt;morto;1
+placebo;vivo;121
+placebo;morto;16
diff --git a/data/SoaresTb6.1.rda b/data/SoaresTb6.1.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7854cdb920e058bb80fa9f1c68b61e4befca437e
GIT binary patch
literal 241
zcmZ>Y%CIzaj8qGbjO}Il!oaZp|AYU#JQx@l4H;M%WE||5-~Hgg;K0DZx`E-wgsc9S
zW>xy6+B#o$GC8^UN>%TYPl^pD7cMRqoWRQ<C7}}R68LiB5;g`mH|Hz2{FFJh+srK|
zoiuv0X@_E@O8>eWC%1h#nI98d@!Uy2b@TUz8P}hFJXLo2n~+DFNW%QDQ&z1qSRBfb
z>S-XF<1*n^X5fT_svoy`u`wpROzO`|pEtvLUM2S;omo7mUd?k1Jm<!>tb^O<NV4UX
zxm|PC-VcAo9oH(>EzIe&&E(*U%fV_J%IEd&oABACVTp_2o!FBi51ky#OoT500I+Ur
A<p2Nx
literal 0
HcmV?d00001
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
index 4526c8ac..96c058bf 100644
--- a/man/SoaresEx18.Rd
+++ b/man/SoaresEx18.Rd
@@ -1,5 +1,5 @@
% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/SoaresEx18.R, R/SoaresTb4.9.R
+% Please edit documentation in R/SoaresEx18.R
\name{SoaresEx18}
\alias{SoaresEx18}
\title{Valores de creatinina fosfocinase (CFC) em 360 pacientes.}
@@ -15,19 +15,11 @@
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex 18, pg 127.
-
Introdução à estatística médica/José Francisco Soares e
Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
Ex 18, pg 127.
}
\description{
-Em um hospital do coração, foram analisados os valores
- de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
- infarto agudo do miocárdio.
-
Em um hospital do coração, foram analisados os valores
de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
infarto agudo do miocárdio.
@@ -51,24 +43,6 @@ barchart(coleta, horizontal = FALSE,
-
-library(lattice)
-data(SoaresEx18)
-
-coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
-barchart(coleta, horizontal = FALSE,
- stack = FALSE,
- scales = list(x = list(labels = c("CFC >= 280","CFC < 80",
- "80 <= CFC < 280"))),
- ylab = "Frequência",
- xlab = "CFC",
- main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
- auto.key = list(corner = c(0.75, 0.95),
- text = c("não",
- 'sim')))
-
-
-
}
\keyword{AAS}
diff --git a/man/SoaresTb6.1.Rd b/man/SoaresTb6.1.Rd
new file mode 100644
index 00000000..b6bcb607
--- /dev/null
+++ b/man/SoaresTb6.1.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresTb6.1.R
+\name{SoaresTb6.1}
+\alias{SoaresTb6.1}
+\title{Número de pacientes tratados com AZT ou placebo.}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{grp}}{Grupo de pacientes que receberam o zidozudina
+ (AZT) ou placebo.}
+
+\item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
+ fármacos no que diz respeito ao prolongamento de suas vidas.}
+
+\item{exp}{Variável explicativa dos valores obtidos.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Tb 6.1, pg 177.
+}
+\description{
+Em 1987, FISCHL publicou o primeiro relato de um ensaio
+ clínico que comprovou a eficácia do fármaco zidovudina (AZT) para
+ prolongar a vida de pacientes com AIDS. Na tabela é apresentado
+ os dados entre a relação dos pacientes que receberam o AZT e o
+ placebo e permaneceram vivos ou mortos durante o experimento.
+}
+\examples{
+
+library(lattice)
+data(SoaresTb6.1)
+
+dados <- xtabs(exp ~ grp + sit, data = SoaresTb6.1)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales=list(x=list(labels=c("AZT","Placebo"))),
+ ylab = "Frequência",
+ xlab = "Grupo",
+ main = "Número de pacientes tratados com AZT ou placebo",
+ auto.key = list(corner = c(0.95, 0.95),
+ text = c("Morto",
+ 'Vivo')))
+
+
+
+}
+\references{
+FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
+ efficacy of azidothymidine (AZT) in treatment of patients with
+ AIDS and AIDS-related complez. A doubleblind, placebo-controlled
+ trial. The New England Journal of Medicine, v.317, n.4 p.185-91,
+ 1987.
+}
+\keyword{AAS}
+
--
GitLab
From bc06a545dc99426a4e7d903bb8cdb32a4d004501 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 17:24:15 -0300
Subject: [PATCH 06/14] Adiciona tabela do exercicio 17 capitulo 6 ao pacote
---
R/SoaresEx6.17.R | 50 +++++++++++++++++++++++++++++++
data-raw/SoaresEx6.17.txt | 5 ++++
data/SoaresEx6.17.rda | Bin 0 -> 235 bytes
man/SoaresEx6.17.Rd | 60 ++++++++++++++++++++++++++++++++++++++
4 files changed, 115 insertions(+)
create mode 100644 R/SoaresEx6.17.R
create mode 100644 data-raw/SoaresEx6.17.txt
create mode 100644 data/SoaresEx6.17.rda
create mode 100644 man/SoaresEx6.17.Rd
diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
new file mode 100644
index 00000000..282e9689
--- /dev/null
+++ b/R/SoaresEx6.17.R
@@ -0,0 +1,50 @@
+#' @name SoaresEx6.17
+#' @title Relação entre a depressão e o desejo pela morte de pacientes
+#' com câncer terminal.
+#' @description Um estudo feito por Chochinov et al. (1995) contou com a
+#' participação de 190 pacientes de dois hospitais em Winnipeg,
+#' Canadá, com diagnóstico primário de câncer terminal, admitidos no
+#' período de coletas de dados. Uma das preocupações era verificar a
+#' existência de relação entre o desejo de morte relatado por alguns
+#' deles e a depressão diagnosticada em alguns casos.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
+#' do estudo.}
+#'
+#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+#' estudo.}
+#'
+#' \item{exp}{Variável explicativa entre o desejo pela morte e a
+#' depressão.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Ex 17, pg 230.
+#' @references CHOCHINOV, H. M., WILSON, K.G., ENNS, M. et al. Desire
+#' for death in the terminal ill. The American Journal of Psychiatry,
+#' v.152, p.1185-91, 1995.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx6.17)
+#'
+#' dado <- xtabs(exp ~ dpm + dpss, data = SoaresEx6.17)
+#' barchart(dado, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Ausente","Presente"))),
+#' ylab = "Frequência",
+#' xlab = "Depressão",
+#' main = "Relação entre a depressão e o desejo pela morte de
+#' pacientes com câncer terminal",
+#' auto.key = list(corner = c(0.95, 0.95),
+#' text = c("Desejo pela morte ausente",
+#' 'Desejo pela morte presente')))
+#'
+#'
+#'
+NULL
diff --git a/data-raw/SoaresEx6.17.txt b/data-raw/SoaresEx6.17.txt
new file mode 100644
index 00000000..caf6ddba
--- /dev/null
+++ b/data-raw/SoaresEx6.17.txt
@@ -0,0 +1,5 @@
+dpm;dpss;exp
+presente;presente;10
+presente;ausente;7
+ausente;presente;14
+ausente;ausente;168
diff --git a/data/SoaresEx6.17.rda b/data/SoaresEx6.17.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f8c808b10ef81ed99b0ca076d7246d78db01aff6
GIT binary patch
literal 235
zcmZ>Y%CIzaj8qGb)S7+QfPrCS{e}PEJs21m4I9`PBpmeF?;mhrU~phy-N108QHv`{
zF8GQeuT;jxEzQ1N5|V5Vj2#zJjF?$ER=!y5`^xRY3<aqK;Zu&hsS-Cm>ms^-9`%ef
z&@zcQC;s$Mbl$rNYyC4EXHKrWX~>&@*u}>^(m^xPP3hL>MH*2~8x?k{TykBjBycNf
zvFbwAy?;!V8Ex-NznDI!JiPUMo9oUAEe3XB#{F)0rg%+=cw*Mmt+e`&rEu;A!GhCS
r4fEL5OioS>TB<6fKG){ZLYG@l*2K?pI+!i~C-$VsLnnt-`6UMch?!xc
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
new file mode 100644
index 00000000..14be0f5f
--- /dev/null
+++ b/man/SoaresEx6.17.Rd
@@ -0,0 +1,60 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx6.17.R
+\name{SoaresEx6.17}
+\alias{SoaresEx6.17}
+\title{Relação entre a depressão e o desejo pela morte de pacientes
+ com câncer terminal.}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
+ do estudo.}
+
+\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+ estudo.}
+
+\item{exp}{Variável explicativa entre o desejo pela morte e a
+ depressão.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex 17, pg 230.
+}
+\description{
+Um estudo feito por Chochinov et al. (1995) contou com a
+ participação de 190 pacientes de dois hospitais em Winnipeg,
+ Canadá, com diagnóstico primário de câncer terminal, admitidos no
+ período de coletas de dados. Uma das preocupações era verificar a
+ existência de relação entre o desejo de morte relatado por alguns
+ deles e a depressão diagnosticada em alguns casos.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx6.17)
+
+dado <- xtabs(exp ~ dpm + dpss, data = SoaresEx6.17)
+barchart(dado, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Ausente","Presente"))),
+ ylab = "Frequência",
+ xlab = "Depressão",
+ main = "Relação entre a depressão e o desejo pela morte de
+ pacientes com câncer terminal",
+ auto.key = list(corner = c(0.95, 0.95),
+ text = c("Desejo pela morte ausente",
+ 'Desejo pela morte presente')))
+
+
+
+}
+\references{
+CHOCHINOV, H. M., WILSON, K.G., ENNS, M. et al. Desire
+ for death in the terminal ill. The American Journal of Psychiatry,
+ v.152, p.1185-91, 1995.
+}
+\keyword{AAS}
+
--
GitLab
From 6a839c0d6af17fbde852d67c035e14730a441029 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 18:05:52 -0300
Subject: [PATCH 07/14] Adiciona tabela 6.18 ao pacote
---
R/SoaresTb6.18.R | 32 ++++++++++++++++++++++++++++++
data-raw/SoaresTb6.18.txt | 25 ++++++++++++++++++++++++
data/SoaresTb6.18.rda | Bin 0 -> 270 bytes
man/SoaresTb6.18.Rd | 40 ++++++++++++++++++++++++++++++++++++++
4 files changed, 97 insertions(+)
create mode 100644 R/SoaresTb6.18.R
create mode 100644 data-raw/SoaresTb6.18.txt
create mode 100644 data/SoaresTb6.18.rda
create mode 100644 man/SoaresTb6.18.Rd
diff --git a/R/SoaresTb6.18.R b/R/SoaresTb6.18.R
new file mode 100644
index 00000000..973e7c65
--- /dev/null
+++ b/R/SoaresTb6.18.R
@@ -0,0 +1,32 @@
+#' @name SoaresTb6.18
+#' @title Níveis de colesterol no início e no final do programa.
+#' @description O presente estudo teve como objetivo avaliar a
+#' efetividade de uma dieta combinada com um programa de exercícios
+#' físicos na redução dos níveis de colesterol. Foram registrados os
+#' níveis de colesterol no início e no final do programa de 12
+#' participantes.
+#' @format Um \code{data.frame} com 24 observações e 2 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{prg}}{Expecificação do programa: início e final.}
+#'
+#' \item{\code{exp}}{Variável explicativa com os valores.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Tb 6.18, pg 203.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresTb6.18)
+#' SoaresTb6.18$n <- seq(1:12)
+#' xyplot(exp~n|prg, data = SoaresTb6.18,
+#' xlab = 'Indivíduos que participaram do programa',
+#' ylab = 'Níveis de colesterol')
+#'
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/SoaresTb6.18.txt b/data-raw/SoaresTb6.18.txt
new file mode 100644
index 00000000..7ce23b96
--- /dev/null
+++ b/data-raw/SoaresTb6.18.txt
@@ -0,0 +1,25 @@
+prg exp
+início 201
+início 231
+início 221
+início 260
+início 228
+início 237
+início 326
+início 235
+início 240
+início 267
+início 284
+início 201
+final 200
+final 236
+final 216
+final 233
+final 224
+final 216
+final 296
+final 195
+final 207
+final 247
+final 210
+final 209
diff --git a/data/SoaresTb6.18.rda b/data/SoaresTb6.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..0cb2369dff5d0a3464d87c612212ef6e4f1ebd95
GIT binary patch
literal 270
zcmZ>Y%CIzaj8qGb{Ma?Wk%8g#|LgzjJX{<c4INk+WE||5-#y^Kz`(?ju))dYokQaW
zhFfdfI@KB&7&3Sn7&5-vI{U8NYU{LorIf9j;$((d%)SPU5^4^%3P}?gG8dR!U;qJ=
zWKIr?CI|7@NjFLlN;22V?4QEn%wJG>_RoXgkFOtpc66Tnn)qo^aYhOfcSWRLGRQw@
z=<U6<JS>Gl;o(Um*%_A{wlLOA>0+7KDiGnsu*5mnK<t77%NOT16-j1;);V11ne!&C
zEZ<Yu7<g3rnby)mGil?SKaM<(`ew#+@k4uCxS?pnS)B-t@+TtaXU`N!5n^WPOlGgy
Zy@o}pqeEzh<e%7+A`hLMk7?Dh008U6Y9s&v
literal 0
HcmV?d00001
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
new file mode 100644
index 00000000..5d74392d
--- /dev/null
+++ b/man/SoaresTb6.18.Rd
@@ -0,0 +1,40 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresTb6.18.R
+\name{SoaresTb6.18}
+\alias{SoaresTb6.18}
+\title{Níveis de colesterol no início e no final do programa.}
+\format{Um \code{data.frame} com 24 observações e 2 variáveis.
+
+\describe{
+
+\item{\code{prg}}{Expecificação do programa: início e final.}
+
+\item{\code{exp}}{Variável explicativa com os valores.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Tb 6.18, pg 203.
+}
+\description{
+O presente estudo teve como objetivo avaliar a
+ efetividade de uma dieta combinada com um programa de exercícios
+ físicos na redução dos níveis de colesterol. Foram registrados os
+ níveis de colesterol no início e no final do programa de 12
+ participantes.
+}
+\examples{
+
+library(lattice)
+data(SoaresTb6.18)
+SoaresTb6.18$n <- seq(1:12)
+xyplot(exp~n|prg, data = SoaresTb6.18,
+ xlab = 'Indivíduos que participaram do programa',
+ ylab = 'Níveis de colesterol')
+
+
+
+}
+\keyword{AAS}
+
--
GitLab
From db980c70933d785834d58f4e9d4fe8dedda20e65 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Tue, 13 Sep 2016 14:55:57 -0300
Subject: [PATCH 08/14] Adiciona tabela do exercicio 6 capitulo 6
---
.RData | Bin 5907 -> 4531 bytes
R/SoaresEx6.6.R | 38 ++++++++++++++++++++++++++++++++
data-raw/SoaresEx6.6.txt | 19 ++++++++++++++++
data/SoaresEx6.6.rda | Bin 0 -> 227 bytes
man/SoaresEx6.6.Rd | 46 +++++++++++++++++++++++++++++++++++++++
5 files changed, 103 insertions(+)
create mode 100644 R/SoaresEx6.6.R
create mode 100644 data-raw/SoaresEx6.6.txt
create mode 100644 data/SoaresEx6.6.rda
create mode 100644 man/SoaresEx6.6.Rd
diff --git a/.RData b/.RData
index 0e75516338e02c68c952c765beca174a8153a29e..70c6796daf9dff8f049169fa38f85a8098b89bc5 100644
GIT binary patch
literal 4531
zcmb2|=3oE==C@Yd7E_|H8>ijTe>%-euk()IBx}o=E)S=uSUMS<u};p)JIkY}qB+%N
zg^1PCNij-ZLNkR$Wm~6Q@>Ep1;u!SvQqB7rmF&sSmaH%S_xb<-&z191-+!;YelPoN
z>Fw;dw(H8|+=S$W3?zIw+8hofI&p017Ge5-FwtX%#f`2XlQ|h=d7BlNMEWPkCm3jP
z7&|x=-%^+t$iXv@!|YPBaC85gGNCSs4kssJMyVg3^P0_zd8YrB-FfE39idmztD_~H
zcp@eAl4=u^H@o#FPS83(LGh7^*hkMJEtXR(k}WF!Mb!I+bDWPlDSj{TAB#zE`IG_!
z*|+Y^atG`fA4s-+aTn%@N%WO6l?)W|UM9rMnIRWb!IGXBlgV^Y<lJh{ieGyw*0B24
z9gV#)<*1@z#<ZxN=Y?LM%+PY!%paGen9!mkefaG8BMc(;PV?5@Fx>4>#Bfmce6lNx
z0*8XbA{Qr}1&sDw+x?$?6D(2Ud&PFiGDtYB$gTMKkwt%Brf9WCc5sUe*f@S*KA3o@
zI{RF;u|UmDW2J?Xf-$*FCRPWwDm9##YTv8Wz{xpHgm**8g*_G1bo^BF%^S|-oe@+z
zSns3u*;xLfm*XN+<AhH6gM}T2H_tsg@g<t!U+#fNu3}MA*Dq|W5So>GJo#Ridg!yC
zk59h39LCoDR!U%(Lk6Q@q}L0EhrBo9Ik)Xq_|jbKDe$bYV7225=7*dd>m4&vzdy7}
zh~{*X<&bx%U~ppY7up%;yYP|P&$C~?s2zV27;G+Ydhnv~n^@i!O9hFI?3)BycTDbK
zer?-yQus;BG4&@U8ch2qu;_?LIviwo%;RI}->hxpI=RVd8V9#9kLDtuZ<{5aN6z7V
z%&E*Ec8u3y(w_L6b3XJvC}1g6Jv>LFE^oue7ET_22_yGg52`z36=J3Or#!4t;rY*|
z?e;0^=#002c#Ebyn0h0{N$27TV^$8QBBzW8!ljD(^Ad7{Z6q7{mO4lCwKjZX|8wGU
zVX_|YLQWGFH*TewUhQQGDFSvGQ7StgS~fZ>we+4fw^1$#dB^8?*jf9Rp89j?Zr+%S
zDm*hY9GDq+q~keK#OEFPHO)5YvuCEA(zef`u`k0WKTmxxeBXHTmQ3kGHE%e!#VyZM
zdbcK^vf$5;jk983#qZiH<XtxF>au&bX5TMs-;Zh!e0|h$^VYR`Gk4n6?lj!BvtaID
z#wE!qw^!Y`zB-i2Y0)HUzONA{k7mBJl(tLXd~<W}`X@D;G<2=5Pqu4+rdMdW{GwF#
zAqyql4el}KTFEarh2(dBSaZtm<&C^gq3355f3KhOFjrvTy%nKvUn<>9>DO!4)0SNP
z_4)4Wi8|HdH7D-f7mzXieM<E1)Y-pW{C~$-Cd}!!pRcGnYhsP(yUCZBR_eXH|Eb1g
zJ@5T#FSPDRO4Q$6`EEi)%w_-mhm^1D=dJUxm+CKDy(?&beCfFZYQYODFHE~~J3;H^
z%SE1Z#5XF3=LXcIDLi$Y6Vld`Uwz<0>!+MouAkYTT|Do6-Z)KL%dq^+g<Cf2$3CV`
zt83b`+r)HRqIA{gcRQ+VE#FSoO~0=AVMqUqM@4(jtNT94+U}=vH|uqdeMSEBHX{d@
zA5W&YoRBJhJhSQ|@8Wx>mGbxReSG=9@H3`QN6*LkF7J%?a*0~{L_6r(vpo|;x9wUS
z9VU`Gcg4rF&^i0Oj>;as(%0=eJ->72yh`=TJv*P4?)NF{e5&uV=Ik$@9~X}PQgJXk
z{_U?qn#bj}{|?{dPs)#3_saeI+;?a4Cf{F}vA+4df8aIUZ5w7?)VlmDsnN6Q@29DH
z8{3rT7NqyieZNk&kD)F)y~Je8PCHW`*{G02$B%YR!B<aQ-R$nVvri@Gmhz>qpBp}R
zrpmRk9n>={j7t|jy)N}qe~0Z<tFS$HG;<zsI94{sdvTkVF08y-y!hCRi><rO_Uhby
zxhzOmW>rStu2jYwt7gs>K4%ho*^DRrM7B;*sN96|+`#Z-vHJsg^;dO%y0!Q4zqd8&
zmlwG1<h`r;^HQUf!@8}{Z3H`0UQPV!mmeh}m#zQT^WM%E;!kxBJaFav=$7ZZ@Y!?q
zUEy_is}oN!?_H4ocz62Zt99A(ZZ<uekJ*;p|MV|z?nIrm)(>pz{es)IJy*Xlz7n@)
zrs#~isezWCipqcSxBGj)m-pSUrdZ80H0n%Y)vbxbDv?Etmc<;u{p;(_v)|l)E^D)_
z+nT=Rs%g!;uPyeviFwP<y|IrJ_5b$b?3P{sj5lT}XMUOfZc?t_=B&cPc6Zx5;XhWF
z@6!9Ha_?hV-1aiRM*$U^r>p)A{$A}rHRj097Y0#B7YbeRdSBiC>aafB{=+hR^k45e
z!hH4W&Zw<{E1rKX^=c|=EbhAZ>DJEqp<0jGreC}1Y89KzV`-W4##;WvrB~lwMfJL*
zLJl4NdGKWE;oNmIjJcyFZ=`O`ojGxNl->~+O<w&sc~!42m#>#f)$Laf^q#&X&}Vmk
z);ve4D3`NdGiP74SzTvx@%FF3b6-5^F=q^1zv!{#zpIa~DPA+;e5t?Mbl%Q4!rr!`
zWde2aiSuH2=RVTi+~Toy#b&NEt9O_5J?o9gov}JVe$%#|2d@`aRW3_!h>@=<e0^%m
zy<6@szpu&fbu(e&Vk+g@(h>B#C_nnO_!+q?yLNB7|MzN|^-J$++n7^TYkHdbzrNp@
z9GJG+V9|uPGG)RGgI`<!|Fmesn^e`W`$dIK-u-JlyK3Fdst-v^k|Oo|E_>`u(#=|(
zdHm_LQ{sH3LPbk!t7jVfZ&&<X_WIhctFxY*c5N~C7nD=TviJD=&il%$U7XE#FWj6Y
zI`8*`tiG+fuMAB^wqKqQ_I6$6%H8Lc4l6!*x&HehVIOT9`{dW<>fzV-Zpgja)yg<g
z<+Y?}k={FXWh0)jFIG>qe|w(P`&J>=W%+QGkeJNP*-zhJla;t`+cQmar=Ir9pk0Bl
z+N<THU!L>%e#FkJ<^4x)U-s$?Ui&)F8{gXN9JA?}_Oh$*xFSC7{P%0sq3c}Yzh+)^
zUv-P^eq~Haob)btc8v^EUj50Hf0}2XO#9?(bSUQT)peV6UOqAs_lflQt-L7gK;HxR
z)sxMa*V@&`XME_tYq{aqr{7-|pG-^&JMnjEbyCvn>5oNz_lfNBc&9O~QeoS&<JXI)
zKYBH9kLs)MA>nSCsW;2tZ~FMEdUx#+E4F!_XTSZN`>E)^%-OlF>^hJ5uFaXzetPwE
zsfyrhv9fb}c0U#>%}-%I{QimTYx`|y{dT;)z51f?RlRMm0%wOjSi_yk%<q39_Wah)
zFKe<xKJfBg6clQV)IBD0wY_JJibt=+%q8ijs`tX;p8PJk{^x38TkqOc`u^!_cC?%m
zy1VPm0=Zmg$--i`tM6)a_UE=vmHidA`nVr2tM;q*bdfh(wO*I}Eot46yv>~Zo7nbM
za$MZe=Ii(FGfJ&Iwl3Y-ip_Yt_tZO#r~c@;_ST)Bl4vqLeWpm<#Ff(w&TG{^6`fj;
za`@i9_TF`Qwvpe3Hy@T?xqJ`Ddfw?3x3%&G$~HGoTvmK_qfz*;5BD~?@LoLls7%@U
z_IB^{>y~9t4Y|0>#x~8yQ^U5EyIM7I{e)e-d8-#MW^&%sIQ{5?%dt5#ew*^0S!g9P
zE6RIjI$zaui`<Ha^E(*1Kctp~{M@3|RF`4=N8?|o`>SmaBd-e!&YzTjGrZ))ue+1<
z*G}Jd=fg>@{jT#Xbd=VfU-^FBY5hZ@O036^{_X2oVKjT)wX#U&my17YyxsGuThD*#
z{C%+#!)IEBTr<dezvyOhN$tOVyk5J!zun8QyBsE0Ue;Z*|8-Mo`nmYXY`X^%(^Jy!
zto&ARM1tX4X6I!2`X#BVH5p=@-MWU`viH@i6#qWuxO3k8!1*O_^g>GOg6i%REPj73
z|E;pPSzfHn!jv4&^%siXZHS#e?OW>NExyP5-kJxNPW*g1be_06$I}a!PJe!KZO6H<
zWyfp`FP6vj$;5toXOX+@(7wa7jbyG>#MPP?R9+Xl{bH}OMa0#<h10%&JATCM{@<^T
zp3BPKUz{(idtPPAbH-g;S1&f2)KC}I^YP<Wq3|ThpRW>kX1%@Xdu)C@OGfph+uLk9
zB{tZ*-uSG#BPMHJ@|oS&7f<mKW}mq=ajy4moA;|?UhJ$d_qEw~J6B`T!@7?2)JyxX
zh3XcVEKYNO9L6}&Yg5%DKli_XKDWz7o4)_ZBfaYLJ<0I9C7YPN-MCb3H&^|=m%Q$O
zbN>^eud_|UKYFzN3kv@|nO#_`=Xupu)?=@AcHOpFli}|r!~5e+*~SS!Hcnph<?^9>
z*Y2E_&s%eY?MR(XuG-r0y+==#PIW6tZn#`?QRwWkOMkiB;#Rr2%YNw%wz6Myr!3pL
zF!A6<d6UvP;&xVBzdrL@E$X>>u?YW+rCS8F=IgX@Z{Jy!@~7~eLZgFC!p<!b>$Ynz
zd2v%Uw48HI2lHj8vWbi5^uH=@EBxa4l=0WHJ$I`tPCI*Y2HkolzI1k4W#qhb|0XJC
z&%L`q?D+>l(+#?;x4&#!v}4cXvnNz7kD9DpXV2xVzjxO)t38YMg(sS^uKcRAEcfFD
z;qQ4f=NNBKJ~b;NYpcBc)7+C9TQuKx##~n_>8!t-E6<~L{aMYX?0HqQ@}FsU@hxFg
zdAGAsf^|;8o1g3bHtug1Fu#~K_iJa90<+V!1uoLgibbalxO%^pr`|fWMymf<@R>7D
zLYNi*CwiXUeq(0XN~5nDjmsbWu-102EBz`_J1;!OPED-;R8yBbi|B#EGf`Y~I+m6w
zPDx+v@!qKVFjtwg$c73}S@#RuR{UdVU1$ALrpGlUM@_}K*_836R@dD)N6r4T9;q9m
z<2E`Sult}HaGc|ngtP2q&(F*n60iA}hCcax=iE-VrRFgq68@ek8CS|VUY>g;WUyc1
z+|5{t?Xu-Oea|<pTy)3$;VR>$@{8}71f4PGd$s7!Yrgei=l-@t#XD%diqQWxe|=Z>
zaRalnhI=`RUvwE-$mc};+|FZf#&-Cc+P`m&et)~tja)bW-}Gi{<=5K|(KB!H*!^po
z^G1I|=Rc#^ealmYC-YZdG?9{XpSA0rp=8g^1!vvQ-LeZ?s&T(#mNlbzSCfv-k4+bj
zH>;oew6OUOC%awDPi|*+zuPM&{Lfvyh`D(oJJ*Z*cQ!Lw&1Cp#E9!eoOJUZ=WwWwm
zKIKeP7i{mzc(iekK;w_8m$z(OoO(~W?!;Dw`SVVG%xvL!f3QekR#&>KgcN_G3Zwtx
z&CjnsnQ$fP&@wjGz;DM6?5cPeC~&`lTRg$RNjTg%Q&c$BvNG}U@~8!pg1j6V`#(lA
z?nvksQVTX@C~dN<crSkB<Am6MoRcJW#0Q;FkunfX&vHor=>C|CXV>zFmKvMXSs$)U
z5fZ%9dhmH*T-5`%UdE|MFHSZqmfAHjC3lH-#C5-9@nqphAyrl(My-4EzXu+;XX>gw
z=dWW7gY<>Dhs*CS;aFl9IXCBFk#Du)=hs4)68|wjTV?&UVa9HWy`AkBWM=)Ux%c<L
z^Sj$4ZYw?8kt*rq?AJZ>|K>Df)0@e&PhP+5l3_BPUGv2HKPMT)y1yT9&ST|tmH85D
zqbA_{z>Cv`@z2itHy_TqJN?+Bmn96z0xfDROae?>G(YBvO_Er{Xku<sYVds9B;&6)
zO7-Mj8!J`V6gX}<N9<<UazxT+-Yut;rh`fr2i6~(@h$a-i8pVDUQO2N;G#b_xBfEm
z;uTZ8#?Kt_zA53cy;uXcmZjSLqyJf1kDu7_BmHw%{jQ~Vm%QGYzv5ZNk>68ydfpE?
zaQ5Ms$m{)XOiNByn{s^JP@nmeO-#H+^C;^vr$E;&%hxWt-@9&_@b5p;UEF0sCiDKx
zK6BKfY+0P^#@k74uV(K({?uvPq8qwjcXxC9S@E8$zv7@Se>CFGzN@!4t4XF>PRZEi
z@b8nki1=f}&##ZR&gM8_^G!D^mSfshzA44tj*E}oa@8o0e7ksw`j7fGJ047l;(2`N
zOF?~k{p@we)~u-5c%`fC&ok4PMcV%tK1w>H79nDy7W8b*1b@qqb=`|k9@wD$=6{{#
zMu!89jn|IU{_sD=dT&nG{T=)DmP_fcx6HFC{QG#`S^MRWw0_n*`yKW7yFWYFcOsv^
y-%;;kFRgQvi@3cmE_a{XntI~T`lWyBH%$4Tc0c~)zQp){yxX5&-}+dKfdK%yu+B9A
literal 5907
zcmb2|=3oE==C{(B5yIEYJPz&S)=Cm&ak=wsV+12B3yZ6(tC*|iA(fd9D$*xgTmvsg
z&EI-!*Hzva$E9J>N9Qhb-H;XSUAX$1XpXjCL&vr*rAp(IK1Rkf8E!rOt9jr2$+?}+
z=T*PE`EKXwBd%&cBUK_97!EMq$Wd-M>eekI_Uk;y1BPceym!e6F)-X_)NOvTo^$QJ
z8R|_UTw4;{nPzb<DcTssa<O3T0S(V>0eVwA5;>bLvYFK9{?PBv&}$NKInmr1E`Q;C
z`i%Ydy;9LE-WTMvO+Eg)r^-BTJU0Dlgyo#4X7_cS)y`aVc3<uB<i?kKDoIIGzRc@c
zYU82e#I2^XKvI0tXCnp6MRL>m@?6BbT-!qQ<|t29n9$K<Htk*~Q)9(UhJ?k7LT6}P
zxR=Pfwz|(_g+s;+x1CZd)wV)P9o*e7RC+2bUW=S<(-vLvDWOekbA+YOmC_e-tEPOu
zux`uS2Bx(^Q?6F4*eJ%D&51Fx;_L2{weRgyZ)*{fihQrpI3awmtm>;{({~-*IYFZA
zap$V<o-H;jXS0NzTDs^}^UD|9z0)L@xGYIfo3mVaTGfh-n}J6Sa>7FNn5W2!ieBxM
zIdh<J1Isk-$`Z*}YuZ*R7W5oD8<CQe%<`x!!76j6%sDZysV!TD{8Hz1CuwKsew8q0
zRX^y_HpTz(>9z;lDX%WE$f!@(O5I{sV!l!Jm<`)kF%y9W3$B}pNHeJliLEf~DGYww
z=y^{<RQuVyh#Lj2^X*<dW?vCI?bWK9g%QkQt6A$;I5`EXtZ+>bDpgq7FCg}6X@z6j
z1~;eg0do{s=Pu?m-Ldq*POHw%A$KqGUp*yxi059{GMC&RORc`tG)Q$vY;Z`wW3@%m
z#N@2R3*Tbi8D{PLiUKe1D#dXvY*f^`ZtijY5ZCqB0-|<XH+b$cz4UGAdJAE}IcqsX
z*{-@yT(@m5!z0C@oy*F-{9W=Z{13mVx)@yXd`qLB&Xu_tC(ROMElSo@X)Wrx9iw-a
zk&`(%x{UFc|I(nX(g~-Sf|)fYEcTU{k}|2!QpYRX;MTdxLCxpfUcO4`+9jR9oS`26
zRsOB);>_;dY6%NhU!J|>hC+uLzfAQMcbV9?Wp2CTyUuLg+;i`Yli=cif37An9PZc<
zcInIVKFuZN?0@DOp4xwR&vjwt-ji&+B@WgXuI{<sEg74C@AX~Do91)A&*AuL_>yt<
zZH>=2<82kAqz&YZ<i1r1%1Q>-vNZE5eeg8dlBzsw>BXCyo}FGer($7*T9bNG@II+d
z<`N+$o>J$w;G7B08+s1x<Vf6Tv@)Pc;Nm?ezRv<4llqnxRz!$%sv1mo6xP|u>c#0O
zK52P*+V30}t;4D=Y`0G+aOyC5W@;(sFJruPN@iPLo|@{DSC!vId2@7~g~KHnRlN+w
zk1bMh7Py%D!eWzJ?bYt+9}yl&$5+*c&dTHDzrOQtj6;20GAsXL$;pQPTF06e%4Ox3
z9DBM@Sd*#!IhSa1fX+&mV_%lJeLc?lVV&3Kgr^U+&N2(+2s$10eEsy^vlS5+E_StY
z%q{o#U9B+ZmWF7vjn9rCmWf@w7tGwm17~tEPu1agZy4eFHp3*?J%=T_CL_drm+R`?
zd|5A4tR&aInzf~wQHFilyS0^)2KvHN(he61swC%0_;pK5Gzw~+UEDhH&9(TY#$j7e
zNxb<KtCrStQPPO{<t-j&kBLSTj_I&Tul)77%;Z#qh~(N<<tA2+t+g+rGxU74*Zgl*
z-B9`J%;amf?HB6J-zqsRt(@`3NnNjX0zY$`x|NN@#e-J!ms}V4wEXZ^w$|cw_f0;r
zPREto<*U|8E>W14<`Vn-Cy%_CgO{MN`5T*vgA8e&ORV^u|GVAV=d;+{F?=hN;=aa(
zt+yUayCzum98nfnl%kY(IQZ1l6*nAoIS)zj{KydDT-JR#iQ{2v!;2Vir$v^j3O5T1
zZ?McVG=A7_^q{@0X}z%eF0Bip{pmq%wuV)WQ<jG`ykeV?vN&|s^3!%c6+sh&bY3o!
zcF!_*nQi{+q}Sw$9Sdw$3Nd~Oy&ydCu#$-(!^eF|CptvxgM_ON-_teu+cfJev&?DU
z<Fl^Fa&4=TXndMvQoQ(vQfjz>@9m0?fUfS~-8_}9s<H=C8g&#eXU&~D|2%`K>r$1#
zRps0rdR7t_diKoJsH!w{&<*HP(%hBTuuJ9E{5FR=gOnma&pPu(4=>&}Jb5REMRP(#
z?=H?IE473e**euGow__jC0FEB&zkGj-fD>%eYXuKzBh_eJSbJ$cvdAK%%g*C)|n$Z
z(L7I$BsBLfe#dc{$w_I67pMHB=cVzpb~!9OA-G6U=t7&j664_wk3NV!_RtOf@X3Yg
z*o0t-BTHXsM>5a3B&m4mjl5Gbm$v#u$v0~ro2Li`?Ul?=4he}eoV!KYNRr2Xp5q3?
z*iV9N6JAa{ZghCU_p;*?&in|P5K;ZWB6CS)@2m@%K}=D4zTUhU+1blNnxCC{Vl+|k
z*2SMs5?0s0ib#@l&Ns?SOg^c})U0yiqEeru^4y~2HotrUJ4*qRw<qpsZJAxkvNmMX
zR->aA^Nt3DMBkD%nYBx%p!8$NFRMqB6L+K~gkFCnej(;fZp$>sWfxl~F!9WA)#~jx
znN)Ogqqlo?Lx7P(JHO#fu4ul~yB219d$c^`5(>FHsl=gvYO-RJ>Pru{73cDkJZg?z
zsJN!~prriT!82P7+5{|SE4m~+J>!?6AN2A?M`->bdCi*AgZF3bpRm7EWuDqU*FUa*
z;(xrJSI4Us6U)N3>Am1(PVxVumwqHgnZIP>+7_a^?Zd7Dy`tqQ&*%7QEq|P<^h@g2
zy*EF8&w3&DHUB#2&F8!B3*HpA%5{CCb79SAf9~mfj4!^OxIa|+634xDll3M?pS9%-
z*gP@wfY#MRb*`b}H`l&gC*xMuea>i0c*yE{<5`IeGt<)ZW*=FQ(&@FI_hxP9w-_NG
zb<?v^Y^OvYwV#=>gd_8!`S%m4od2Y~q<Zfyo4;_&Iib_1ODs8gb@yyuw(P}}&iA)3
zUYZ)vCZg73cT}49+6JvuiJ<Vq+>1G9W!|4Aux)}%@UklFi&iCSx6CuV@1>tj5)i6Q
z-l|>oP^GGftxCj|A;eW9q<-?BnR3>X9({a#)z2?u<%=J4Ik<T2Coh>)|2R0ZG+KIY
z#g+Om<-Y<tE=NE5CAHVb?(WrFyVkoco3=xz(_8Y!LY=~<d~dDW53PQ+^IzCqm~ro>
z<InkaGUh+I&+oZ<{PZ~nQ`N;UT>7+Uv%dJBsmAR7*1A&ptl!;bt6vLGQTy_<OUb21
za%sDK+VZ37$5I~%#H{y`6S`b2o_?-=nUAGJ`LZ?t3PT-ta^*g1OXK)q(~_GcAYHjD
zIoKxn@N@M?AEIZS+p=x3{@c#EW_segm$7F~P0<tcGU>L{t$Y(OLm|H@_T{Cr+~!{m
z0gBBP2J%<Fo)%NAyp_Z^zb0Xst)9b{fR!B&cy*g@)G{k=ZgSbg<8fN!o71{y97}|n
zx>&=+9Fi7xytv`ReDU7htp}pg4(y6~%WKnM;5(_a>=|R*DUqneTg(2>`n~_zKmM84
zmwl~jy_47cwqCClwC2c+0|(y!e|YHP9joJ|$EH4OD)L!>B*QcO`p0WW_Bs^>9eQ<)
z^}OFPrPt>ocw%?6yr|t|`o8D7VK2vNL!~d-3j>NoZFUB<2_!FaXKl90e&n}ws?=$X
z94FO_P4jk@n(=<0b~5oS7tj3{Y&$KDCQga?{%`i4zmrc&A5C*`GC2~P9V2tATEe9u
z<V1oT6IYAU+Ww9QB@s?XwEwJ;lHbeY)xI@j*5llyrc)xPO8hjh?~7Ow@9_0qCtK3|
z)%RX9cz$>N&}G9cD)aS|oc?P2od-@=?%E{EroLuE!_$|C&s?dvaZmi*d@1+Mk<G!O
z^=lfrCBNz`?RwG_BXP1ZanU)Oezpyh9E$=Nm2bE>Z^-VeWL~k4aV6sop>U@qMmbDM
z2h3h=%L<&hE-{KjwZ=kRv?EORnNftE8ney@qq>(e&*N)(=S%2z)Ymode;#=M?Z>ym
zQ|x`-B;D;<vHC)<U+w2W#W{<Wr*j7_bDd)IRCcQ5s~I%`*1?O67BlG-JKkk=mYK4g
zebb?}Q)KSEeX+3pL1TmPwT}9~M<f>ee$<w>Vn6gKBt5=xMShGy&8~~_tbbnmn|{f=
z_>VO{z2ZUOG2#Bj%pb}h9sA@E^yTBR)6F05A6&xAwMO@w>5%{_A8jvf1HMTgmL^?c
zPT1$>rc?6CII8*T*4l_2|8m%>kGAKjd*|Jotb4j)Q@uUIO#hA3?#(VUI?nol|GY%-
zxw#SlAD%VcIOnK*&Bi;4k9roxew}$(XYqReUAOnYFihHeRafQfcg}T_r`IRXJt<qT
z$m+>lfuk3<F4Ir5w5=+4etl>|_{Mz)rOU4^t@v;E|MPslV_SSo?*^Ui3;nTn-u<|j
zKMyK+9)7a)&4fp{0^7~z?R+1z-&}Iu+`qlAJYMfqjbuIlW}m^m(t=xu=LNIRo5}LW
z>glVuyAE<T@0ljE=VEo~%fs8WcTem8SNXWV{c%`L!oFIUf=3&k$f@0z->hdc+u~jJ
z?5cv|^-H}cn?=@7sd=*D!`DCe8Yk-2zFWE^CoV!e=IMjDTQN`f9FdWfnm@Jp>gCu!
zt8W{edl3GdO*z{B$CW=14*$PXZfBKr_fuo$GyU0J%IZ3nUlsLB_GeZFoZVLQTHz)C
zUv;~kHQ%2u&Gx@NwYA+X-hTI@^xEQY0nd-tMsl~!ymw3LO?l{_<NWIS{P`6hPfv-@
zyYudac*y6o@0LE7Dt7Dn#d|KRYDQGenhej^Gd0gn6zu1lVdbK~*VN?GwWkLrO`GoS
z=Hf1Ua{b+14<GofuRHPNuXOwG<ELN!N}U^Z=JvKj_msE1_)`9O{*^D)sdlfQl>gM<
z##{U9<(K)|cY5ycn;{&xW!mS!)d3g1bLyJ6N2_wL+*$K=>i34#;%#@nZI`*f@3LNI
zP0f@}hqUng`m@oAc6OiMwK1q9en0T|a(&Fr^h;mof2tRiUHAK3<d#Qw<(%t(J~{W^
z@Abdk2XxlF=+v+N`f<v?-_x(%So^6kQ*7?0`xc+xtx^0Ob7}7CD6{)ptPbuwEFD|(
z!{uqG#JSIb)_>Md*?aC+)rsQ5zYptDJ<geWUuR!@?AF)cKR+K|E9n@<_nPmx-S+g~
zYu3z@xl|<B5%Ov8rg!h}-AVuadfv5l=ash2*&SzlFv(%%)g2e7`}|CwH~n0PtVPfY
zjR=|jS*Kg(PEF+x-Y%nQDkOKKe!+$%;`RMs7j}Hs%0BHsr_XzTWcs5C{5|t3F5Y;1
zQDyog%VpK)YOmSk{&`fKX*lh^xa=&`74zTUx^u8pyli8NzyDU#oky3Smp=aMN~oR9
z{^ak0_olr3y-r=%&X(J#dWPA3vy0!No<2T!+UK9fY?<fVUcH_Z|Ks^>@po$_ZyHrR
zxzc}r&%2D%o%w$<!d#syKYY~`?bccwVl2Zgq~EhcrReL%HM<Np98xuU`0UrDXAAfg
zZ64oP+oj$5%y03nZ~wPjR6Q}Dl;i&G9drA>^S@J%{_H;;#9T2)x03boo4mQDGb3#B
zb1$5`u;l$xMrGSxyUdpw<?Ah^ro5=o+qz;^nuF^t+jNWn51FptdgRT1XL0uRsps_G
z?5!#CO*z`#wX<&i+5O_%9_am_aCh42i_T%H)8_x*ap&E+JKv67bN$L$d;RzKjvm2$
z@6S8x?4D07z7=zFdZ=x`)}Gn%^7mig{qFK%#<88By2EGJ{Fur+Z|1W7tlvs)itnah
zzpib5e&)@2k=M%K{>Y#2nlj}Ji-Vt=L3xf>&WVGUt>5+j*7%jserlEf-IKEmzb`3t
zua649u*FVu;oBw0{~piV9AEd<z_9E~GpqCTKhGNfXlcah&c3g_R>3m;=f1wxnIF!6
zfB%d3W%R3yQpNu=!{UCkU%Hoi`c2ukFO_1Yzy9s$^)!7W|BNHX>D%n*qTw;MS0+uU
zzOzlMYR&BEgD3xrmh#R{x*UD(UT?<y`H6cadKhnK-JZLrdb^hXfdlVX+AP_ZJp1Op
zZt+u_&F`)H`uEzxjk*sOZ_O^|*1vZ$$K&_I;>8j(-!pFSKD?yc=C|(7`rLbMZc}f{
zA8bAR_vz!;|0dM_+HvHwiVAPf8jd?xru}o(t-klEYac8B^)UaZdPTEt2fe&m?NAW+
zapTlu+{<?Qvqzl`*;E;J=Yp%NdYt^rjg_wRnJ%uJ+2`<0?ENlbH|4j&@>jR9T<y4a
z{6kx`*}d4k38&6&xmKxZ7@zxn{q2bcsqHWSt@qv;xO@8a%Gz+l@@o>6fiWegg&((^
zh+99!v;NLT>6hi^ablB?aOzF5FY+l04dYxT{rcRq-Oq~W?9GzzJYDXgEb!i%_iI@B
z<;mJA%17(;&zptl$!^U4!JT~6a_8@RpCrrQtvSQFB7e;W+qnwab9Vl6{_UQ({J_WO
zuUqzCIlJorqEo7;PggGse{nCfZ&FwJ>9^6ZyZL@t#M*`hef{%m<JZ=g#@vU@*PjXQ
z`W(q^UtIIBQdNo5S6fPGwe~yn*sj_bo0GNAu0FolJ@;GG!R>zgx38I5fAN$aqk;4-
z>%?z=xBcFCR8Ie<TzPhGQ#em9*8}_0W~uAL<SM7B?Ke5G>R!70-JPkvcdV_CO*^*k
zz4+$s?e72H9`gS)Ywx!cw+{T9ID7s2{m(W%`y?~_q;O4Do^4QJLZ)9+^-_gJt>0^A
zdxZrhnif^(?yvoJXUE+6cjg~2w|M{Q#%f#62V3QevUFxt9(xmcOCn*V_knK{>ptrw
z@6>UaGD~((*rDF8?!Ptuu^aB+`<!^T?{-e)Dc1#>&-cw=vgG59n&l6|^-e#neb0XS
zSzG)U5!HTP8Qb>PF}b3_vwyY!)$v|e({Vv9HR9T**4chK(Gx^UlkTnzdeWHm?AEHS
z*H6vg{n<R0haueFe3kE%88c1`Dd}p}1;4ACTloCx*+mD|u>af}$9LlUjj$O%qdESY
ztzPnX=9|(;m-#*AQo6IRnQT9vV<Nk!_S1qZQ<%21Cq50gj?q^)-?#3!(UN5k7rbOU
z`evF)yPSNyVfLR@?yfJN3B26Q`FVb$Wb|L9WqvJ(kH48OCUG(@_+HhSjj!HxPCFIa
z^i=+Pk@<Efv0pvLd9$)?SZBx!?EUiOWOd)~ZI(HDCj+mot&|J@b*_HfNpb7?7d4sJ
z!dIFf35(a=db{MoMcZic&E3Y^cHT6}|6l34FCi;9_@it0*Z1|(Q_Cz95;GS3u=c*T
z=A`y1W6`I_bLIE!c=zG=w-15$k89gKQu5EAx}hvycuo0=PmN*TuDgG%eXDx^ou{YI
zoyjX+EzY_BVe-iz$}`_j>ur2`*<ORk=E=Ute_xg<#})R+N7~yOzxvtn{RU_8^shai
z;|(&8yv?87RdrsgwLR)5^Zfg>Y#lE>xb)e5_cL|b2aQjc=TF(zV}CK`l7Yp;qc4gd
z{uY{dq{9Bm)HRzQo^}=rU(c1a^!vlyPqpqF?5Z#Q`?huF&qC{NcD)~)j{Qt)yX?Jt
zqg;2D-Pb>x>@J$>-^)MT%J$$@vp0W4pxMcT*L17n{a%EgTOX_A>(8D4`{%Kz{nFo;
z?J0k;<|{vM(@MtRRg<;Prd#CAyt!ES^WNY*U*7pFXa7`PR9e1#Ew@<P|BSctzi%ir
zTGh0^-dA~``1Z7CAEww=pPOTG?c7U``PDnBu0LHn@ocI7sdxK+tlaU2^L)~?J&Z?}
zvxooP@#)RK%ifdg_XU@wE?QsUd-R?3V!3r|bc=lVZF{-7Sv<$-u2_#`)ol-({O|+6
z)A!F6-u|C^{f$}Q*UjF)%5I0w(~Es`PrvCur~P*Rr+u~ka&<YguLjQfl+OKE&7;;W
zqsUh0`{mzK(@r#dvS-wnZGNI_p0sQ0$|ZLTUN%pUHT`M(xQ+Ys_w}#NPm-)&RCA>(
zvEkNLCq{=FzSYw$lbr&)MHg&jywJhGHmTk_XQJjQ@3Rdel5G|j=f+N+xbn^J-#_@i
zOUk_v7dh~qm+Qg74gL-Z3Owv=EG$LLe`{+h<?4Liq)SfIy71Ayb?vWhhnyK00ORzZ
AQUCw|
diff --git a/R/SoaresEx6.6.R b/R/SoaresEx6.6.R
new file mode 100644
index 00000000..0803ca05
--- /dev/null
+++ b/R/SoaresEx6.6.R
@@ -0,0 +1,38 @@
+#' @name SoaresEx6.6
+#' @title Presença e ausência da hiperventilação no aumento da
+#' capacidade física.
+#' @description Nove indivíduos do sexo masculino, sadios, com idade
+#' média de 21 anos participaram, voluntariamente, de uma pesquisa
+#' cujo objetivo era verificar se a alcalose respiratória, induzida
+#' por hiperventilação voluntária, aumenta a capacidade física
+#' avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
+#' nove indivíduos participaram da corrida de 800 metros em 2
+#' momentos: um deles em condições normais (sem hiperventilação) e
+#' no outro após a hiperentilação voluntária.
+#' @format Um \code{data.frame} com 18 observações e 2 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{hpv}}{Hiperventilação presente ou não presente.}
+#'
+#' \item{\code{exp}}{Variável explicativa com os valores.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Ex.6, cap.6, pg.223.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx6.6)
+#' SoaresEx6.6$n <- seq(1:9)
+#' xyplot(exp~n|hpv, data = SoaresEx6.6,
+#' type = c('g','b'),
+#' xlab = 'Indivíduos que participaram da pesquisa',
+#' ylab = 'Valores observados',
+#' main = "Presença e ausência da hiperventilação no aumento da
+#' capacidade física")
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/SoaresEx6.6.txt b/data-raw/SoaresEx6.6.txt
new file mode 100644
index 00000000..68df902c
--- /dev/null
+++ b/data-raw/SoaresEx6.6.txt
@@ -0,0 +1,19 @@
+hpv exp
+com 155
+com 150
+com 174
+com 158
+com 155
+com 148
+com 142
+com 164
+com 143
+sem 151
+sem 152
+sem 172
+sem 150
+sem 152
+sem 150
+sem 144
+sem 169
+sem 144
diff --git a/data/SoaresEx6.6.rda b/data/SoaresEx6.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..7bc895cfa34a6cab63018c7b31f7ec31e7597d76
GIT binary patch
literal 227
zcmZ>Y%CIzaj8qGb{G2Pt&cLww|HuDU5ey8Bf(&d75)S(AcMmu)9zDsT%D~9LxPf8E
zqQwqU3>O#}7?>4%d3hNmc^McO7=%<!md%^|Re`6$<f{?mEB58fR$4F}%E^<8l4t1^
z=AIS)<ke{(!{2xNO!{A!2QSu2op1iOa`i2hU4IrRf3``~iD)q0X);$XQ&mxXi6O^_
zOeZO}qq!3r<?S}C$+Ubp?fc%kZTvCY^d||hYFbM#>T_#i)R^AP$+v(<CrNvvIxAy{
j)V?*h9WCCf*Q{Gp@me5o^@9G7<to9gocv}N9~1xp+~-uv
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.6.Rd b/man/SoaresEx6.6.Rd
new file mode 100644
index 00000000..54645029
--- /dev/null
+++ b/man/SoaresEx6.6.Rd
@@ -0,0 +1,46 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx6.6.R
+\name{SoaresEx6.6}
+\alias{SoaresEx6.6}
+\title{Presença e ausência da hiperventilação no aumento da
+ capacidade física.}
+\format{Um \code{data.frame} com 18 observações e 2 variáveis.
+
+\describe{
+
+\item{\code{hpv}}{Hiperventilação presente ou não presente.}
+
+\item{\code{exp}}{Variável explicativa com os valores.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex.6, cap.6, pg.223.
+}
+\description{
+Nove indivíduos do sexo masculino, sadios, com idade
+ média de 21 anos participaram, voluntariamente, de uma pesquisa
+ cujo objetivo era verificar se a alcalose respiratória, induzida
+ por hiperventilação voluntária, aumenta a capacidade física
+ avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
+ nove indivíduos participaram da corrida de 800 metros em 2
+ momentos: um deles em condições normais (sem hiperventilação) e
+ no outro após a hiperentilação voluntária.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx6.6)
+SoaresEx6.6$n <- seq(1:9)
+xyplot(exp~n|hpv, data = SoaresEx6.6,
+ type = c('g','b'),
+ xlab = 'Indivíduos que participaram da pesquisa',
+ ylab = 'Valores observados',
+ main = "Presença e ausência da hiperventilação no aumento da
+ capacidade física")
+
+
+}
+\keyword{AAS}
+
--
GitLab
From f5c2530b299f6e6f44712b38f332e43e03536f79 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Tue, 13 Sep 2016 17:39:45 -0300
Subject: [PATCH 09/14] Adiciona tabela do exercicio 19 capitulo 6 e txt
modificado tabela 18
---
R/SoaresEx6.19.R | 48 +++++++++++++++++++++++++++++++
data-raw/SoaresEx6.19.txt | 5 ++++
data-raw/SoaresTb6.18.txt | 24 ++++++++--------
data/SoaresEx6.19.rda | Bin 0 -> 256 bytes
man/SoaresEx6.19.Rd | 58 ++++++++++++++++++++++++++++++++++++++
5 files changed, 123 insertions(+), 12 deletions(-)
create mode 100644 R/SoaresEx6.19.R
create mode 100644 data-raw/SoaresEx6.19.txt
create mode 100644 data/SoaresEx6.19.rda
create mode 100644 man/SoaresEx6.19.Rd
diff --git a/R/SoaresEx6.19.R b/R/SoaresEx6.19.R
new file mode 100644
index 00000000..bf9a9fb8
--- /dev/null
+++ b/R/SoaresEx6.19.R
@@ -0,0 +1,48 @@
+#' @name SoaresEx6.19
+#' @title Incidência de suicídio como causa de morte para poetas e
+#' escritores de ficção.
+#' @description Em 1992, Ludwig fez um estudo na qual compara o
+#' comportamento criativo e psicopatologico entre diversos grupos
+#' profissionais, a partir de pelo menos um fonte bibliogŕafica bem
+#' documentada e bem estudada. Mais de 1000 personalidades
+#' eminentes, já falecidas e que viveram pelo menos uma parte de suas
+#' vidas no século XX foram divididas em dezenove categorias
+#' profissionais e observações comportamentais. Uma característica
+#' estudada foi a existência de diferenças na psicopatologia para
+#' imigrantes do grupo artístico, tais como poetas e escritores de
+#' ficção.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{cm}}{Causa de morte.}
+#'
+#' \item{\code{prof}}{Profissão avaliada.}
+#'
+#' \item{\code{exp}}{Variável explicativa com os valores obtidos.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Ex.19, cap.6, pg.231.
+#' @references LUDWING, A. M. Creative achievement and psychology:
+#' comparison among professions. The American Journal of
+#' Psychotherapy, v.46, p.330-56, 1992.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx6.19)
+#' a <- xtabs(exp ~ cm + prof, data = SoaresEx6.19)
+#' barchart(a, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x=list(labels = c("Outras",'Suicídio'))),
+#' ylab = "Frequência",
+#' xlab = "Causa da morte",
+#' main = "Incidência de suicídio como causa de morte para poetas e
+#' escritores de ficção",
+#' auto.key = list(corner = c(0.95, 0.95),
+#' text = c("Escritores de ficção",
+#' 'Poetas')))
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/SoaresEx6.19.txt b/data-raw/SoaresEx6.19.txt
new file mode 100644
index 00000000..027a4a2e
--- /dev/null
+++ b/data-raw/SoaresEx6.19.txt
@@ -0,0 +1,5 @@
+cm prof exp
+suicidio poetas 10
+suicidio escritores de ficcao 7
+outras poetas 43
+outras escritores de ficcao 173
diff --git a/data-raw/SoaresTb6.18.txt b/data-raw/SoaresTb6.18.txt
index 7ce23b96..329db27c 100644
--- a/data-raw/SoaresTb6.18.txt
+++ b/data-raw/SoaresTb6.18.txt
@@ -1,16 +1,16 @@
prg exp
-início 201
-início 231
-início 221
-início 260
-início 228
-início 237
-início 326
-início 235
-início 240
-início 267
-início 284
-início 201
+inicio 201
+inicio 231
+inicio 221
+inicio 260
+inicio 228
+inicio 237
+inicio 326
+inicio 235
+inicio 240
+inicio 267
+inicio 284
+inicio 201
final 200
final 236
final 216
diff --git a/data/SoaresEx6.19.rda b/data/SoaresEx6.19.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d4f3c2c2785c8c8570ffb28fd935a315387e74a6
GIT binary patch
literal 256
zcmZ>Y%CIzaj8qGboD#B$i-BQN{e}PEd>9-!4HeiJBpmeB?;mhrU|?ck-N108apk0$
zE1w!D`^-u?VQ9iTIp9FXi422=47OPej7qb*sxp@?%eZoYg?;5RVUvk!t0ivQSS{09
ze@#i$h^ef~`1{dMxjT;Me|^_4rYL5leOs8fc;D@1)9f}h1YC4>^w*obsK!Fkm5DpZ
zhqZBuC-1T;Mp91U_H7F?S-d*_q_5+yi<{|Z{_IujI{DSj$+MZ;cdIV(Tw=cVnG)|b
z?|z5V8uc9CrFPAEaogo(o%Tu|>weB77iK+<znT50pvf`IZJ{Yw3d`s1Y7=A*1quI&
OJt^|g$tf`Cga!bw!)m$!
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.19.Rd b/man/SoaresEx6.19.Rd
new file mode 100644
index 00000000..9f34ce0f
--- /dev/null
+++ b/man/SoaresEx6.19.Rd
@@ -0,0 +1,58 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx6.19.R
+\name{SoaresEx6.19}
+\alias{SoaresEx6.19}
+\title{Incidência de suicídio como causa de morte para poetas e
+ escritores de ficção.}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{cm}}{Causa de morte.}
+
+\item{\code{prof}}{Profissão avaliada.}
+
+\item{\code{exp}}{Variável explicativa com os valores obtidos.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex.19, cap.6, pg.231.
+}
+\description{
+Em 1992, Ludwig fez um estudo na qual compara o
+ comportamento criativo e psicopatologico entre diversos grupos
+ profissionais, a partir de pelo menos um fonte bibliogŕafica bem
+ documentada e bem estudada. Mais de 1000 personalidades
+ eminentes, já falecidas e que viveram pelo menos uma parte de suas
+ vidas no século XX foram divididas em dezenove categorias
+ profissionais e observações comportamentais. Uma característica
+ estudada foi a existência de diferenças na psicopatologia para
+ imigrantes do grupo artístico, tais como poetas e escritores de
+ ficção.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx6.19)
+a <- xtabs(exp ~ cm + prof, data = SoaresEx6.19)
+barchart(a, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x=list(labels = c("Outras",'Suicídio'))),
+ ylab = "Frequência",
+ xlab = "Causa da morte",
+ main = "Incidência de suicídio como causa de morte para poetas e
+ escritores de ficção",
+ auto.key = list(corner = c(0.95, 0.95),
+ text = c("Escritores de ficção",
+ 'Poetas')))
+
+}
+\references{
+LUDWING, A. M. Creative achievement and psychology:
+ comparison among professions. The American Journal of
+ Psychotherapy, v.46, p.330-56, 1992.
+}
+\keyword{AAS}
+
--
GitLab
From 23b6ddae1aae413d3a2b11dd383d88d6c5be44ce Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Wed, 14 Sep 2016 15:20:34 -0300
Subject: [PATCH 10/14] Adiciona tabela exercicio 16 capitulo 6
---
R/SoaresEx6.18.R | 54 ++++++++++++++++++++++++++++++++
data-raw/SoaresEx6.18.txt | 5 +++
data/SoaresEx6.18.rda | Bin 0 -> 352 bytes
man/SoaresEx6.18.Rd | 64 ++++++++++++++++++++++++++++++++++++++
4 files changed, 123 insertions(+)
create mode 100644 R/SoaresEx6.18.R
create mode 100644 data-raw/SoaresEx6.18.txt
create mode 100644 data/SoaresEx6.18.rda
create mode 100644 man/SoaresEx6.18.Rd
diff --git a/R/SoaresEx6.18.R b/R/SoaresEx6.18.R
new file mode 100644
index 00000000..911d0bfb
--- /dev/null
+++ b/R/SoaresEx6.18.R
@@ -0,0 +1,54 @@
+#' @name SoaresEx6.18
+#' @title A transferência do álcool para o leite humano.
+#' @description O consumo de pequenas quantidades de álcool tem sido
+#' recomendado a mulheres que amamentam a fim de ajudar à lactação.
+#' A ocorrência de alteração nas características sensoriais do leite
+#' ou no comportamento dos lactentes foi objeto de estudo de
+#' Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
+#' uma semana, doze mulheres consumiram suco de laranja puro ou
+#' contendo etanol antes de amamentarem suas crianças e meia-hora
+#' após ter sido obtida uma amostra do leite. Amostras de leite para
+#' o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
+#' da bebida, de modo a interromper o mínimo possível a amamentação.
+#' @format Um \code{data.frame} com 4 observações e 6 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
+#' ingerido pela criança e o tempo de duração da amamentação.}
+#'
+#' \item{\code{exp}}{Variável explicativa com os valores.}
+#'
+#' \item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida..}
+#'
+#' \item{\code{exp}}{Variável explicativa com os valores obtidos.}
+#'
+#' \item{\code{teste.t}}{Valor obtido com o teste-t.}
+#'
+#' \item{\code{valor.p}}{Valor-p utilizado no estudo.}
+#'
+#' }
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA, (2002), Tb 18, pg.231.
+#' @references MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
+#' to human milk. The New England Journal of Medicine, v.325,
+#' p.981-5, 1991 .
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx6.18)
+#'
+#' dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
+#' barchart(dados, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Leite ingerido (mL)",
+#' 'Tempo (min)'))),
+#' ylab = "Frequência",
+#' xlab = "Variável",
+#' main = "A transferência do álcool para o leite humano",
+#' auto.key = list(corner = c(0.95, 0.95),
+#' text = c("Bebida alcoólica não ingerida",
+#' 'Bebida alcoólica ingerida')))
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/SoaresEx6.18.txt b/data-raw/SoaresEx6.18.txt
new file mode 100644
index 00000000..25ac7c3d
--- /dev/null
+++ b/data-raw/SoaresEx6.18.txt
@@ -0,0 +1,5 @@
+var ba exp ep teste t valor-p
+leite ingerido sim 156.4 8.2 4.69 0.0003
+leite ingerido nao 120.4 9.5 4.69 0.0003
+tempo sim 28.6 7.7 0.15 0.88
+tempo nao 28.2 7.3 0.15 0.88
diff --git a/data/SoaresEx6.18.rda b/data/SoaresEx6.18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..98365a63fc28bc7deb2e27e6f0a09c52f84e09eb
GIT binary patch
literal 352
zcmZ>Y%CIzaj8qGboENaelY!ys|F8eIM<{y~R=ONxkaD$Oe)oU_OM?M}f&?1_3lr-G
zMhO>F-<6Bf7Q3&U?6`n|fq~h9eF>jY%E^u+2RJ9QoM2qcaX{dJ%4Cn3J_=RM4h#$?
zDVZ%97rx2`bt;R6vq{c95!tCb={B?Q9rmc813bp7=Iz*UOzW1<wM#CyHa_WaNtXNk
zpjTp(mB8GI$|_O4Kh9?zWD81dnv|&YqH$8>|AeO34DXpV^0u<FIBwh!v5{qhT<r!w
zBiBa~2`jSt1D1Tcetxs*<Kylf6|9TSZ`sZteNRBGC0l#qzYT63di!n6zZFR>?BI;u
z5F_riS~Kay`r^a|GG1G~c#o@HIWVcLXnBOe=h|m0=5y^bH+VPcNc)}SV&f?<N;UQ>
zr7*J9^q)DupeaH{D02G44{5U|ENYy;;DlC<?WX&h+6FvnqNTnjOB20Y*=G0u(|giY
Luu#!vVZkH-x!0K_
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.18.Rd b/man/SoaresEx6.18.Rd
new file mode 100644
index 00000000..c8bfa6d7
--- /dev/null
+++ b/man/SoaresEx6.18.Rd
@@ -0,0 +1,64 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx6.18.R
+\name{SoaresEx6.18}
+\alias{SoaresEx6.18}
+\title{A transferência do álcool para o leite humano.}
+\format{Um \code{data.frame} com 4 observações e 6 variáveis.
+
+\describe{
+
+\item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
+ ingerido pela criança e o tempo de duração da amamentação.}
+
+\item{\code{exp}}{Variável explicativa com os valores.}
+
+\item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida..}
+
+\item{\code{exp}}{Variável explicativa com os valores obtidos.}
+
+\item{\code{teste.t}}{Valor obtido com o teste-t.}
+
+\item{\code{valor.p}}{Valor-p utilizado no estudo.}
+
+}}
+\source{
+SOARES; SIQUEIRA, (2002), Tb 18, pg.231.
+}
+\description{
+O consumo de pequenas quantidades de álcool tem sido
+ recomendado a mulheres que amamentam a fim de ajudar à lactação.
+ A ocorrência de alteração nas características sensoriais do leite
+ ou no comportamento dos lactentes foi objeto de estudo de
+ Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
+ uma semana, doze mulheres consumiram suco de laranja puro ou
+ contendo etanol antes de amamentarem suas crianças e meia-hora
+ após ter sido obtida uma amostra do leite. Amostras de leite para
+ o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
+ da bebida, de modo a interromper o mínimo possível a amamentação.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx6.18)
+
+dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
+barchart(dados, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Leite ingerido (mL)",
+ 'Tempo (min)'))),
+ ylab = "Frequência",
+ xlab = "Variável",
+ main = "A transferência do álcool para o leite humano",
+ auto.key = list(corner = c(0.95, 0.95),
+ text = c("Bebida alcoólica não ingerida",
+ 'Bebida alcoólica ingerida')))
+
+
+}
+\references{
+MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
+ to human milk. The New England Journal of Medicine, v.325,
+ p.981-5, 1991 .
+}
+\keyword{AAS}
+
--
GitLab
From 95a9519d5bbd00080443e4921613960d41e1ca95 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Wed, 14 Sep 2016 15:51:35 -0300
Subject: [PATCH 11/14] adiciona tabela 20 capitulo 6
---
.RData | Bin 4531 -> 3078 bytes
R/SoaresTb6.20.R | 42 ++++++++++++++++++++++++++++++
data-raw/SoaresTb6.20.txt | 33 ++++++++++++++++++++++++
data/SoaresTb6.20.rda | Bin 0 -> 269 bytes
man/SoaresTb6.20.Rd | 52 ++++++++++++++++++++++++++++++++++++++
5 files changed, 127 insertions(+)
create mode 100644 R/SoaresTb6.20.R
create mode 100644 data-raw/SoaresTb6.20.txt
create mode 100644 data/SoaresTb6.20.rda
create mode 100644 man/SoaresTb6.20.Rd
diff --git a/.RData b/.RData
index 70c6796daf9dff8f049169fa38f85a8098b89bc5..da983b9fec055a5d48a0bfaf4070a94eb1fd0533 100644
GIT binary patch
literal 3078
zcmb2|=3oE==BeS87E`jN<+G=46m~r^&(`~!RM5@sD&B^dXKXY%GsDn=$2V%lgb6vR
z_PsnO<$_zf_$8NxyozxDW_sFi<xjUlznbSU&ui-c-1{9__x+pA`Rds3Z&Ti_I{Ne!
zD+9v}Mjag=hBUEb6Q<7mn8>t&$--QPg(2bL&4|<mEse1}D+~^7Z9ehnt@r@}oBO$c
z8*@eY*i;3C7!Dh3YcaF@bN^|7ZJCOh1aIP-y7`4k8|p4R6Uw)L!Z*u+huQTvtMWyI
zo-O7+Qt#MXohC%91$ab!XzR@FyJ@yJ&-gG8?+uxai!OLrIM>}?$>!={V14z*p(e%W
z2GPRDBp7cmJjT_kARxW*PtL3MYh{o0EQDkmTph{^W-c;2|Ezy;YwJR@>DxYrlzlKW
zy0!09aN7ULva8KiBtBi1sSx5!lzF*vgYzqP-hXcGzx~fCy2Z?%{^M^gN8R$j#xwp)
z-j3O%oS<lM<Xm(@qtf=gepY7g9}5q=-B0<ukh|SM@_mZ&%(WWEk{+oGrZiU1{w%^K
zB%zV;K#jRv!Xvq1$4TGYQ#yG>{!WmVi+pMQ_>*gE&hD-Id%Ck9zqtA^<Jjsu6Lr<4
zBv<YG8nyqwcg3-Gzvbuu9nEF9I#;3b-U)_M9-e1^o6n!|n5J2o{NDRd!OrI8;;+{%
z`pNm?@srxWZ`gxOu07&S7H(R1W$Mhz(CCx3Q8^c!&o&&IRL#7KPl?5i&#;LJnM
zE%%E~m*_nc^JG$wl0W;5ch1jt@ri5gJ7E<p;de>P>wHM?@n?O$+wMO#HE`~qKDlSP
z%<}2$O*L)AldFvC{v=A)>%CSDeA{(qb>*|l8&d?%>RkNhsK7s^H~8JhCY$h|U&V4<
zRW@mV+L!h|N7+7(|L>~ENK@WL-_K0Hvru{QIt!~${~9h`nX;pM>hF$6yI8o=HA^S{
zl8YAj#J9rYoXMQM+K)Z`dBglAKYQ>0+%;v!-m6|mgug$qeNmEsXwE;|=?W<o+wV=@
z<?ZxtJIi-24)HI2Gk@<{yS;YO)8osTPtH4cLP%U@uC!|0iGv4jc3xTF^6Ai)vh{^^
z-}Oc7D(0xKett;VOK?)>>BaxOSMG0MVU2jwwspVF>T}DcPj>p{mE<k8@kM|5MxMH#
zy2mz#EbKm#Xxj6r%=)xdBCqVq*1}bXBIRxvRhC4lOTW53BhXRQyR%<8ymnJtTH1Td
zSik7qe-cdA#I(#v`aYqSEpYF%o#hu4Ubn8f(`pv1ylca<+OyibBU*cos|B^+_ATss
zsIiY_4tL*b$Bj#VnAx40HRBy;=d;VZ>bKo)eEr3|xx2kTDxPQe+_V>g`?UXUysGZo
zXFO#|*1X4c+<gff)||-VvuZrMhShkZ$Y--{U*8y69-O(JQ?RaE?AM&IOa;-&>;7kN
z?cbfYMrDT38PnYhq<?tL5)1qNMRK*v?2;z$7J(x-Pl<agUAlJ8evbDp&fQbECkxEe
za6Eqd^!XGsZS8f{aodZxZ&SWfyg{t~^Mrh9x%m~xH{YnZ>atk)(3<N%EWJ1@*A+au
z^_q+2<=WV)ko3S~iutyzvf7-!%e1)4ZRC#@6`Ajja#X(Ta&PG}_g6cgJe%XPKH8k=
zWxC&6%c)TjH7=~P8u?AFn&r#CuL@7RHn-y1wU5XC&h%+GyVT?OV#|d)kAC`I#JV}=
z=p>!j>(71Ic{9VOUwr55cYg0$?hBm{wTueh_DE&(D=$;wr(r%H7Q6pq|Hg7(@=d{a
zhCO;)l4j>B%n`TrtI_l`+Z*}yrpJkp28oNDyQ=57UsAc6aOjw#lT8TEGM%u38*Zl>
zy4P>L@a+a`e@m&?y%m%9-T8X%hq;kqW#onf4_4-M&)j?T+Vk%mVv?)o|BKyR5ZXB3
z`DBU3?p~(wGyUIUt0HICr8u1DsAFS|5}qO)=zBF>>e8+5NwvOV0cqxZKe_yVM%@*x
zjceL%C@quHBQeWYXWHj!FYDHx{P^c*&>hyMIV_<b#wU5*j#{sH&@$aMYl_se8eZw*
zuP1GHZRP0jO?di`CDc(d{H<fg(TjZXKJOF`%yMSSjaji|OFY90)tf0fuKv*_AAecY
z$CO^36V+3EcF%*Pi1+bk_2q^wBC3m3WxN$lzbZ~S_>>_y=4Yfrq{|(rv{NOW7jD^z
zxQkS}d^+Qv@%7}(#w3oXQ$vL&ik)QAE4|}C`)BBty7_hsc}wJehUi2zKR@~L)rHqD
z3@)*W@0>L2(!J9fflj_1B0jqfr(A3B+bDm5XK~!L#~zuN&KLi?a-2Ee?~DD+ZF$Q7
zbW&A*PMSHPQ&HjGp*s=FvMw#WzfM&@S?kK98`+)@=B=J5-{@GO9&ukG&eH#mq>i3-
z-Ok>bX2+}_TsX-eWZNdp@y+DA*P}bBY}Z(39S^;<At6p~=|g>{il#F!zV?+Ic(IGW
zbitp@;IlQ7$3IW|9DaYdlf}k|IXjY5f7IAdiZeU=^YAa9VD%+&yC&PX&N>obW)bn+
z)aQuY*H*Fjn-V{o$B5597qR5KKEt=_r7ZiOEGs-AwdE>f^7RvuGo&wzUQ!Qw^w+AY
zW_j|#TkPL&Hyo{5a@|JG#eU`-3HExwdCO+FN;;o-_rhP2dBwr03OoD$1l7J;dEcm~
zWYr0_q`N9{9>HF7553FSm%UwT^%nM?&_CfqzG2!a?>zpTx~M75Wpj1wtk!_z+{;*c
z9|YExB+5-$8nnBjPjQy>ls(qBxe9NvuGp+3JBOtvjY%xMXv@Yo`ci*_rp$dl-`d^c
zrLc^9z@iBU`hLCGa%%GDD;X0iJwleQKF-VTysks$O5}05<XIgPKYZAfet8|^dB?ra
z&sk)db^N(tX_>!2eA1*3JDnZ~Zq;9M*fV@fns-C*SNBCF0a@))@~z9SF}`mWa#zc^
zod5lo^<n?1Y76bVz2lkvN_&<~VvF9QHan_|ZR)4b`2xP5GE_P@Ty*uGDL(5(Xv#s|
zpU<}n3kSXP|9wQr-bVLWYMq>*SVqH)n<eo~Yc802tn8Fv&)%LY>3O|cOm*$!1C!W3
zNlxFobzX?GGlN6f{^F|ggFjZU>EF`NA^s^>sXt56K2ftR+0rvyTlUQ1h5Rk=yQQ{7
zth5g2-szrTcRTy?mC*j|2gkBv6>VKz_pLI&Zd>q4HjHDnMc~303NxcjykGR4YSEik
zd-l!6*(OUej@_!CYkR_b>j`#UNpTj5x5bAn_wW9{U~6*Yf6I3PKU$YwpCk1?Vfpdd
z6Z)$*aWGrHd*gOz=B<m#=K0#iQTkrnO`D<;on0?v`F<?Av+t$AZ;vQekI2K3TzLlJ
zp=s@w&u58--#vc#*<ER?_J>E~Co_EW-uXea{1pGR51;qmTwQDZVs6VH=3p=V7oRy_
zD<A6pt5<pYRIF+3Q9<#g>wRO+uAY(ga#mraoT}sAl$XX^&qtL8x$4EA=a+Rm5T(tt
z=<Dpo&-;HZU&gO>AuoV)=8kyXx@rc$BYab~oBzH!?W9}p>?#E<4gUE$7V|n4CC)9r
z;nGua)az(Zjp(~Kui16}r<WgGUHH7Q`>s^N!ZhCGq|=Sv^DoZ&a7p-cgmvTcQ_L%~
z-nUIpTdo)1*%k9T>-C(xP`@9%=iXkMut$wQ?wYISR~d&n)8x(yKeaKxlCfphCYkF2
z3wLeb%UWXGSNFX3^WR$sW?cLAb#^`<OONQuu3PD@{B35;^X#N%?@heD@buxDdj~G8
zykf*-VzqVu+RGhELie_`+z*!dd$e@D#@bzF9doX(UU2N5s(I(4{VV?n6gLKRip>s=
zwfGWsZ}rV!|4F==IkUg#{0n=ec&DYYw(C|%wds5J{|h+umLAcnsw$lGRBGvx{V6s^
zeLp6C&Ut=mLcf2D&m$k1l_oc;k2#x1A9%uT`KYn_*p}AidkX|!yuNVa9rNpuQrY-}
zyN^gGm&P0PuVKjz@6$QQ9Y0rg!v2{8t3SS+^LR(_=0n`V=YP+LztXp7W$9|o?OQB5
z?A7vLvdi25UbxWP<*J_f?F(_cs`;`MzMp=zMB{z$XFvJ;-MTk|;#XWN=xuHI;o_=V
zudg?=Nv519Lgn07T`oJn&#$*6eEO=jYD1Fdl>dRRKVCFHoilCztqp5~DmO2=_ki<_
zj?4C{m1oaoFP{GC_dTz_#S8bG<-a`tlm6d7uhZVdi#(UMGq1Y1R%~;M`^2-K%;(<z
bAD_>CseH=y*RvCAe(USX$NLNMGcW)Ey?XwS
literal 4531
zcmb2|=3oE==C@Yd7E_|H8>ijTe>%-euk()IBx}o=E)S=uSUMS<u};p)JIkY}qB+%N
zg^1PCNij-ZLNkR$Wm~6Q@>Ep1;u!SvQqB7rmF&sSmaH%S_xb<-&z191-+!;YelPoN
z>Fw;dw(H8|+=S$W3?zIw+8hofI&p017Ge5-FwtX%#f`2XlQ|h=d7BlNMEWPkCm3jP
z7&|x=-%^+t$iXv@!|YPBaC85gGNCSs4kssJMyVg3^P0_zd8YrB-FfE39idmztD_~H
zcp@eAl4=u^H@o#FPS83(LGh7^*hkMJEtXR(k}WF!Mb!I+bDWPlDSj{TAB#zE`IG_!
z*|+Y^atG`fA4s-+aTn%@N%WO6l?)W|UM9rMnIRWb!IGXBlgV^Y<lJh{ieGyw*0B24
z9gV#)<*1@z#<ZxN=Y?LM%+PY!%paGen9!mkefaG8BMc(;PV?5@Fx>4>#Bfmce6lNx
z0*8XbA{Qr}1&sDw+x?$?6D(2Ud&PFiGDtYB$gTMKkwt%Brf9WCc5sUe*f@S*KA3o@
zI{RF;u|UmDW2J?Xf-$*FCRPWwDm9##YTv8Wz{xpHgm**8g*_G1bo^BF%^S|-oe@+z
zSns3u*;xLfm*XN+<AhH6gM}T2H_tsg@g<t!U+#fNu3}MA*Dq|W5So>GJo#Ridg!yC
zk59h39LCoDR!U%(Lk6Q@q}L0EhrBo9Ik)Xq_|jbKDe$bYV7225=7*dd>m4&vzdy7}
zh~{*X<&bx%U~ppY7up%;yYP|P&$C~?s2zV27;G+Ydhnv~n^@i!O9hFI?3)BycTDbK
zer?-yQus;BG4&@U8ch2qu;_?LIviwo%;RI}->hxpI=RVd8V9#9kLDtuZ<{5aN6z7V
z%&E*Ec8u3y(w_L6b3XJvC}1g6Jv>LFE^oue7ET_22_yGg52`z36=J3Or#!4t;rY*|
z?e;0^=#002c#Ebyn0h0{N$27TV^$8QBBzW8!ljD(^Ad7{Z6q7{mO4lCwKjZX|8wGU
zVX_|YLQWGFH*TewUhQQGDFSvGQ7StgS~fZ>we+4fw^1$#dB^8?*jf9Rp89j?Zr+%S
zDm*hY9GDq+q~keK#OEFPHO)5YvuCEA(zef`u`k0WKTmxxeBXHTmQ3kGHE%e!#VyZM
zdbcK^vf$5;jk983#qZiH<XtxF>au&bX5TMs-;Zh!e0|h$^VYR`Gk4n6?lj!BvtaID
z#wE!qw^!Y`zB-i2Y0)HUzONA{k7mBJl(tLXd~<W}`X@D;G<2=5Pqu4+rdMdW{GwF#
zAqyql4el}KTFEarh2(dBSaZtm<&C^gq3355f3KhOFjrvTy%nKvUn<>9>DO!4)0SNP
z_4)4Wi8|HdH7D-f7mzXieM<E1)Y-pW{C~$-Cd}!!pRcGnYhsP(yUCZBR_eXH|Eb1g
zJ@5T#FSPDRO4Q$6`EEi)%w_-mhm^1D=dJUxm+CKDy(?&beCfFZYQYODFHE~~J3;H^
z%SE1Z#5XF3=LXcIDLi$Y6Vld`Uwz<0>!+MouAkYTT|Do6-Z)KL%dq^+g<Cf2$3CV`
zt83b`+r)HRqIA{gcRQ+VE#FSoO~0=AVMqUqM@4(jtNT94+U}=vH|uqdeMSEBHX{d@
zA5W&YoRBJhJhSQ|@8Wx>mGbxReSG=9@H3`QN6*LkF7J%?a*0~{L_6r(vpo|;x9wUS
z9VU`Gcg4rF&^i0Oj>;as(%0=eJ->72yh`=TJv*P4?)NF{e5&uV=Ik$@9~X}PQgJXk
z{_U?qn#bj}{|?{dPs)#3_saeI+;?a4Cf{F}vA+4df8aIUZ5w7?)VlmDsnN6Q@29DH
z8{3rT7NqyieZNk&kD)F)y~Je8PCHW`*{G02$B%YR!B<aQ-R$nVvri@Gmhz>qpBp}R
zrpmRk9n>={j7t|jy)N}qe~0Z<tFS$HG;<zsI94{sdvTkVF08y-y!hCRi><rO_Uhby
zxhzOmW>rStu2jYwt7gs>K4%ho*^DRrM7B;*sN96|+`#Z-vHJsg^;dO%y0!Q4zqd8&
zmlwG1<h`r;^HQUf!@8}{Z3H`0UQPV!mmeh}m#zQT^WM%E;!kxBJaFav=$7ZZ@Y!?q
zUEy_is}oN!?_H4ocz62Zt99A(ZZ<uekJ*;p|MV|z?nIrm)(>pz{es)IJy*Xlz7n@)
zrs#~isezWCipqcSxBGj)m-pSUrdZ80H0n%Y)vbxbDv?Etmc<;u{p;(_v)|l)E^D)_
z+nT=Rs%g!;uPyeviFwP<y|IrJ_5b$b?3P{sj5lT}XMUOfZc?t_=B&cPc6Zx5;XhWF
z@6!9Ha_?hV-1aiRM*$U^r>p)A{$A}rHRj097Y0#B7YbeRdSBiC>aafB{=+hR^k45e
z!hH4W&Zw<{E1rKX^=c|=EbhAZ>DJEqp<0jGreC}1Y89KzV`-W4##;WvrB~lwMfJL*
zLJl4NdGKWE;oNmIjJcyFZ=`O`ojGxNl->~+O<w&sc~!42m#>#f)$Laf^q#&X&}Vmk
z);ve4D3`NdGiP74SzTvx@%FF3b6-5^F=q^1zv!{#zpIa~DPA+;e5t?Mbl%Q4!rr!`
zWde2aiSuH2=RVTi+~Toy#b&NEt9O_5J?o9gov}JVe$%#|2d@`aRW3_!h>@=<e0^%m
zy<6@szpu&fbu(e&Vk+g@(h>B#C_nnO_!+q?yLNB7|MzN|^-J$++n7^TYkHdbzrNp@
z9GJG+V9|uPGG)RGgI`<!|Fmesn^e`W`$dIK-u-JlyK3Fdst-v^k|Oo|E_>`u(#=|(
zdHm_LQ{sH3LPbk!t7jVfZ&&<X_WIhctFxY*c5N~C7nD=TviJD=&il%$U7XE#FWj6Y
zI`8*`tiG+fuMAB^wqKqQ_I6$6%H8Lc4l6!*x&HehVIOT9`{dW<>fzV-Zpgja)yg<g
z<+Y?}k={FXWh0)jFIG>qe|w(P`&J>=W%+QGkeJNP*-zhJla;t`+cQmar=Ir9pk0Bl
z+N<THU!L>%e#FkJ<^4x)U-s$?Ui&)F8{gXN9JA?}_Oh$*xFSC7{P%0sq3c}Yzh+)^
zUv-P^eq~Haob)btc8v^EUj50Hf0}2XO#9?(bSUQT)peV6UOqAs_lflQt-L7gK;HxR
z)sxMa*V@&`XME_tYq{aqr{7-|pG-^&JMnjEbyCvn>5oNz_lfNBc&9O~QeoS&<JXI)
zKYBH9kLs)MA>nSCsW;2tZ~FMEdUx#+E4F!_XTSZN`>E)^%-OlF>^hJ5uFaXzetPwE
zsfyrhv9fb}c0U#>%}-%I{QimTYx`|y{dT;)z51f?RlRMm0%wOjSi_yk%<q39_Wah)
zFKe<xKJfBg6clQV)IBD0wY_JJibt=+%q8ijs`tX;p8PJk{^x38TkqOc`u^!_cC?%m
zy1VPm0=Zmg$--i`tM6)a_UE=vmHidA`nVr2tM;q*bdfh(wO*I}Eot46yv>~Zo7nbM
za$MZe=Ii(FGfJ&Iwl3Y-ip_Yt_tZO#r~c@;_ST)Bl4vqLeWpm<#Ff(w&TG{^6`fj;
za`@i9_TF`Qwvpe3Hy@T?xqJ`Ddfw?3x3%&G$~HGoTvmK_qfz*;5BD~?@LoLls7%@U
z_IB^{>y~9t4Y|0>#x~8yQ^U5EyIM7I{e)e-d8-#MW^&%sIQ{5?%dt5#ew*^0S!g9P
zE6RIjI$zaui`<Ha^E(*1Kctp~{M@3|RF`4=N8?|o`>SmaBd-e!&YzTjGrZ))ue+1<
z*G}Jd=fg>@{jT#Xbd=VfU-^FBY5hZ@O036^{_X2oVKjT)wX#U&my17YyxsGuThD*#
z{C%+#!)IEBTr<dezvyOhN$tOVyk5J!zun8QyBsE0Ue;Z*|8-Mo`nmYXY`X^%(^Jy!
zto&ARM1tX4X6I!2`X#BVH5p=@-MWU`viH@i6#qWuxO3k8!1*O_^g>GOg6i%REPj73
z|E;pPSzfHn!jv4&^%siXZHS#e?OW>NExyP5-kJxNPW*g1be_06$I}a!PJe!KZO6H<
zWyfp`FP6vj$;5toXOX+@(7wa7jbyG>#MPP?R9+Xl{bH}OMa0#<h10%&JATCM{@<^T
zp3BPKUz{(idtPPAbH-g;S1&f2)KC}I^YP<Wq3|ThpRW>kX1%@Xdu)C@OGfph+uLk9
zB{tZ*-uSG#BPMHJ@|oS&7f<mKW}mq=ajy4moA;|?UhJ$d_qEw~J6B`T!@7?2)JyxX
zh3XcVEKYNO9L6}&Yg5%DKli_XKDWz7o4)_ZBfaYLJ<0I9C7YPN-MCb3H&^|=m%Q$O
zbN>^eud_|UKYFzN3kv@|nO#_`=Xupu)?=@AcHOpFli}|r!~5e+*~SS!Hcnph<?^9>
z*Y2E_&s%eY?MR(XuG-r0y+==#PIW6tZn#`?QRwWkOMkiB;#Rr2%YNw%wz6Myr!3pL
zF!A6<d6UvP;&xVBzdrL@E$X>>u?YW+rCS8F=IgX@Z{Jy!@~7~eLZgFC!p<!b>$Ynz
zd2v%Uw48HI2lHj8vWbi5^uH=@EBxa4l=0WHJ$I`tPCI*Y2HkolzI1k4W#qhb|0XJC
z&%L`q?D+>l(+#?;x4&#!v}4cXvnNz7kD9DpXV2xVzjxO)t38YMg(sS^uKcRAEcfFD
z;qQ4f=NNBKJ~b;NYpcBc)7+C9TQuKx##~n_>8!t-E6<~L{aMYX?0HqQ@}FsU@hxFg
zdAGAsf^|;8o1g3bHtug1Fu#~K_iJa90<+V!1uoLgibbalxO%^pr`|fWMymf<@R>7D
zLYNi*CwiXUeq(0XN~5nDjmsbWu-102EBz`_J1;!OPED-;R8yBbi|B#EGf`Y~I+m6w
zPDx+v@!qKVFjtwg$c73}S@#RuR{UdVU1$ALrpGlUM@_}K*_836R@dD)N6r4T9;q9m
z<2E`Sult}HaGc|ngtP2q&(F*n60iA}hCcax=iE-VrRFgq68@ek8CS|VUY>g;WUyc1
z+|5{t?Xu-Oea|<pTy)3$;VR>$@{8}71f4PGd$s7!Yrgei=l-@t#XD%diqQWxe|=Z>
zaRalnhI=`RUvwE-$mc};+|FZf#&-Cc+P`m&et)~tja)bW-}Gi{<=5K|(KB!H*!^po
z^G1I|=Rc#^ealmYC-YZdG?9{XpSA0rp=8g^1!vvQ-LeZ?s&T(#mNlbzSCfv-k4+bj
zH>;oew6OUOC%awDPi|*+zuPM&{Lfvyh`D(oJJ*Z*cQ!Lw&1Cp#E9!eoOJUZ=WwWwm
zKIKeP7i{mzc(iekK;w_8m$z(OoO(~W?!;Dw`SVVG%xvL!f3QekR#&>KgcN_G3Zwtx
z&CjnsnQ$fP&@wjGz;DM6?5cPeC~&`lTRg$RNjTg%Q&c$BvNG}U@~8!pg1j6V`#(lA
z?nvksQVTX@C~dN<crSkB<Am6MoRcJW#0Q;FkunfX&vHor=>C|CXV>zFmKvMXSs$)U
z5fZ%9dhmH*T-5`%UdE|MFHSZqmfAHjC3lH-#C5-9@nqphAyrl(My-4EzXu+;XX>gw
z=dWW7gY<>Dhs*CS;aFl9IXCBFk#Du)=hs4)68|wjTV?&UVa9HWy`AkBWM=)Ux%c<L
z^Sj$4ZYw?8kt*rq?AJZ>|K>Df)0@e&PhP+5l3_BPUGv2HKPMT)y1yT9&ST|tmH85D
zqbA_{z>Cv`@z2itHy_TqJN?+Bmn96z0xfDROae?>G(YBvO_Er{Xku<sYVds9B;&6)
zO7-Mj8!J`V6gX}<N9<<UazxT+-Yut;rh`fr2i6~(@h$a-i8pVDUQO2N;G#b_xBfEm
z;uTZ8#?Kt_zA53cy;uXcmZjSLqyJf1kDu7_BmHw%{jQ~Vm%QGYzv5ZNk>68ydfpE?
zaQ5Ms$m{)XOiNByn{s^JP@nmeO-#H+^C;^vr$E;&%hxWt-@9&_@b5p;UEF0sCiDKx
zK6BKfY+0P^#@k74uV(K({?uvPq8qwjcXxC9S@E8$zv7@Se>CFGzN@!4t4XF>PRZEi
z@b8nki1=f}&##ZR&gM8_^G!D^mSfshzA44tj*E}oa@8o0e7ksw`j7fGJ047l;(2`N
zOF?~k{p@we)~u-5c%`fC&ok4PMcV%tK1w>H79nDy7W8b*1b@qqb=`|k9@wD$=6{{#
zMu!89jn|IU{_sD=dT&nG{T=)DmP_fcx6HFC{QG#`S^MRWw0_n*`yKW7yFWYFcOsv^
y-%;;kFRgQvi@3cmE_a{XntI~T`lWyBH%$4Tc0c~)zQp){yxX5&-}+dKfdK%yu+B9A
diff --git a/R/SoaresTb6.20.R b/R/SoaresTb6.20.R
new file mode 100644
index 00000000..26bbb703
--- /dev/null
+++ b/R/SoaresTb6.20.R
@@ -0,0 +1,42 @@
+#' @name SoaresTb6.20
+#' @title Escores do grupo tianeptina nos primeiro e ultimos dias.
+#' @description A tianeptina é um fármaco antidepressivo do grupo dos
+#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
+#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
+#' comparar a tianeptina com o placebo. O ensaio consistiu em
+#' administrar a droga a dois grupos de pacientes, compostos de
+#' forma aleatória, e quantificar a depressão através da escala de
+#' Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
+#' diminuição do escore de depressão entre os pacientes de um dos
+#' grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
+#' apresentados são escores atribuídos a 16 pacientes do grupo
+#' tianeptina que foram admitidos em Belo Horizonte no primeiro dia
+#' e no último dia.
+#' @format Um \code{data.frame} com 32 observações e 2 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+#'
+#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
+#' quanto no segundo dia.}
+#'
+#' }
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA, (2002), Tb 20, pg.207.
+#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+#' e Social).
+#' @examples
+#' library(lattice)
+#'
+#' SoaresTb6.20$n <- seq(1:16)
+#' xyplot(esc~n|per, data = SoaresTb6.20,
+#' type = c('g','b'),
+#' xlab = 'Pacientes do grupo tianeptina',
+#' ylab = 'Escores dos pacientes')
+#'
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/SoaresTb6.20.txt b/data-raw/SoaresTb6.20.txt
new file mode 100644
index 00000000..ead48b04
--- /dev/null
+++ b/data-raw/SoaresTb6.20.txt
@@ -0,0 +1,33 @@
+per esc
+primeiro dia 24
+primeiro dia 46
+primeiro dia 26
+primeiro dia 44
+primeiro dia 27
+primeiro dia 34
+primeiro dia 33
+primeiro dia 25
+primeiro dia 35
+primeiro dia 30
+primeiro dia 38
+primeiro dia 38
+primeiro dia 31
+primeiro dia 27
+primeiro dia 34
+primeiro dia 32
+ultimo dia 6
+ultimo dia 33
+ultimo dia 21
+ultimo dia 26
+ultimo dia 10
+ultimo dia 29
+ultimo dia 33
+ultimo dia 29
+ultimo dia 37
+ultimo dia 15
+ultimo dia 2
+ultimo dia 21
+ultimo dia 7
+ultimo dia NA
+ultimo dia NA
+ultimo dia 26
diff --git a/data/SoaresTb6.20.rda b/data/SoaresTb6.20.rda
new file mode 100644
index 0000000000000000000000000000000000000000..3f3362333d400db8a984f195c5abb109ef8d2e5d
GIT binary patch
literal 269
zcmZ>Y%CIzaj8qGb<c(rl%)s!a{^0*@r>cLm1~RZP$T--m-*0eWaA06y+`w>awt$AR
zTbr-RS4l(Ll}5Y_QYnd|W{WvzGD<LTwn$|*RY`G*Xc_yuotW2h;bg~Ug|ub<!Gg>6
zZY)_6aO}a670bk{xJxeho$lH5Dlz?AL~(kYXXlZr@|hXGMAEi4o!xS2(%;?D(hM$+
zArkWL{D*B%u(-<QOm_LuvDU&vY)TuaF0Y2-0%<S9CYIc~vw}%EK^Ydj%8&BO);_-*
z8(mr%p7{G``-F>Lp(gLV4+oe%Vsf$XTgATF<^{)TvjW+xO=_tutIzgc+~h44n4yrv
a$7<ZEcQ={oW8*!&CtU>#6{NPXx&Z(taBLU=
literal 0
HcmV?d00001
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
new file mode 100644
index 00000000..3aaf179a
--- /dev/null
+++ b/man/SoaresTb6.20.Rd
@@ -0,0 +1,52 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresTb6.20.R
+\name{SoaresTb6.20}
+\alias{SoaresTb6.20}
+\title{Escores do grupo tianeptina nos primeiro e ultimos dias.}
+\format{Um \code{data.frame} com 32 observações e 2 variáveis.
+
+\describe{
+
+\item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+
+\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
+ quanto no segundo dia.}
+
+}}
+\source{
+SOARES; SIQUEIRA, (2002), Tb 20, pg.207.
+}
+\description{
+A tianeptina é um fármaco antidepressivo do grupo dos
+ tricíclicos. Rocha (1995) relata os resultados de um ensaio
+ clínico aleatorizado, duplo-cego, realizado com o objetivo de
+ comparar a tianeptina com o placebo. O ensaio consistiu em
+ administrar a droga a dois grupos de pacientes, compostos de
+ forma aleatória, e quantificar a depressão através da escala de
+ Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
+ diminuição do escore de depressão entre os pacientes de um dos
+ grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
+ apresentados são escores atribuídos a 16 pacientes do grupo
+ tianeptina que foram admitidos em Belo Horizonte no primeiro dia
+ e no último dia.
+}
+\examples{
+library(lattice)
+
+SoaresTb6.20$n <- seq(1:16)
+xyplot(esc~n|per, data = SoaresTb6.20,
+ type = c('g','b'),
+ xlab = 'Pacientes do grupo tianeptina',
+ ylab = 'Escores dos pacientes')
+
+
+}
+\references{
+ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+ episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+ controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+ UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+ e Social).
+}
+\keyword{AAS}
+
--
GitLab
From 51744842d0c81fcb89c31b3dde9fbe2a7aa8f2e1 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Wed, 14 Sep 2016 16:16:37 -0300
Subject: [PATCH 12/14] Adiciona tabela 6.15 capitulo 6
---
R/SoaresTb6.15.R | 41 ++++++++++++++++++++++++++++++
data-raw/SoaresTb6.15.txt | 33 ++++++++++++++++++++++++
data/SoaresTb6.15.rda | Bin 0 -> 264 bytes
man/SoaresTb6.15.Rd | 51 ++++++++++++++++++++++++++++++++++++++
4 files changed, 125 insertions(+)
create mode 100644 R/SoaresTb6.15.R
create mode 100644 data-raw/SoaresTb6.15.txt
create mode 100644 data/SoaresTb6.15.rda
create mode 100644 man/SoaresTb6.15.Rd
diff --git a/R/SoaresTb6.15.R b/R/SoaresTb6.15.R
new file mode 100644
index 00000000..a630b357
--- /dev/null
+++ b/R/SoaresTb6.15.R
@@ -0,0 +1,41 @@
+#' @name SoaresTb6.15
+#' @title Escore final na escala MADRS de pacientes dos dois grupos
+#' admitidos em Belo Horizonte.
+#' @description A tianeptina é um fármaco antidepressivo do grupo dos
+#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
+#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
+#' comparar a tianeptina com o placebo. Participaram deste ensaio
+#' pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
+#' consistiu em administrar a droga a dois grupos de pacientes,
+#' compostos de forma aleatória, e quantificar a depressão através
+#' da escala de Montgomery-Asberg (MADRS), em que os valores maiores
+#' indicam maior gravidade da depressão. O escore foi obtido para
+#' cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
+#' @format Um \code{data.frame} com 32 observações e 2 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{grp}}{Grupos de pacientes.}
+#'
+#' \item{\code{esc}}{Escore final obtido pelo paciente.}
+#'
+#' }
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA, (2002), Tb 6.15, pg.207.
+#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+#' e Social).
+#' @examples
+#' library(lattice)
+#' data(SoaresTb6.15)
+#'
+#' SoaresTb6.15$n <- seq(1:16)
+#' xyplot(esc~n|grp, data = SoaresTb6.15,
+#' type = c('g','b'),
+#' xlab = 'Pacientes do ensaio',
+#' ylab = 'Escores dos pacientes')
+#'
+#'
+NULL
diff --git a/data-raw/SoaresTb6.15.txt b/data-raw/SoaresTb6.15.txt
new file mode 100644
index 00000000..91b629d5
--- /dev/null
+++ b/data-raw/SoaresTb6.15.txt
@@ -0,0 +1,33 @@
+grp,esc
+placebo,6
+placebo,33
+placebo,21
+placebo,26
+placebo,10
+placebo,29
+placebo,33
+placebo,29
+placebo,37
+placebo,15
+placebo,2
+placebo,21
+placebo,7
+placebo,26
+placebo,13
+placebo,
+tianeptina,10
+tianeptina,8
+tianeptina,17
+tianeptina,4
+tianeptina,17
+tianeptina,14
+tianeptina,9
+tianeptina,4
+tianeptina,21
+tianeptina,3
+tianeptina,7
+tianeptina,10
+tianeptina,29
+tianeptina,13
+tianeptina,14
+tianeptina,2
diff --git a/data/SoaresTb6.15.rda b/data/SoaresTb6.15.rda
new file mode 100644
index 0000000000000000000000000000000000000000..f29557e870c0cb233caedf928b7fe026485d3dc5
GIT binary patch
literal 264
zcmZ>Y%CIzaj8qGbym4*Ic?O2h{}2BE{z@o`(U^gSLB_#;`P~Kw1_uTP#tjVD47xIx
zwS37?f91P?QHs~V*FZo+n6qv90%6XD6DKb0Y*gxW_W9~8d~wB>j9CU(@&nnVX1Ofr
zSS27JD9O+xGhy-TW(_Y!m6z;7%ppHaGFpy*sm++O`t8nnTjeS@{CKF`u>Qo;GM%do
znpur((M*N+E(w`zb@ra4#5?CMr<U6V1E-BkSxlG{$}F}_QkRgPrIE?IFj{-<-p|KM
z-hbOvYxU*n!h~DK*=u>f{c|^8-6A40Q!YiLwcU6{KxE0rcO|TM6}|0u7<s5LGr5G>
U-!9tfF_pDayvWreU;@bJ06NBRxBvhE
literal 0
HcmV?d00001
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
new file mode 100644
index 00000000..0d514507
--- /dev/null
+++ b/man/SoaresTb6.15.Rd
@@ -0,0 +1,51 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresTb6.15.R
+\name{SoaresTb6.15}
+\alias{SoaresTb6.15}
+\title{Escore final na escala MADRS de pacientes dos dois grupos
+ admitidos em Belo Horizonte.}
+\format{Um \code{data.frame} com 32 observações e 2 variáveis.
+
+\describe{
+
+\item{\code{grp}}{Grupos de pacientes.}
+
+\item{\code{esc}}{Escore final obtido pelo paciente.}
+
+}}
+\source{
+SOARES; SIQUEIRA, (2002), Tb 6.15, pg.207.
+}
+\description{
+A tianeptina é um fármaco antidepressivo do grupo dos
+ tricíclicos. Rocha (1995) relata os resultados de um ensaio
+ clínico aleatorizado, duplo-cego, realizado com o objetivo de
+ comparar a tianeptina com o placebo. Participaram deste ensaio
+ pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
+ consistiu em administrar a droga a dois grupos de pacientes,
+ compostos de forma aleatória, e quantificar a depressão através
+ da escala de Montgomery-Asberg (MADRS), em que os valores maiores
+ indicam maior gravidade da depressão. O escore foi obtido para
+ cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
+}
+\examples{
+library(lattice)
+data(SoaresTb6.15)
+
+SoaresTb6.15$n <- seq(1:16)
+xyplot(esc~n|grp, data = SoaresTb6.15,
+ type = c('g','b'),
+ xlab = 'Pacientes do ensaio',
+ ylab = 'Escores dos pacientes')
+
+
+}
+\references{
+ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+ episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+ controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+ UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+ e Social).
+}
+\keyword{AAS}
+
--
GitLab
From d3b7697e2b48ed969e33598c71e6e0bf2898f8f3 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sat, 22 Oct 2016 15:28:01 -0200
Subject: [PATCH 13/14] Faz correcoes na documentacao.
---
R/SoaresEx6.17.R | 56 +++++++++++++++---------------
R/SoaresEx6.18.R | 70 ++++++++++++++++++++------------------
R/SoaresEx6.19.R | 69 +++++++++++++++++++------------------
R/SoaresEx6.6.R | 53 +++++++++++++++--------------
R/SoaresTb6.1.R | 59 +++++++++++++++-----------------
R/SoaresTb6.15.R | 60 +++++++++++++++++---------------
R/SoaresTb6.18.R | 45 ++++++++++++++----------
R/SoaresTb6.20.R | 65 ++++++++++++++++++++---------------
data-raw/SoaresEx6.19.txt | 2 +-
data-raw/SoaresEx6.6.txt | 2 +-
data-raw/SoaresTb6.1.txt | 10 +++---
data/SoaresEx6.19.rda | Bin 256 -> 257 bytes
data/SoaresEx6.6.rda | Bin 227 -> 231 bytes
data/SoaresTb6.1.rda | Bin 241 -> 238 bytes
man/SoaresEx6.17.Rd | 52 ++++++++++++++--------------
man/SoaresEx6.18.Rd | 54 +++++++++++++++--------------
man/SoaresEx6.19.Rd | 61 +++++++++++++++++----------------
man/SoaresEx6.6.Rd | 45 ++++++++++++------------
man/SoaresTb6.1.Rd | 52 ++++++++++++++--------------
man/SoaresTb6.15.Rd | 56 ++++++++++++++++--------------
man/SoaresTb6.18.Rd | 30 ++++++++--------
man/SoaresTb6.20.Rd | 52 +++++++++++++++-------------
22 files changed, 465 insertions(+), 428 deletions(-)
diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
index 282e9689..213b8779 100644
--- a/R/SoaresEx6.17.R
+++ b/R/SoaresEx6.17.R
@@ -1,50 +1,48 @@
#' @name SoaresEx6.17
-#' @title Relação entre a depressão e o desejo pela morte de pacientes
-#' com câncer terminal.
+#' @title Relação entre a Depressão e o Desejo pela Morte de Pacientes
+#' com Câncer Terminal
#' @description Um estudo feito por Chochinov et al. (1995) contou com a
-#' participação de 190 pacientes de dois hospitais em Winnipeg,
+#' participação de 190 pacientes de dois hospitais em Winnipeg,
#' Canadá, com diagnóstico primário de câncer terminal, admitidos no
-#' período de coletas de dados. Uma das preocupações era verificar a
-#' existência de relação entre o desejo de morte relatado por alguns
+#' período de coletas de dados. Uma das preocupações era verificar a
+#' existência de relação entre o desejo de morte relatado por alguns
#' deles e a depressão diagnosticada em alguns casos.
-#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
+#' \item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
#' do estudo.}
#'
-#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
#' estudo.}
#'
-#' \item{exp}{Variável explicativa entre o desejo pela morte e a
-#' depressão.}
+#' \item{freq}{Frequência de casos em cada combinação.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex 17, pg 230.
+#' @source SOARES; SIQUEIRA (2002), exercício 17, pág. 230.
#' @references CHOCHINOV, H. M., WILSON, K.G., ENNS, M. et al. Desire
-#' for death in the terminal ill. The American Journal of Psychiatry,
-#' v.152, p.1185-91, 1995.
+#' for death in the terminal ill. \emph{The American Journal of
+#' Psychiatry}, v.152, p.1185-91, 1995.
#' @examples
#'
#' library(lattice)
-#' data(SoaresEx6.17)
#'
-#' dado <- xtabs(exp ~ dpm + dpss, data = SoaresEx6.17)
-#' barchart(dado, horizontal = FALSE,
-#' stack = FALSE,
-#' scales = list(x = list(labels = c("Ausente","Presente"))),
-#' ylab = "Frequência",
-#' xlab = "Depressão",
-#' main = "Relação entre a depressão e o desejo pela morte de
-#' pacientes com câncer terminal",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Desejo pela morte ausente",
-#' 'Desejo pela morte presente')))
-#'
-#'
+#' data(SoaresEx6.17)
+#' str(SoaresEx6.17)
+#'
+#' names(SoaresEx6.17)[3] <- "freq"
+#' dado <- xtabs(freq ~ dpm + dpss, data = SoaresEx6.17)
+#' mosaicplot(dado)
+#'
+#' barchart(dado,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Ausente", "Presente"))),
+#' ylab = "Frequência",
+#' xlab = "Depressão",
+#' auto.key = list(text = c("Desejo pela morte ausente",
+#' "Desejo pela morte presente")))
#'
NULL
diff --git a/R/SoaresEx6.18.R b/R/SoaresEx6.18.R
index 911d0bfb..ff9e5f04 100644
--- a/R/SoaresEx6.18.R
+++ b/R/SoaresEx6.18.R
@@ -1,54 +1,58 @@
#' @name SoaresEx6.18
-#' @title A transferência do álcool para o leite humano.
-#' @description O consumo de pequenas quantidades de álcool tem sido
-#' recomendado a mulheres que amamentam a fim de ajudar à lactação.
+#' @title A Transferência do Álcool para o Leite Materno
+#' @description O consumo de pequenas quantidades de álcool tem sido
+#' recomendado a mulheres que amamentam a fim de ajudar à lactação.
#' A ocorrência de alteração nas características sensoriais do leite
-#' ou no comportamento dos lactentes foi objeto de estudo de
-#' Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
-#' uma semana, doze mulheres consumiram suco de laranja puro ou
-#' contendo etanol antes de amamentarem suas crianças e meia-hora
+#' ou no comportamento dos lactentes foi objeto de estudo de
+#' Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
+#' uma semana, doze mulheres consumiram suco de laranja puro ou
+#' contendo etanol antes de amamentarem suas crianças e meia-hora
#' após ter sido obtida uma amostra do leite. Amostras de leite para
-#' o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
-#' da bebida, de modo a interromper o mínimo possível a amamentação.
-#' @format Um \code{data.frame} com 4 observações e 6 variáveis.
+#' o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
+#' da bebida, de modo a interromper o mínimo possível a
+#' amamentação. TODO Não entendi os dados da tabela, não foi
+#' possível associar com o enunciado.
+#' @format Um \code{data.frame} com 4 observações e 6 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
+#' \item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
#' ingerido pela criança e o tempo de duração da amamentação.}
#'
#' \item{\code{exp}}{Variável explicativa com os valores.}
-#'
-#' \item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida..}
-#'
+#'
+#' \item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida.}
+#'
#' \item{\code{exp}}{Variável explicativa com os valores obtidos.}
-#'
+#'
#' \item{\code{teste.t}}{Valor obtido com o teste-t.}
-#'
+#'
#' \item{\code{valor.p}}{Valor-p utilizado no estudo.}
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), Tb 18, pg.231.
+#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 231.
#' @references MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
-#' to human milk. The New England Journal of Medicine, v.325,
-#' p.981-5, 1991 .
+#' to human milk. \emph{The New England Journal of Medicine}, v.325,
+#' p.981-5, 1991.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx6.18)
-#'
+#' str(SoaresEx6.18)
+#'
#' dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
-#' barchart(dados, horizontal = FALSE,
-#' stack = FALSE,
-#' scales = list(x = list(labels = c("Leite ingerido (mL)",
-#' 'Tempo (min)'))),
-#' ylab = "Frequência",
-#' xlab = "Variável",
-#' main = "A transferência do álcool para o leite humano",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Bebida alcoólica não ingerida",
-#' 'Bebida alcoólica ingerida')))
-#'
-#'
-NULL
\ No newline at end of file
+#' addmargins(dados)
+#'
+#' barchart(dados,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Leite ingerido (mL)",
+#' "Tempo (min)"))),
+#' ylab = "Frequência",
+#' xlab = "Variável",
+#' auto.key = list(text = c("Bebida alcoólica não ingerida",
+#' "Bebida alcoólica ingerida")))
+#'
+NULL
diff --git a/R/SoaresEx6.19.R b/R/SoaresEx6.19.R
index bf9a9fb8..d3253bbc 100644
--- a/R/SoaresEx6.19.R
+++ b/R/SoaresEx6.19.R
@@ -1,48 +1,49 @@
#' @name SoaresEx6.19
-#' @title Incidência de suicídio como causa de morte para poetas e
-#' escritores de ficção.
-#' @description Em 1992, Ludwig fez um estudo na qual compara o
-#' comportamento criativo e psicopatologico entre diversos grupos
-#' profissionais, a partir de pelo menos um fonte bibliogŕafica bem
-#' documentada e bem estudada. Mais de 1000 personalidades
-#' eminentes, já falecidas e que viveram pelo menos uma parte de suas
-#' vidas no século XX foram divididas em dezenove categorias
-#' profissionais e observações comportamentais. Uma característica
-#' estudada foi a existência de diferenças na psicopatologia para
-#' imigrantes do grupo artístico, tais como poetas e escritores de
+#' @title Incidência de Suicídio como Causa de Morte para Poetas e
+#' Escritores de Ficção
+#' @description Em 1992, Ludwig fez um estudo na qual compara o
+#' comportamento criativo e psicopatológico entre diversos grupos
+#' profissionais, a partir de pelo menos um fonte bibliográfica bem
+#' documentada e bem estudada. Mais de 1000 personalidades
+#' eminentes, já falecidas e que viveram pelo menos uma parte de
+#' suas vidas no século XX foram divididas em dezenove categorias
+#' profissionais e observações comportamentais. Uma característica
+#' estudada foi a existência de diferenças na psicopatologia para
+#' imigrantes do grupo artístico, tais como poetas e escritores de
#' ficção.
-#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{cm}}{Causa de morte.}
#'
#' \item{\code{prof}}{Profissão avaliada.}
-#'
-#' \item{\code{exp}}{Variável explicativa com os valores obtidos.}
+#'
+#' \item{\code{freq}}{Frequência de casos tem cada situação.}
#'
#' }
-#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex.19, cap.6, pg.231.
-#' @references LUDWING, A. M. Creative achievement and psychology:
-#' comparison among professions. The American Journal of
-#' Psychotherapy, v.46, p.330-56, 1992.
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA (2002), exercício 19, capítulo 6, pág. 231.
+#' @references LUDWING, A. M. Creative achievement and psychology:
+#' comparison among professions. \emph{The American Journal of
+#' Psychotherapy}, v.46, p.330-56, 1992.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx6.19)
-#' a <- xtabs(exp ~ cm + prof, data = SoaresEx6.19)
-#' barchart(a, horizontal = FALSE,
-#' stack = FALSE,
-#' scales = list(x=list(labels = c("Outras",'Suicídio'))),
-#' ylab = "Frequência",
-#' xlab = "Causa da morte",
-#' main = "Incidência de suicídio como causa de morte para poetas e
-#' escritores de ficção",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Escritores de ficção",
-#' 'Poetas')))
-#'
-NULL
\ No newline at end of file
+#' str(SoaresEx6.19)
+#'
+#' a <- xtabs(freq ~ cm + prof, data = SoaresEx6.19)
+#' addmargins(a)
+#'
+#' barchart(a,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Outras", "Suicídio"))),
+#' ylab = "Frequência",
+#' xlab = "Causa da morte",
+#' auto.key = list(text = c("Escritores de ficção",
+#' "Poetas")))
+#'
+NULL
diff --git a/R/SoaresEx6.6.R b/R/SoaresEx6.6.R
index 0803ca05..26f10c6f 100644
--- a/R/SoaresEx6.6.R
+++ b/R/SoaresEx6.6.R
@@ -1,38 +1,39 @@
#' @name SoaresEx6.6
-#' @title Presença e ausência da hiperventilação no aumento da
-#' capacidade física.
-#' @description Nove indivíduos do sexo masculino, sadios, com idade
-#' média de 21 anos participaram, voluntariamente, de uma pesquisa
-#' cujo objetivo era verificar se a alcalose respiratória, induzida
-#' por hiperventilação voluntária, aumenta a capacidade física
-#' avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
-#' nove indivíduos participaram da corrida de 800 metros em 2
-#' momentos: um deles em condições normais (sem hiperventilação) e
-#' no outro após a hiperentilação voluntária.
-#' @format Um \code{data.frame} com 18 observações e 2 variáveis.
+#' @title Presença e Ausência da Hiperventilação no Aumento da
+#' Capacidade Física
+#' @description Nove indivíduos do sexo masculino, sadios, com idade
+#' média de 21 anos participaram, voluntariamente, de uma pesquisa
+#' cujo objetivo era verificar se a alcalose respiratória, induzida
+#' por hiperventilação voluntária, aumenta a capacidade física
+#' avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
+#' nove indivíduos participaram da corrida de 800 metros em 2
+#' momentos: um deles em condições normais (sem hiperventilação) e
+#' no outro após a hiperentilação voluntária.
+#' @format Um \code{data.frame} com 18 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{hpv}}{Hiperventilação presente ou não presente.}
#'
-#' \item{\code{exp}}{Variável explicativa com os valores.}
+#' \item{\code{tempo}}{Tempo para completar a corrida de 800 metros, em
+#' segundos.}
#'
#' }
-#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Ex.6, cap.6, pg.223.
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA (2002), exercício 6, capítulo 6, pág. 223.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx6.6)
-#' SoaresEx6.6$n <- seq(1:9)
-#' xyplot(exp~n|hpv, data = SoaresEx6.6,
-#' type = c('g','b'),
-#' xlab = 'Indivíduos que participaram da pesquisa',
-#' ylab = 'Valores observados',
-#' main = "Presença e ausência da hiperventilação no aumento da
-#' capacidade física")
-#'
-#'
-NULL
\ No newline at end of file
+#' str(SoaresEx6.6)
+#'
+#' xyplot(tempo ~ hpv,
+#' data = SoaresEx6.6,
+#' type = c("p", "a"),
+#' grid = TRUE,
+#' jitter.x = TRUE,
+#' xlab = "Hiperventilação",
+#' ylab = "Tempo na corrida de 800 metros (s)")
+#'
+NULL
diff --git a/R/SoaresTb6.1.R b/R/SoaresTb6.1.R
index 41e9ac3b..cda42424 100644
--- a/R/SoaresTb6.1.R
+++ b/R/SoaresTb6.1.R
@@ -1,49 +1,46 @@
#' @name SoaresTb6.1
-#' @title Número de pacientes tratados com AZT ou placebo.
-#' @description Em 1987, FISCHL publicou o primeiro relato de um ensaio
+#' @title Sobreviência de Pacientes Tratados com AZT ou Placebo
+#' @description Em 1987, FISCHL publicou o primeiro relato de um ensaio
#' clínico que comprovou a eficácia do fármaco zidovudina (AZT) para
-#' prolongar a vida de pacientes com AIDS. Na tabela é apresentado
-#' os dados entre a relação dos pacientes que receberam o AZT e o
+#' prolongar a vida de pacientes com AIDS. Na tabela é apresentado
+#' os dados entre a relação dos pacientes que receberam o AZT e o
#' placebo e permaneceram vivos ou mortos durante o experimento.
-#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{grp}}{Grupo de pacientes que receberam o zidozudina
-#' (AZT) ou placebo.}
+#' \item{\code{grp}}{Grupo de pacientes que receberam o zidozudina (AZT)
+#' ou placebo.}
#'
-#' \item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
+#' \item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
#' fármacos no que diz respeito ao prolongamento de suas vidas.}
#'
-#' \item{exp}{Variável explicativa dos valores obtidos.}
+#' \item{freq}{Número de casos em cada situação.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Tb 6.1, pg 177.
-#'
-#' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
-#' efficacy of azidothymidine (AZT) in treatment of patients with
+#' @source SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
+#' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
+#' efficacy of azidothymidine (AZT) in treatment of patients with
#' AIDS and AIDS-related complez. A doubleblind, placebo-controlled
-#' trial. The New England Journal of Medicine, v.317, n.4 p.185-91,
-#' 1987.
+#' trial. \emph{The New England Journal of Medicine}, v.317, n.4
+#' p.185-91, 1987.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresTb6.1)
+#' str(SoaresTb6.1)
+#'
+#' dados <- xtabs(freq ~ grp + sit, data = SoaresTb6.1)
+#' addmargins(dados)
+#'
+#' barchart(dados,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("AZT", "Placebo"))),
+#' ylab = "Frequência",
+#' xlab = "Grupo",
+#' auto.key = list(text = c("Morto", "Vivo")))
#'
-#' dados <- xtabs(exp ~ grp + sit, data = SoaresTb6.1)
-#' barchart(dados, horizontal = FALSE,
-#' stack = FALSE,
-#' scales=list(x=list(labels=c("AZT","Placebo"))),
-#' ylab = "Frequência",
-#' xlab = "Grupo",
-#' main = "Número de pacientes tratados com AZT ou placebo",
-#' auto.key = list(corner = c(0.95, 0.95),
-#' text = c("Morto",
-#' 'Vivo')))
-#'
-#'
-#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/SoaresTb6.15.R b/R/SoaresTb6.15.R
index a630b357..4fcc2ab0 100644
--- a/R/SoaresTb6.15.R
+++ b/R/SoaresTb6.15.R
@@ -1,41 +1,47 @@
#' @name SoaresTb6.15
-#' @title Escore final na escala MADRS de pacientes dos dois grupos
-#' admitidos em Belo Horizonte.
-#' @description A tianeptina é um fármaco antidepressivo do grupo dos
-#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
-#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
-#' comparar a tianeptina com o placebo. Participaram deste ensaio
-#' pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
-#' consistiu em administrar a droga a dois grupos de pacientes,
-#' compostos de forma aleatória, e quantificar a depressão através
-#' da escala de Montgomery-Asberg (MADRS), em que os valores maiores
-#' indicam maior gravidade da depressão. O escore foi obtido para
-#' cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
-#' @format Um \code{data.frame} com 32 observações e 2 variáveis.
+#' @title Escore Final na Escala MADRS de Pacientes dos Dois Grupos
+#' Admitidos Tratados com Tianeptina
+#' @description A tianeptina é um fármaco antidepressivo do grupo dos
+#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
+#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
+#' comparar a tianeptina com o placebo. Participaram deste ensaio
+#' pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
+#' consistiu em administrar a droga a dois grupos de pacientes,
+#' compostos de forma aleatória, e quantificar a depressão através
+#' da escala de Montgomery-Asberg (MADRS), em que os valores maiores
+#' indicam maior gravidade da depressão. O escore foi obtido para
+#' cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
+#' @format Um \code{data.frame} com 32 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{grp}}{Grupos de pacientes.}
+#' \item{\code{grp}}{Grupos de pacientes segundo recebimento da
+#' tieneptina.}
#'
-#' \item{\code{esc}}{Escore final obtido pelo paciente.}
+#' \item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
+#' dessa tabela são que de dias? todos os paciêntes no dia 7?.}
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), Tb 6.15, pg.207.
-#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
-#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
-#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
-#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
#' e Social).
#' @examples
+#'
#' library(lattice)
+#'
#' data(SoaresTb6.15)
-#'
-#' SoaresTb6.15$n <- seq(1:16)
-#' xyplot(esc~n|grp, data = SoaresTb6.15,
-#' type = c('g','b'),
-#' xlab = 'Pacientes do ensaio',
-#' ylab = 'Escores dos pacientes')
-#'
+#' str(SoaresTb6.15)
+#'
+#' xyplot(esc ~ grp,
+#' data = SoaresTb6.15,
+#' type = c("p", "a"),
+#' grid = TRUE,
+#' jitter.x = TRUE,
+#' xlab = "Tratamento com tieneptina",
+#' ylab = "Escores dos pacientes")
#'
NULL
diff --git a/R/SoaresTb6.18.R b/R/SoaresTb6.18.R
index 973e7c65..643ec029 100644
--- a/R/SoaresTb6.18.R
+++ b/R/SoaresTb6.18.R
@@ -1,32 +1,41 @@
#' @name SoaresTb6.18
-#' @title Níveis de colesterol no início e no final do programa.
-#' @description O presente estudo teve como objetivo avaliar a
-#' efetividade de uma dieta combinada com um programa de exercícios
-#' físicos na redução dos níveis de colesterol. Foram registrados os
-#' níveis de colesterol no início e no final do programa de 12
+#' @title Níveis de Colesterol no Início e no Final do Programa
+#' @description O presente estudo teve como objetivo avaliar a
+#' efetividade de uma dieta combinada com um programa de exercícios
+#' físicos na redução dos níveis de colesterol. Foram registrados os
+#' níveis de colesterol no início e no final do programa de 12
#' participantes.
-#' @format Um \code{data.frame} com 24 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{prg}}{Expecificação do programa: início e final.}
#'
-#' \item{\code{exp}}{Variável explicativa com os valores.}
+#' \item{\code{col}}{Colesterol dos pacientes.}
#'
#' }
#' @keywords AAS
-#' @source Introdução à estatística médica/José Francisco Soares e
-#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
-#' Tb 6.18, pg 203.
+#' @source SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresTb6.18)
-#' SoaresTb6.18$n <- seq(1:12)
-#' xyplot(exp~n|prg, data = SoaresTb6.18,
-#' xlab = 'Indivíduos que participaram do programa',
-#' ylab = 'Níveis de colesterol')
-#'
-#'
-#'
-NULL
\ No newline at end of file
+#' str(SoaresTb6.18)
+#'
+#' xyplot(exp ~ prg,
+#' data = SoaresTb6.18,
+#' type = c("p", "a"),
+#' xlab = "Indivíduos que participaram do programa",
+#' ylab = "Níveis de colesterol")
+#'
+NULL
+
+# TODO: Esses dados parecem ser uma amostra pareada, ou seja, os
+# indivíduos foram medidos duas vezes gerando um par de valores (antes,
+# depois). Sendo assim, o mais apropriado é ter um data.frame com duas
+# colunas, {antes, depois} com os valores de colesterol. Cada linha
+# seria um indivíduo. Se os individuos estão na ordem correta, a função
+# unstack() faz isso facilmente.
+#
+# unstack(SoaresTb6.18, exp ~ prg)
diff --git a/R/SoaresTb6.20.R b/R/SoaresTb6.20.R
index 26bbb703..82151b34 100644
--- a/R/SoaresTb6.20.R
+++ b/R/SoaresTb6.20.R
@@ -1,42 +1,51 @@
#' @name SoaresTb6.20
-#' @title Escores do grupo tianeptina nos primeiro e ultimos dias.
-#' @description A tianeptina é um fármaco antidepressivo do grupo dos
-#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
-#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
-#' comparar a tianeptina com o placebo. O ensaio consistiu em
-#' administrar a droga a dois grupos de pacientes, compostos de
-#' forma aleatória, e quantificar a depressão através da escala de
-#' Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
-#' diminuição do escore de depressão entre os pacientes de um dos
-#' grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
-#' apresentados são escores atribuídos a 16 pacientes do grupo
-#' tianeptina que foram admitidos em Belo Horizonte no primeiro dia
+#' @title Escores do Grupo Tianeptina no Primeiro e Último Dia
+#' @description A tianeptina é um fármaco antidepressivo do grupo dos
+#' tricíclicos. Rocha (1995) relata os resultados de um ensaio
+#' clínico aleatorizado, duplo-cego, realizado com o objetivo de
+#' comparar a tianeptina com o placebo. O ensaio consistiu em
+#' administrar a droga a dois grupos de pacientes, compostos de
+#' forma aleatória, e quantificar a depressão através da escala de
+#' Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
+#' diminuição do escore de depressão entre os pacientes de um dos
+#' grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
+#' apresentados são escores atribuídos a 16 pacientes do grupo
+#' tianeptina que foram admitidos em Belo Horizonte no primeiro dia
#' e no último dia.
-#' @format Um \code{data.frame} com 32 observações e 2 variáveis.
+#' @format Um \code{data.frame} com 32 observações e 2 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{per}}{Período de tempo na qual o dado foi coletado.}
#'
-#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
+#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
#' quanto no segundo dia.}
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), Tb 20, pg.207.
-#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
-#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
-#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
-#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+#' @source SOARES; SIQUEIRA, (2002), tabela 20, pág. 207.
+#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+#' UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
#' e Social).
#' @examples
+#'
#' library(lattice)
-#'
-#' SoaresTb6.20$n <- seq(1:16)
-#' xyplot(esc~n|per, data = SoaresTb6.20,
-#' type = c('g','b'),
-#' xlab = 'Pacientes do grupo tianeptina',
-#' ylab = 'Escores dos pacientes')
-#'
-#'
-NULL
\ No newline at end of file
+#'
+#' data(SoaresTb6.20)
+#' str(SoaresTb6.20)
+#'
+#' xyplot(esc ~ per,
+#' data = SoaresTb6.20,
+#' type = c("p", "a"),
+#' jitter.x = TRUE,
+#' xlab = "Pacientes do grupo tianeptina",
+#' ylab = "Escores dos pacientes")
+#'
+NULL
+
+# TODO Esse parece ser um dado pareado onde o indivíduo é medido duas
+# vezes, no primeiro e no último dia. É mais apropriado representar em
+# uma tabela com duas colunas, {primeiro, ultimo}, com os valores para o
+# escore sendo que cada linha seria um indivíduo.
diff --git a/data-raw/SoaresEx6.19.txt b/data-raw/SoaresEx6.19.txt
index 027a4a2e..90bcb286 100644
--- a/data-raw/SoaresEx6.19.txt
+++ b/data-raw/SoaresEx6.19.txt
@@ -1,4 +1,4 @@
-cm prof exp
+cm prof freq
suicidio poetas 10
suicidio escritores de ficcao 7
outras poetas 43
diff --git a/data-raw/SoaresEx6.6.txt b/data-raw/SoaresEx6.6.txt
index 68df902c..c18a4d0f 100644
--- a/data-raw/SoaresEx6.6.txt
+++ b/data-raw/SoaresEx6.6.txt
@@ -1,4 +1,4 @@
-hpv exp
+hpv tempo
com 155
com 150
com 174
diff --git a/data-raw/SoaresTb6.1.txt b/data-raw/SoaresTb6.1.txt
index 30a4b8da..bcb99e63 100644
--- a/data-raw/SoaresTb6.1.txt
+++ b/data-raw/SoaresTb6.1.txt
@@ -1,5 +1,5 @@
-grp;sit;exp
-azt;vivo;144
-azt;morto;1
-placebo;vivo;121
-placebo;morto;16
+grp sit freq
+azt vivo 144
+azt morto 1
+placebo vivo 121
+placebo morto 16
diff --git a/data/SoaresEx6.19.rda b/data/SoaresEx6.19.rda
index d4f3c2c2785c8c8570ffb28fd935a315387e74a6..90faa8c8f6b421440f5d26dc282d690c6541c543 100644
GIT binary patch
literal 257
zcmZ>Y%CIzaj8qGb)RARxWnkD;f8qZ(9|i|bLj^Vl2?u@k{|6ix7?>DXH!$32Tve$#
zYyJwUSt+-A*%}u+_WG_!V92=aAZfzZtYE^XxoF0$%w@d{3{sg3j4UiAn>aa)rap??
zu(_vS!IAq!c<wn*wRyAk0;3&S0-Aj{K74k1<;r*SZ!<BbxOgzC)+M;;A3M58h09Ze
zA=#x}V4}+=o=%o4JCzO!br#Lf{`{{0<14Fo+y0-GkukW-*PhDVzW2=<|DLeLPXiPu
ztLr#LURr+Hq<#6!i%g+To2$$?&McoCkm8bQl(6kmAydO<<%m@6KB3y_77d?77Oa2t
O&SN>35Nq>-4+{VwwP~vW
literal 256
zcmZ>Y%CIzaj8qGboD#B$i-BQN{e}PEd>9-!4HeiJBpmeB?;mhrU|?ck-N108apk0$
zE1w!D`^-u?VQ9iTIp9FXi422=47OPej7qb*sxp@?%eZoYg?;5RVUvk!t0ivQSS{09
ze@#i$h^ef~`1{dMxjT;Me|^_4rYL5leOs8fc;D@1)9f}h1YC4>^w*obsK!Fkm5DpZ
zhqZBuC-1T;Mp91U_H7F?S-d*_q_5+yi<{|Z{_IujI{DSj$+MZ;cdIV(Tw=cVnG)|b
z?|z5V8uc9CrFPAEaogo(o%Tu|>weB77iK+<znT50pvf`IZJ{Yw3d`s1Y7=A*1quI&
OJt^|g$tf`Cga!bw!)m$!
diff --git a/data/SoaresEx6.6.rda b/data/SoaresEx6.6.rda
index 7bc895cfa34a6cab63018c7b31f7ec31e7597d76..2f55a92ae08f62600be4cd4f330a6aa633980d93 100644
GIT binary patch
delta 206
zcmaFN_?(f?DJsL#&@oaiI5N}S&ut=~a{U6I*}f}gTu@)2#vpK5v6q*ZL6Vn&fq_9t
zl~vkj*}MrCn0*<{mh~=Qwlas&F<ZKA>Umq$YirK%&a~XLn5VqpxTM>!9o~yIQ`5!2
z{9JxVWw*^k_qP*Ut#3I<-PQ3~*W@d*B*!C3@X@6f6W*>}icDsIoE9#5dsyq=@}G$%
z$3qItle>(+{#m~zxr)`r@m=7THIE8}0?RJcD>yj2sw>uhh!0%!Ry5LHH;L0UMev{A
Oldgh=3YYrk^Z)>#G*?*w
delta 202
zcmaFP_?VH;DJsL#&@oaiIP!C@9Q#B*<@&`AQVbUu7#NrpdwF>oBzYMa7#M_9O_t4@
z{8fRc!Q`tE<16;%%T`)29m>g*ijrsP73Q85{^ZqZAH&~w`%L;@mj^G_N}X^1wsQ3?
zm0f=pD1Wv|)QM;?-DxscE>l%ee2F2)hfF6awxhWd8s+UatjV-|IPLr1x^4V1+w><1
zuxc7xOE2nkYhu)x-pt9jfJY}ud!jlkV~EtgHMbot-m2HETT}5`AaM19{*UD<!L6M9
JW)~k6006GeO<e#0
diff --git a/data/SoaresTb6.1.rda b/data/SoaresTb6.1.rda
index 7854cdb920e058bb80fa9f1c68b61e4befca437e..dc9d037d3deda1513785ac27b0b4419e1b07077b 100644
GIT binary patch
literal 238
zcmZ>Y%CIzaj8qGb?0PX%n1Nya{|Enfc`z_A8Zxjj$T-+9|GU9~!GVE+bpyk-6w}}@
zom=Mhs;N);($*~H_~NJ`lcK=|H8%z(o{I}624A_v*4Dtlz}7HDF-?n!No5J|m!^fL
zT&#~7<mVck=$Q6L{)V5CBTLAs^s`)r>rLG)UrsGxSlBYld29S`5ziJ=C#GMX4QmXA
z6}McPtk~o|?dB97_MICK{JXVg*U#KtJK`BmmOOcV^+QwQnqUPj6Y&bK<zJew%)P3x
x%WwOHbsN6u7zDlW-gk9|#>anIVQMKSPW+ttgq6ud`N!@_nul6i!d*_x004N`X-EJ7
literal 241
zcmZ>Y%CIzaj8qGbjO}Il!oaZp|AYU#JQx@l4H;M%WE||5-~Hgg;K0DZx`E-wgsc9S
zW>xy6+B#o$GC8^UN>%TYPl^pD7cMRqoWRQ<C7}}R68LiB5;g`mH|Hz2{FFJh+srK|
zoiuv0X@_E@O8>eWC%1h#nI98d@!Uy2b@TUz8P}hFJXLo2n~+DFNW%QDQ&z1qSRBfb
z>S-XF<1*n^X5fT_svoy`u`wpROzO`|pEtvLUM2S;omo7mUd?k1Jm<!>tb^O<NV4UX
zxm|PC-VcAo9oH(>EzIe&&E(*U%fV_J%IEd&oABACVTp_2o!FBi51ky#OoT500I+Ur
A<p2Nx
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 14be0f5f..736d5c6e 100644
--- a/man/SoaresEx6.17.Rd
+++ b/man/SoaresEx6.17.Rd
@@ -2,59 +2,57 @@
% Please edit documentation in R/SoaresEx6.17.R
\name{SoaresEx6.17}
\alias{SoaresEx6.17}
-\title{Relação entre a depressão e o desejo pela morte de pacientes
- com câncer terminal.}
-\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+\title{Relação entre a Depressão e o Desejo pela Morte de Pacientes
+ com Câncer Terminal}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
-\item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
+\item{\code{dpm}}{Desejo pela morte ausente ou presente nos pacientes
do estudo.}
-\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
+\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
estudo.}
-\item{exp}{Variável explicativa entre o desejo pela morte e a
- depressão.}
+\item{freq}{Frequência de casos em cada combinação.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex 17, pg 230.
+SOARES; SIQUEIRA (2002), exercício 17, pág. 230.
}
\description{
Um estudo feito por Chochinov et al. (1995) contou com a
- participação de 190 pacientes de dois hospitais em Winnipeg,
+ participação de 190 pacientes de dois hospitais em Winnipeg,
Canadá, com diagnóstico primário de câncer terminal, admitidos no
- período de coletas de dados. Uma das preocupações era verificar a
- existência de relação entre o desejo de morte relatado por alguns
+ período de coletas de dados. Uma das preocupações era verificar a
+ existência de relação entre o desejo de morte relatado por alguns
deles e a depressão diagnosticada em alguns casos.
}
\examples{
library(lattice)
-data(SoaresEx6.17)
-dado <- xtabs(exp ~ dpm + dpss, data = SoaresEx6.17)
-barchart(dado, horizontal = FALSE,
- stack = FALSE,
- scales = list(x = list(labels = c("Ausente","Presente"))),
- ylab = "Frequência",
- xlab = "Depressão",
- main = "Relação entre a depressão e o desejo pela morte de
- pacientes com câncer terminal",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Desejo pela morte ausente",
- 'Desejo pela morte presente')))
+data(SoaresEx6.17)
+str(SoaresEx6.17)
+names(SoaresEx6.17)[3] <- "freq"
+dado <- xtabs(freq ~ dpm + dpss, data = SoaresEx6.17)
+mosaicplot(dado)
+barchart(dado,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Ausente", "Presente"))),
+ ylab = "Frequência",
+ xlab = "Depressão",
+ auto.key = list(text = c("Desejo pela morte ausente",
+ "Desejo pela morte presente")))
}
\references{
CHOCHINOV, H. M., WILSON, K.G., ENNS, M. et al. Desire
- for death in the terminal ill. The American Journal of Psychiatry,
- v.152, p.1185-91, 1995.
+ for death in the terminal ill. \emph{The American Journal of
+ Psychiatry}, v.152, p.1185-91, 1995.
}
\keyword{AAS}
diff --git a/man/SoaresEx6.18.Rd b/man/SoaresEx6.18.Rd
index c8bfa6d7..95a3081d 100644
--- a/man/SoaresEx6.18.Rd
+++ b/man/SoaresEx6.18.Rd
@@ -2,17 +2,17 @@
% Please edit documentation in R/SoaresEx6.18.R
\name{SoaresEx6.18}
\alias{SoaresEx6.18}
-\title{A transferência do álcool para o leite humano.}
-\format{Um \code{data.frame} com 4 observações e 6 variáveis.
+\title{A Transferência do Álcool para o Leite Materno}
+\format{Um \code{data.frame} com 4 observações e 6 variáveis, em que
\describe{
-\item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
+\item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
ingerido pela criança e o tempo de duração da amamentação.}
\item{\code{exp}}{Variável explicativa com os valores.}
-\item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida..}
+\item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida.}
\item{\code{exp}}{Variável explicativa com os valores obtidos.}
@@ -22,43 +22,47 @@
}}
\source{
-SOARES; SIQUEIRA, (2002), Tb 18, pg.231.
+SOARES; SIQUEIRA, (2002), tabela 18, pág. 231.
}
\description{
-O consumo de pequenas quantidades de álcool tem sido
- recomendado a mulheres que amamentam a fim de ajudar à lactação.
+O consumo de pequenas quantidades de álcool tem sido
+ recomendado a mulheres que amamentam a fim de ajudar à lactação.
A ocorrência de alteração nas características sensoriais do leite
- ou no comportamento dos lactentes foi objeto de estudo de
- Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
- uma semana, doze mulheres consumiram suco de laranja puro ou
- contendo etanol antes de amamentarem suas crianças e meia-hora
+ ou no comportamento dos lactentes foi objeto de estudo de
+ Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
+ uma semana, doze mulheres consumiram suco de laranja puro ou
+ contendo etanol antes de amamentarem suas crianças e meia-hora
após ter sido obtida uma amostra do leite. Amostras de leite para
- o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
- da bebida, de modo a interromper o mínimo possível a amamentação.
+ o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
+ da bebida, de modo a interromper o mínimo possível a
+ amamentação. TODO Não entendi os dados da tabela, não foi
+ possível associar com o enunciado.
}
\examples{
library(lattice)
+
data(SoaresEx6.18)
+str(SoaresEx6.18)
dados <- xtabs(exp ~ var + ba, data = SoaresEx6.18)
-barchart(dados, horizontal = FALSE,
- stack = FALSE,
- scales = list(x = list(labels = c("Leite ingerido (mL)",
- 'Tempo (min)'))),
- ylab = "Frequência",
- xlab = "Variável",
- main = "A transferência do álcool para o leite humano",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Bebida alcoólica não ingerida",
- 'Bebida alcoólica ingerida')))
+addmargins(dados)
+barchart(dados,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Leite ingerido (mL)",
+ "Tempo (min)"))),
+ ylab = "Frequência",
+ xlab = "Variável",
+ auto.key = list(text = c("Bebida alcoólica não ingerida",
+ "Bebida alcoólica ingerida")))
}
\references{
MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
- to human milk. The New England Journal of Medicine, v.325,
- p.981-5, 1991 .
+ to human milk. \emph{The New England Journal of Medicine}, v.325,
+ p.981-5, 1991.
}
\keyword{AAS}
diff --git a/man/SoaresEx6.19.Rd b/man/SoaresEx6.19.Rd
index 9f34ce0f..977c3d1e 100644
--- a/man/SoaresEx6.19.Rd
+++ b/man/SoaresEx6.19.Rd
@@ -2,9 +2,9 @@
% Please edit documentation in R/SoaresEx6.19.R
\name{SoaresEx6.19}
\alias{SoaresEx6.19}
-\title{Incidência de suicídio como causa de morte para poetas e
- escritores de ficção.}
-\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+\title{Incidência de Suicídio como Causa de Morte para Poetas e
+ Escritores de Ficção}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
@@ -12,47 +12,48 @@
\item{\code{prof}}{Profissão avaliada.}
-\item{\code{exp}}{Variável explicativa com os valores obtidos.}
+\item{\code{freq}}{Frequência de casos tem cada situação.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex.19, cap.6, pg.231.
+SOARES; SIQUEIRA (2002), exercício 19, capítulo 6, pág. 231.
}
\description{
-Em 1992, Ludwig fez um estudo na qual compara o
- comportamento criativo e psicopatologico entre diversos grupos
- profissionais, a partir de pelo menos um fonte bibliogŕafica bem
- documentada e bem estudada. Mais de 1000 personalidades
- eminentes, já falecidas e que viveram pelo menos uma parte de suas
- vidas no século XX foram divididas em dezenove categorias
- profissionais e observações comportamentais. Uma característica
- estudada foi a existência de diferenças na psicopatologia para
- imigrantes do grupo artístico, tais como poetas e escritores de
+Em 1992, Ludwig fez um estudo na qual compara o
+ comportamento criativo e psicopatológico entre diversos grupos
+ profissionais, a partir de pelo menos um fonte bibliográfica bem
+ documentada e bem estudada. Mais de 1000 personalidades
+ eminentes, já falecidas e que viveram pelo menos uma parte de
+ suas vidas no século XX foram divididas em dezenove categorias
+ profissionais e observações comportamentais. Uma característica
+ estudada foi a existência de diferenças na psicopatologia para
+ imigrantes do grupo artístico, tais como poetas e escritores de
ficção.
}
\examples{
library(lattice)
+
data(SoaresEx6.19)
-a <- xtabs(exp ~ cm + prof, data = SoaresEx6.19)
-barchart(a, horizontal = FALSE,
- stack = FALSE,
- scales = list(x=list(labels = c("Outras",'Suicídio'))),
- ylab = "Frequência",
- xlab = "Causa da morte",
- main = "Incidência de suicídio como causa de morte para poetas e
- escritores de ficção",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Escritores de ficção",
- 'Poetas')))
+str(SoaresEx6.19)
+
+a <- xtabs(freq ~ cm + prof, data = SoaresEx6.19)
+addmargins(a)
+
+barchart(a,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Outras", "Suicídio"))),
+ ylab = "Frequência",
+ xlab = "Causa da morte",
+ auto.key = list(text = c("Escritores de ficção",
+ "Poetas")))
}
\references{
-LUDWING, A. M. Creative achievement and psychology:
- comparison among professions. The American Journal of
- Psychotherapy, v.46, p.330-56, 1992.
+LUDWING, A. M. Creative achievement and psychology:
+ comparison among professions. \emph{The American Journal of
+ Psychotherapy}, v.46, p.330-56, 1992.
}
\keyword{AAS}
diff --git a/man/SoaresEx6.6.Rd b/man/SoaresEx6.6.Rd
index 54645029..05f10608 100644
--- a/man/SoaresEx6.6.Rd
+++ b/man/SoaresEx6.6.Rd
@@ -2,44 +2,45 @@
% Please edit documentation in R/SoaresEx6.6.R
\name{SoaresEx6.6}
\alias{SoaresEx6.6}
-\title{Presença e ausência da hiperventilação no aumento da
- capacidade física.}
-\format{Um \code{data.frame} com 18 observações e 2 variáveis.
+\title{Presença e Ausência da Hiperventilação no Aumento da
+ Capacidade Física}
+\format{Um \code{data.frame} com 18 observações e 2 variáveis, em que
\describe{
\item{\code{hpv}}{Hiperventilação presente ou não presente.}
-\item{\code{exp}}{Variável explicativa com os valores.}
+\item{\code{tempo}}{Tempo para completar a corrida de 800 metros, em
+ segundos.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Ex.6, cap.6, pg.223.
+SOARES; SIQUEIRA (2002), exercício 6, capítulo 6, pág. 223.
}
\description{
-Nove indivíduos do sexo masculino, sadios, com idade
- média de 21 anos participaram, voluntariamente, de uma pesquisa
- cujo objetivo era verificar se a alcalose respiratória, induzida
- por hiperventilação voluntária, aumenta a capacidade física
- avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
- nove indivíduos participaram da corrida de 800 metros em 2
- momentos: um deles em condições normais (sem hiperventilação) e
+Nove indivíduos do sexo masculino, sadios, com idade
+ média de 21 anos participaram, voluntariamente, de uma pesquisa
+ cujo objetivo era verificar se a alcalose respiratória, induzida
+ por hiperventilação voluntária, aumenta a capacidade física
+ avaliada pelo tempo de corrida de 800 metros. Nesse estudo, os
+ nove indivíduos participaram da corrida de 800 metros em 2
+ momentos: um deles em condições normais (sem hiperventilação) e
no outro após a hiperentilação voluntária.
}
\examples{
library(lattice)
-data(SoaresEx6.6)
-SoaresEx6.6$n <- seq(1:9)
-xyplot(exp~n|hpv, data = SoaresEx6.6,
- type = c('g','b'),
- xlab = 'Indivíduos que participaram da pesquisa',
- ylab = 'Valores observados',
- main = "Presença e ausência da hiperventilação no aumento da
- capacidade física")
+data(SoaresEx6.6)
+str(SoaresEx6.6)
+
+xyplot(tempo ~ hpv,
+ data = SoaresEx6.6,
+ type = c("p", "a"),
+ grid = TRUE,
+ jitter.x = TRUE,
+ xlab = "Hiperventilação",
+ ylab = "Tempo na corrida de 800 metros (s)")
}
\keyword{AAS}
diff --git a/man/SoaresTb6.1.Rd b/man/SoaresTb6.1.Rd
index b6bcb607..dce1b501 100644
--- a/man/SoaresTb6.1.Rd
+++ b/man/SoaresTb6.1.Rd
@@ -2,57 +2,55 @@
% Please edit documentation in R/SoaresTb6.1.R
\name{SoaresTb6.1}
\alias{SoaresTb6.1}
-\title{Número de pacientes tratados com AZT ou placebo.}
-\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+\title{Sobreviência de Pacientes Tratados com AZT ou Placebo}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
-\item{\code{grp}}{Grupo de pacientes que receberam o zidozudina
- (AZT) ou placebo.}
+\item{\code{grp}}{Grupo de pacientes que receberam o zidozudina (AZT)
+ ou placebo.}
-\item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
+\item{\code{sit}}{Situação dos pacientes com AIDS após o uso dos
fármacos no que diz respeito ao prolongamento de suas vidas.}
-\item{exp}{Variável explicativa dos valores obtidos.}
+\item{freq}{Número de casos em cada situação.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Tb 6.1, pg 177.
+SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
}
\description{
-Em 1987, FISCHL publicou o primeiro relato de um ensaio
+Em 1987, FISCHL publicou o primeiro relato de um ensaio
clínico que comprovou a eficácia do fármaco zidovudina (AZT) para
- prolongar a vida de pacientes com AIDS. Na tabela é apresentado
- os dados entre a relação dos pacientes que receberam o AZT e o
+ prolongar a vida de pacientes com AIDS. Na tabela é apresentado
+ os dados entre a relação dos pacientes que receberam o AZT e o
placebo e permaneceram vivos ou mortos durante o experimento.
}
\examples{
library(lattice)
-data(SoaresTb6.1)
-dados <- xtabs(exp ~ grp + sit, data = SoaresTb6.1)
-barchart(dados, horizontal = FALSE,
- stack = FALSE,
- scales=list(x=list(labels=c("AZT","Placebo"))),
- ylab = "Frequência",
- xlab = "Grupo",
- main = "Número de pacientes tratados com AZT ou placebo",
- auto.key = list(corner = c(0.95, 0.95),
- text = c("Morto",
- 'Vivo')))
+data(SoaresTb6.1)
+str(SoaresTb6.1)
+dados <- xtabs(freq ~ grp + sit, data = SoaresTb6.1)
+addmargins(dados)
+barchart(dados,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("AZT", "Placebo"))),
+ ylab = "Frequência",
+ xlab = "Grupo",
+ auto.key = list(text = c("Morto", "Vivo")))
}
\references{
-FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
- efficacy of azidothymidine (AZT) in treatment of patients with
+FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
+ efficacy of azidothymidine (AZT) in treatment of patients with
AIDS and AIDS-related complez. A doubleblind, placebo-controlled
- trial. The New England Journal of Medicine, v.317, n.4 p.185-91,
- 1987.
+ trial. \emph{The New England Journal of Medicine}, v.317, n.4
+ p.185-91, 1987.
}
\keyword{AAS}
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
index 0d514507..9649f510 100644
--- a/man/SoaresTb6.15.Rd
+++ b/man/SoaresTb6.15.Rd
@@ -2,49 +2,55 @@
% Please edit documentation in R/SoaresTb6.15.R
\name{SoaresTb6.15}
\alias{SoaresTb6.15}
-\title{Escore final na escala MADRS de pacientes dos dois grupos
- admitidos em Belo Horizonte.}
-\format{Um \code{data.frame} com 32 observações e 2 variáveis.
+\title{Escore Final na Escala MADRS de Pacientes dos Dois Grupos
+ Admitidos Tratados com Tianeptina}
+\format{Um \code{data.frame} com 32 observações e 2 variáveis, em que
\describe{
-\item{\code{grp}}{Grupos de pacientes.}
+\item{\code{grp}}{Grupos de pacientes segundo recebimento da
+ tieneptina.}
-\item{\code{esc}}{Escore final obtido pelo paciente.}
+\item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
+ dessa tabela são que de dias? todos os paciêntes no dia 7?.}
}}
\source{
-SOARES; SIQUEIRA, (2002), Tb 6.15, pg.207.
+SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
}
\description{
-A tianeptina é um fármaco antidepressivo do grupo dos
- tricíclicos. Rocha (1995) relata os resultados de um ensaio
- clínico aleatorizado, duplo-cego, realizado com o objetivo de
- comparar a tianeptina com o placebo. Participaram deste ensaio
- pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
- consistiu em administrar a droga a dois grupos de pacientes,
- compostos de forma aleatória, e quantificar a depressão através
- da escala de Montgomery-Asberg (MADRS), em que os valores maiores
- indicam maior gravidade da depressão. O escore foi obtido para
+A tianeptina é um fármaco antidepressivo do grupo dos
+ tricíclicos. Rocha (1995) relata os resultados de um ensaio
+ clínico aleatorizado, duplo-cego, realizado com o objetivo de
+ comparar a tianeptina com o placebo. Participaram deste ensaio
+ pacientes de Belo Horizonte, Rio de Janeiro, e Campinas. O ensaio
+ consistiu em administrar a droga a dois grupos de pacientes,
+ compostos de forma aleatória, e quantificar a depressão através
+ da escala de Montgomery-Asberg (MADRS), em que os valores maiores
+ indicam maior gravidade da depressão. O escore foi obtido para
cada paciente 7, 14, 21, 28 e 42 dias após o início do ensaio.
}
\examples{
+
library(lattice)
-data(SoaresTb6.15)
-SoaresTb6.15$n <- seq(1:16)
-xyplot(esc~n|grp, data = SoaresTb6.15,
- type = c('g','b'),
- xlab = 'Pacientes do ensaio',
- ylab = 'Escores dos pacientes')
+data(SoaresTb6.15)
+str(SoaresTb6.15)
+xyplot(esc ~ grp,
+ data = SoaresTb6.15,
+ type = c("p", "a"),
+ grid = TRUE,
+ jitter.x = TRUE,
+ xlab = "Tratamento com tieneptina",
+ ylab = "Escores dos pacientes")
}
\references{
-ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
- episódios depressivos maiores: estudo multicêntrico, duplo-cego,
- controlado com placebo. Belo Horizonte: Faculdade de Medicina da
- UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+ episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+ controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+ UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
e Social).
}
\keyword{AAS}
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
index 5d74392d..b338ece6 100644
--- a/man/SoaresTb6.18.Rd
+++ b/man/SoaresTb6.18.Rd
@@ -2,38 +2,38 @@
% Please edit documentation in R/SoaresTb6.18.R
\name{SoaresTb6.18}
\alias{SoaresTb6.18}
-\title{Níveis de colesterol no início e no final do programa.}
-\format{Um \code{data.frame} com 24 observações e 2 variáveis.
+\title{Níveis de Colesterol no Início e no Final do Programa}
+\format{Um \code{data.frame} com 24 observações e 2 variáveis, em que
\describe{
\item{\code{prg}}{Expecificação do programa: início e final.}
-\item{\code{exp}}{Variável explicativa com os valores.}
+\item{\code{col}}{Colesterol dos pacientes.}
}}
\source{
-Introdução à estatística médica/José Francisco Soares e
- Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
- Tb 6.18, pg 203.
+SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
}
\description{
-O presente estudo teve como objetivo avaliar a
- efetividade de uma dieta combinada com um programa de exercícios
- físicos na redução dos níveis de colesterol. Foram registrados os
- níveis de colesterol no início e no final do programa de 12
+O presente estudo teve como objetivo avaliar a
+ efetividade de uma dieta combinada com um programa de exercícios
+ físicos na redução dos níveis de colesterol. Foram registrados os
+ níveis de colesterol no início e no final do programa de 12
participantes.
}
\examples{
library(lattice)
-data(SoaresTb6.18)
-SoaresTb6.18$n <- seq(1:12)
-xyplot(exp~n|prg, data = SoaresTb6.18,
- xlab = 'Indivíduos que participaram do programa',
- ylab = 'Níveis de colesterol')
+data(SoaresTb6.18)
+str(SoaresTb6.18)
+xyplot(exp ~ prg,
+ data = SoaresTb6.18,
+ type = c("p", "a"),
+ xlab = "Indivíduos que participaram do programa",
+ ylab = "Níveis de colesterol")
}
\keyword{AAS}
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
index 3aaf179a..6c25dbdf 100644
--- a/man/SoaresTb6.20.Rd
+++ b/man/SoaresTb6.20.Rd
@@ -2,50 +2,54 @@
% Please edit documentation in R/SoaresTb6.20.R
\name{SoaresTb6.20}
\alias{SoaresTb6.20}
-\title{Escores do grupo tianeptina nos primeiro e ultimos dias.}
-\format{Um \code{data.frame} com 32 observações e 2 variáveis.
+\title{Escores do Grupo Tianeptina no Primeiro e Último Dia}
+\format{Um \code{data.frame} com 32 observações e 2 variáveis, em que
\describe{
\item{\code{per}}{Período de tempo na qual o dado foi coletado.}
-\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
+\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
quanto no segundo dia.}
}}
\source{
-SOARES; SIQUEIRA, (2002), Tb 20, pg.207.
+SOARES; SIQUEIRA, (2002), tabela 20, pág. 207.
}
\description{
-A tianeptina é um fármaco antidepressivo do grupo dos
- tricíclicos. Rocha (1995) relata os resultados de um ensaio
- clínico aleatorizado, duplo-cego, realizado com o objetivo de
- comparar a tianeptina com o placebo. O ensaio consistiu em
- administrar a droga a dois grupos de pacientes, compostos de
- forma aleatória, e quantificar a depressão através da escala de
- Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
- diminuição do escore de depressão entre os pacientes de um dos
- grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
- apresentados são escores atribuídos a 16 pacientes do grupo
- tianeptina que foram admitidos em Belo Horizonte no primeiro dia
+A tianeptina é um fármaco antidepressivo do grupo dos
+ tricíclicos. Rocha (1995) relata os resultados de um ensaio
+ clínico aleatorizado, duplo-cego, realizado com o objetivo de
+ comparar a tianeptina com o placebo. O ensaio consistiu em
+ administrar a droga a dois grupos de pacientes, compostos de
+ forma aleatória, e quantificar a depressão através da escala de
+ Montgomery-Asberg (MADRS). Além disso, Rocha verificou se houve
+ diminuição do escore de depressão entre os pacientes de um dos
+ grupos (tianeptina) durante o desenvolvimento do estudo. Os dados
+ apresentados são escores atribuídos a 16 pacientes do grupo
+ tianeptina que foram admitidos em Belo Horizonte no primeiro dia
e no último dia.
}
\examples{
+
library(lattice)
-SoaresTb6.20$n <- seq(1:16)
-xyplot(esc~n|per, data = SoaresTb6.20,
- type = c('g','b'),
- xlab = 'Pacientes do grupo tianeptina',
- ylab = 'Escores dos pacientes')
+data(SoaresTb6.20)
+str(SoaresTb6.20)
+xyplot(esc ~ per,
+ data = SoaresTb6.20,
+ type = c("p", "a"),
+ jitter.x = TRUE,
+ xlab = "Pacientes do grupo tianeptina",
+ ylab = "Escores dos pacientes")
}
\references{
-ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
- episódios depressivos maiores: estudo multicêntrico, duplo-cego,
- controlado com placebo. Belo Horizonte: Faculdade de Medicina da
- UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
+ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
+ episódios depressivos maiores: estudo multicêntrico, duplo-cego,
+ controlado com placebo. Belo Horizonte: Faculdade de Medicina da
+ UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
e Social).
}
\keyword{AAS}
--
GitLab
From e2e62b9e0eefef17c294fbb350d2b8a834b4e630 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Wed, 26 Oct 2016 16:06:58 -0200
Subject: [PATCH 14/14] Adiciona correcoes feitas
---
R/SoaresEx6.17.R | 2 +-
R/SoaresEx6.18.R | 19 +++++++++------
R/SoaresTb6.1.R | 2 +-
R/SoaresTb6.15.R | 7 +++---
R/SoaresTb6.18.R | 19 ++++-----------
R/SoaresTb6.20.R | 13 +++-------
data-raw/SoaresTb6.18.txt | 38 ++++++++++-------------------
data-raw/SoaresTb6.20.txt | 50 +++++++++++++-------------------------
data/SoaresTb6.18.rda | Bin 270 -> 205 bytes
data/SoaresTb6.20.rda | Bin 269 -> 196 bytes
man/SoaresEx6.17.Rd | 2 +-
man/SoaresTb6.1.Rd | 2 +-
man/SoaresTb6.15.Rd | 7 +++---
man/SoaresTb6.18.Rd | 8 +++---
man/SoaresTb6.20.Rd | 9 +++----
15 files changed, 68 insertions(+), 110 deletions(-)
diff --git a/R/SoaresEx6.17.R b/R/SoaresEx6.17.R
index 213b8779..b6a74eae 100644
--- a/R/SoaresEx6.17.R
+++ b/R/SoaresEx6.17.R
@@ -17,7 +17,7 @@
#' \item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
#' estudo.}
#'
-#' \item{freq}{Frequência de casos em cada combinação.}
+#' \item{\code{freq}}{Frequência de casos em cada combinação.}
#'
#' }
#' @keywords AAS
diff --git a/R/SoaresEx6.18.R b/R/SoaresEx6.18.R
index ff9e5f04..aeae829f 100644
--- a/R/SoaresEx6.18.R
+++ b/R/SoaresEx6.18.R
@@ -6,12 +6,14 @@
#' ou no comportamento dos lactentes foi objeto de estudo de
#' Mennella e Beauchamp (1991). Durante dois dias, com intervalo de
#' uma semana, doze mulheres consumiram suco de laranja puro ou
-#' contendo etanol antes de amamentarem suas crianças e meia-hora
-#' após ter sido obtida uma amostra do leite. Amostras de leite para
-#' o estudo foram obtidas 30 minutos, 1, 2, e 3 horas após o consumo
-#' da bebida, de modo a interromper o mínimo possível a
-#' amamentação. TODO Não entendi os dados da tabela, não foi
-#' possível associar com o enunciado.
+#' contendo etanol (0.3 g/Kg de massa corporal) antes de amamentarem
+#' suas crianças e meia-hora após ter sido obtida uma amostra do
+#' leite. Metade das mulheres bebeu o etanol no suco de laranja no
+#' primeiro dia de teste e o suco de laranja puro no segundo. A
+#' ordem foi invertida para as seis mulheres remanescentes. Amostras
+#' de leite para o estudo foram obtidas 30 minutos, 1, 2, e 3 horas
+#' após o consumo da bebida, de modo a interromper o mínimo possível
+#' a amamentação.
#' @format Um \code{data.frame} com 4 observações e 6 variáveis, em que
#'
#' \describe{
@@ -19,7 +21,8 @@
#' \item{\code{var}}{Variável analisada no estudo. Neste caso, o leite
#' ingerido pela criança e o tempo de duração da amamentação.}
#'
-#' \item{\code{exp}}{Variável explicativa com os valores.}
+#' \item{\code{exp}}{Variável explicativa com os valores em ml diante do
+#' leite ingerido e em minutos para o tempo.}
#'
#' \item{\code{ba}}{Bebida alcoólica ingerida ou não ingerida.}
#'
@@ -31,7 +34,7 @@
#'
#' }
#' @keywords AAS
-#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 231.
+#' @source SOARES; SIQUEIRA, (2002), tabela 18, pág. 230.
#' @references MENNELLA, J. A., BEAUCHAMP, G. K. The transfer of alcohol
#' to human milk. \emph{The New England Journal of Medicine}, v.325,
#' p.981-5, 1991.
diff --git a/R/SoaresTb6.1.R b/R/SoaresTb6.1.R
index cda42424..78b24944 100644
--- a/R/SoaresTb6.1.R
+++ b/R/SoaresTb6.1.R
@@ -18,7 +18,7 @@
#' \item{freq}{Número de casos em cada situação.}
#'
#' }
-#' @keywords AAS
+#' @keywords TC
#' @source SOARES; SIQUEIRA (2002), tabela 6.1, pág. 177.
#' @references FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
#' efficacy of azidothymidine (AZT) in treatment of patients with
diff --git a/R/SoaresTb6.15.R b/R/SoaresTb6.15.R
index 4fcc2ab0..bdc5546f 100644
--- a/R/SoaresTb6.15.R
+++ b/R/SoaresTb6.15.R
@@ -18,12 +18,11 @@
#' \item{\code{grp}}{Grupos de pacientes segundo recebimento da
#' tieneptina.}
#'
-#' \item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
-#' dessa tabela são que de dias? todos os paciêntes no dia 7?.}
+#' \item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
#'
#' }
-#' @keywords AAS
-#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
#' @references ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
#' episódios depressivos maiores: estudo multicêntrico, duplo-cego,
#' controlado com placebo. Belo Horizonte: Faculdade de Medicina da
diff --git a/R/SoaresTb6.18.R b/R/SoaresTb6.18.R
index 643ec029..f2a2ff2e 100644
--- a/R/SoaresTb6.18.R
+++ b/R/SoaresTb6.18.R
@@ -5,16 +5,16 @@
#' físicos na redução dos níveis de colesterol. Foram registrados os
#' níveis de colesterol no início e no final do programa de 12
#' participantes.
-#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
+#' @format Um \code{data.frame} com 12 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{prg}}{Expecificação do programa: início e final.}
+#' \item{\code{inicio}}{Nível do colesterol no início do programa.}
#'
-#' \item{\code{col}}{Colesterol dos pacientes.}
+#' \item{\code{final}}{Nível do colesterol no final do programa.}
#'
#' }
-#' @keywords AAS
+#' @keywords TC
#' @source SOARES; SIQUEIRA (2002), tabela 6.18, pág. 203.
#' @examples
#'
@@ -23,19 +23,10 @@
#' data(SoaresTb6.18)
#' str(SoaresTb6.18)
#'
-#' xyplot(exp ~ prg,
+#' xyplot(final ~ inicio,
#' data = SoaresTb6.18,
#' type = c("p", "a"),
#' xlab = "Indivíduos que participaram do programa",
#' ylab = "Níveis de colesterol")
#'
NULL
-
-# TODO: Esses dados parecem ser uma amostra pareada, ou seja, os
-# indivíduos foram medidos duas vezes gerando um par de valores (antes,
-# depois). Sendo assim, o mais apropriado é ter um data.frame com duas
-# colunas, {antes, depois} com os valores de colesterol. Cada linha
-# seria um indivíduo. Se os individuos estão na ordem correta, a função
-# unstack() faz isso facilmente.
-#
-# unstack(SoaresTb6.18, exp ~ prg)
diff --git a/R/SoaresTb6.20.R b/R/SoaresTb6.20.R
index 82151b34..5a5b0f90 100644
--- a/R/SoaresTb6.20.R
+++ b/R/SoaresTb6.20.R
@@ -12,14 +12,13 @@
#' apresentados são escores atribuídos a 16 pacientes do grupo
#' tianeptina que foram admitidos em Belo Horizonte no primeiro dia
#' e no último dia.
-#' @format Um \code{data.frame} com 32 observações e 2 variáveis, em que
+#' @format Um \code{data.frame} com 16 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+#' \item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
#'
-#' \item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
-#' quanto no segundo dia.}
+#' \item{\code{ud}}{Escore obtido pelo paciente no último dia.}
#'
#' }
#' @keywords AAS
@@ -36,7 +35,7 @@
#' data(SoaresTb6.20)
#' str(SoaresTb6.20)
#'
-#' xyplot(esc ~ per,
+#' xyplot(ud ~ pd,
#' data = SoaresTb6.20,
#' type = c("p", "a"),
#' jitter.x = TRUE,
@@ -45,7 +44,3 @@
#'
NULL
-# TODO Esse parece ser um dado pareado onde o indivíduo é medido duas
-# vezes, no primeiro e no último dia. É mais apropriado representar em
-# uma tabela com duas colunas, {primeiro, ultimo}, com os valores para o
-# escore sendo que cada linha seria um indivíduo.
diff --git a/data-raw/SoaresTb6.18.txt b/data-raw/SoaresTb6.18.txt
index 329db27c..55dee0ce 100644
--- a/data-raw/SoaresTb6.18.txt
+++ b/data-raw/SoaresTb6.18.txt
@@ -1,25 +1,13 @@
-prg exp
-inicio 201
-inicio 231
-inicio 221
-inicio 260
-inicio 228
-inicio 237
-inicio 326
-inicio 235
-inicio 240
-inicio 267
-inicio 284
-inicio 201
-final 200
-final 236
-final 216
-final 233
-final 224
-final 216
-final 296
-final 195
-final 207
-final 247
-final 210
-final 209
+inicio final
+201 200
+231 236
+221 216
+260 233
+228 224
+237 216
+326 296
+235 195
+240 207
+267 247
+284 210
+201 209
diff --git a/data-raw/SoaresTb6.20.txt b/data-raw/SoaresTb6.20.txt
index ead48b04..cf892c51 100644
--- a/data-raw/SoaresTb6.20.txt
+++ b/data-raw/SoaresTb6.20.txt
@@ -1,33 +1,17 @@
-per esc
-primeiro dia 24
-primeiro dia 46
-primeiro dia 26
-primeiro dia 44
-primeiro dia 27
-primeiro dia 34
-primeiro dia 33
-primeiro dia 25
-primeiro dia 35
-primeiro dia 30
-primeiro dia 38
-primeiro dia 38
-primeiro dia 31
-primeiro dia 27
-primeiro dia 34
-primeiro dia 32
-ultimo dia 6
-ultimo dia 33
-ultimo dia 21
-ultimo dia 26
-ultimo dia 10
-ultimo dia 29
-ultimo dia 33
-ultimo dia 29
-ultimo dia 37
-ultimo dia 15
-ultimo dia 2
-ultimo dia 21
-ultimo dia 7
-ultimo dia NA
-ultimo dia NA
-ultimo dia 26
+pd ud
+24 6
+46 33
+26 21
+44 26
+27 10
+34 29
+33 33
+25 29
+35 37
+30 15
+38 2
+38 21
+31 7
+27
+34
+32 26
diff --git a/data/SoaresTb6.18.rda b/data/SoaresTb6.18.rda
index 0cb2369dff5d0a3464d87c612212ef6e4f1ebd95..495b541525cf3df45de1d3b1112229286c6b4025 100644
GIT binary patch
literal 205
zcmZ>Y%CIzaj8qGbydR#e$G}ikfBe6l2MdFvp#v*}jDx-UoCXI5j)V<PF6&$x7cg}3
z3Mos?<dx!OT)=SI+1J1}Kvht2;R3d{UIt#1lZzb~7M0wK<~J=6YW&o@mHqv`+CMja
zE??|?zp-Y~%r{;o6V{qrO<~fzU$sL)?dX{`U)F|X@GsI}T<Idg)!dtqa-yTU*GGbJ
zD!<T@-m|a59zMV28Fa+3Pip0+)`b>FxV<h38^vy$B6#fW)osi?Jkm-m?2nb%|HPgY
MdFbR^8@px)0FruAsQ>@~
literal 270
zcmZ>Y%CIzaj8qGb{Ma?Wk%8g#|LgzjJX{<c4INk+WE||5-#y^Kz`(?ju))dYokQaW
zhFfdfI@KB&7&3Sn7&5-vI{U8NYU{LorIf9j;$((d%)SPU5^4^%3P}?gG8dR!U;qJ=
zWKIr?CI|7@NjFLlN;22V?4QEn%wJG>_RoXgkFOtpc66Tnn)qo^aYhOfcSWRLGRQw@
z=<U6<JS>Gl;o(Um*%_A{wlLOA>0+7KDiGnsu*5mnK<t77%NOT16-j1;);V11ne!&C
zEZ<Yu7<g3rnby)mGil?SKaM<(`ew#+@k4uCxS?pnS)B-t@+TtaXU`N!5n^WPOlGgy
Zy@o}pqeEzh<e%7+A`hLMk7?Dh008U6Y9s&v
diff --git a/data/SoaresTb6.20.rda b/data/SoaresTb6.20.rda
index 3f3362333d400db8a984f195c5abb109ef8d2e5d..045371cec26dd456f814b60d4e5cdf05868f43ea 100644
GIT binary patch
literal 196
zcmZ>Y%CIzaj8qGbJlFoqfPrCB{el16PF4SA4P;<pka4hQzt`Zv;J~<mp_A9w)TH0z
z@|6se%g(157^I}HGI=_hFff?NEnuANkh$>7)q*)MlllT)iYe{d{X}cgy<}c?Z_f><
z*$qFmvV3n}C!SDJQd?!BJ2z<-qheOViL=}<YIrjZIEob?qzLT$#Hw77$iHDhBD-YW
zrEZr?cPAGwUDSDg^7-&7-X1H})|Kj=%~`7ab1^3~&ulCC$1L1Gc2Ckg)Y4XBf3X1o
Dz4uY8
literal 269
zcmZ>Y%CIzaj8qGb<c(rl%)s!a{^0*@r>cLm1~RZP$T--m-*0eWaA06y+`w>awt$AR
zTbr-RS4l(Ll}5Y_QYnd|W{WvzGD<LTwn$|*RY`G*Xc_yuotW2h;bg~Ug|ub<!Gg>6
zZY)_6aO}a670bk{xJxeho$lH5Dlz?AL~(kYXXlZr@|hXGMAEi4o!xS2(%;?D(hM$+
zArkWL{D*B%u(-<QOm_LuvDU&vY)TuaF0Y2-0%<S9CYIc~vw}%EK^Ydj%8&BO);_-*
z8(mr%p7{G``-F>Lp(gLV4+oe%Vsf$XTgATF<^{)TvjW+xO=_tutIzgc+~h44n4yrv
a$7<ZEcQ={oW8*!&CtU>#6{NPXx&Z(taBLU=
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 736d5c6e..5365fa9d 100644
--- a/man/SoaresEx6.17.Rd
+++ b/man/SoaresEx6.17.Rd
@@ -14,7 +14,7 @@
\item{\code{dpss}}{Depressão presente ou ausente nos pacientes do
estudo.}
-\item{freq}{Frequência de casos em cada combinação.}
+\item{\code{freq}}{Frequência de casos em cada combinação.}
}}
\source{
diff --git a/man/SoaresTb6.1.Rd b/man/SoaresTb6.1.Rd
index dce1b501..2ced6ba3 100644
--- a/man/SoaresTb6.1.Rd
+++ b/man/SoaresTb6.1.Rd
@@ -52,5 +52,5 @@ FISCHL, M. A., RICHMAN, D. D., GRIECO, M. H. et al. The
trial. \emph{The New England Journal of Medicine}, v.317, n.4
p.185-91, 1987.
}
-\keyword{AAS}
+\keyword{TC}
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
index 9649f510..d70c593c 100644
--- a/man/SoaresTb6.15.Rd
+++ b/man/SoaresTb6.15.Rd
@@ -11,12 +11,11 @@
\item{\code{grp}}{Grupos de pacientes segundo recebimento da
tieneptina.}
-\item{\code{esc}}{Escore final obtido pelo paciente. TODO os escores
- dessa tabela são que de dias? todos os paciêntes no dia 7?.}
+\item{\code{esc}}{Escore final obtido pelo paciente após os 42 dias.}
}}
\source{
-SOARES; SIQUEIRA (2002), tabela 6.15, pág. 207.
+SOARES; SIQUEIRA (2002), tabela 6.15, pág. 197.
}
\description{
A tianeptina é um fármaco antidepressivo do grupo dos
@@ -53,5 +52,5 @@ ROCHA. F. L. Eficácia e tolerabilidade no tratamento de
UFMG, 1995. 156 p. (Dissertação, Mestrado em Medicina Preventiva
e Social).
}
-\keyword{AAS}
+\keyword{TC}
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
index b338ece6..dbb6d975 100644
--- a/man/SoaresTb6.18.Rd
+++ b/man/SoaresTb6.18.Rd
@@ -3,13 +3,13 @@
\name{SoaresTb6.18}
\alias{SoaresTb6.18}
\title{Níveis de Colesterol no Início e no Final do Programa}
-\format{Um \code{data.frame} com 24 observações e 2 variáveis, em que
+\format{Um \code{data.frame} com 12 observações e 2 variáveis, em que
\describe{
-\item{\code{prg}}{Expecificação do programa: início e final.}
+\item{\code{inicio}}{Nível do colesterol no início do programa.}
-\item{\code{col}}{Colesterol dos pacientes.}
+\item{\code{final}}{Nível do colesterol no final do programa.}
}}
\source{
@@ -36,5 +36,5 @@ xyplot(exp ~ prg,
ylab = "Níveis de colesterol")
}
-\keyword{AAS}
+\keyword{TC}
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
index 6c25dbdf..b0f8dbb6 100644
--- a/man/SoaresTb6.20.Rd
+++ b/man/SoaresTb6.20.Rd
@@ -3,14 +3,13 @@
\name{SoaresTb6.20}
\alias{SoaresTb6.20}
\title{Escores do Grupo Tianeptina no Primeiro e Último Dia}
-\format{Um \code{data.frame} com 32 observações e 2 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 2 variáveis, em que
\describe{
-\item{\code{per}}{Período de tempo na qual o dado foi coletado.}
+\item{\code{pd}}{Escore obtido pelo paciente no primeiro dia.}
-\item{\code{esc}}{Escore obtido pelo paciente tanto no primeiro dia
- quanto no segundo dia.}
+\item{\code{ud}}{Escore obtido pelo paciente no último dia.}
}}
\source{
@@ -37,7 +36,7 @@ library(lattice)
data(SoaresTb6.20)
str(SoaresTb6.20)
-xyplot(esc ~ per,
+xyplot(ud ~ pd,
data = SoaresTb6.20,
type = c("p", "a"),
jitter.x = TRUE,
--
GitLab