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 0000000..a32c9f7
--- /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 0000000..93ab5f9
--- /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
zcmV;~04D!JT4*^jL0KkKS+;;8_y7Q~|G@t;NFaa#Fdzm17(g#)-M~Nq00poBwqTV*
z(Iyj38z^Mah|t064NVAS00000Xe3oXNP(cx20+t5$Q>kt4uUZ#1ED0ggF)Ajb1fzV
zf1zRs5P8V?VJVb|RI)Q~ktOqn%Oy9vVF0FLlL3|=zR@@niEBwP6frCaZ8R8J3`kbG
z83O^bRhc8h8r^a7k!mY=yJ_{r>)yzTq-T%jUVUoD@qyeqYVwBc<E**QWl;<%6(ogU
TrU8hECgSc$rwS4l&;(xqrMOpB
literal 0
HcmV?d00001
diff --git a/man/SoaresEx19.Rd b/man/SoaresEx19.Rd
new file mode 100644
index 0000000..2d068d7
--- /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
zcmV+u7wqUCiwFP!000001MM4WSQFQFNW#7gDq;}?MBL`FSOEnD1Vu$f7DXw-B$+@Y
z8_9%4QPEnTwc5JX4O~H`R$IlLqD8Q3TT5}P))j0kE`W%(iXwS4$xJdcnE=}5{VCr!
z<j%S0o_p@u?zzjvMJD-KBv}9ezyjE8BY?$5iyRjE&j{cE=GaTR91;Kk+W{?u=&uQ_
z-k2wX6biIpM*^A(q;j!R1krG<z$i(!P%f2-VF`lK1~h+d_%DlSE`kt5$b*SjAJETd
zn7==b8e0TQ&>w3xNc~4;9OHq;m*rSFoaHv(Ekh>E)<Z|DNaWb`-XvmTl=PmAr94O^
zLJKA&pcxmE^D-bgq8^tHZbTP~MTS%^oFkPWkcf;nmfnd1fq0n!V56c{m?+TRVFj&w
zj!39LXqZO18YFu?5+aBTi|8bbcsT16&4w!#sPbTjDzjKQOw@Jg9;%e{(5|%YfC8;j
zl+}AAJRw~+oLn+G4vUT*KaGwjhJ+FtS??%;kXOAOCF;hPy1}`S7<S`{s`p8RJgJ)m
zR?4NK>VxU%3yqc;q(r1(CY+}emU^gY*-^zXY*th*1C$*V71fCx%)oK51eObVbQ$Wb
zhN>ZOjK<AaWNc#u;)-B8X_*|(7D|<bwGvKcoQq;BXf5>^GX*EXNQRV8<I9HN3uNlj
z1RN)qDrK}bbT_dj#yke~7Bmo`pw~1M8v-Q~7N{|daZ~MqN!}P0E9Rb9*l<OkKIr2I
zs9l!os(hhX16HdAf2cx2Q6#8EU=np8sgDpA>ZN!=X0S#=_fVW51)ZY~HMpg~xjKon
zRNc`J)yf&d4Bm>SL~Zz`I`n*i8jD!4Kxf=Kv>`M!%^2uSa}Ag_hYukT>D?k;3Za1^
zD%Uqi*TM?d>kt(_wXjLLHPZH_uQ(GCoUI8}2GvE8uC|>3;vrJGrgutDL~nRc!{~a^
zQ+VgJfle&cooLB6U>!Jgta>V<jN4o;%>fAmQ(JZc`cI`&wHsi{0#gGhkfTi)lw^{Q
zIV?(RFxt+OQiIM$>FQvLx*K2vXeU?oAMG8ZX^XoiV4<tio21wvh$asldz42UUF~*8
zx?hUSwX=-g%t8^P{`}Qp0K<r|R?_sRjwz&f2mGBe%D>&b*ApX+$p#H{Ks(UYyw{5v
zU2op&-5J?8ocEjv^)cxIo7*V!*<U>&S{pDPG9LDL5gi#(eFTFIBJfExv}GfjrP0~4
z=F6d+c%fJ(f+u2Az8Z-GbP@s#bwh?zY>-2+jKH}FVX-o)P=XNA-a-!Z5J-}arEz#z
z7YQXWlR*<Ku?0#AK^KyzcV_!+L@L82L<ZZ)APFo2Nogt}Z>9m#${e<CZYCw<>UsAS
z4Qwq#6IU1kB}y?D#-b!c5Yc7mII<>v)r(vBSV&^Ws(n?OZV3<9x&2%~e|}>H52G2A
zF;6PSf}tL2Z*<1xp%W<rhvy0vV^A!q1jh8HM)k)9@UBYpVCCT|%>xi@5kkdD>*e0&
zs94a^iiHTBcTY{LAe`DL6@xrXxKad>iVe^<Mi)_;3Imla2=6giMeS%bQ%7tBTYP9#
zH@ZcuyAEpTBsv+b>YB8J0UQUW?yY$lFfS97X2Wt3Bx7zEPKz5Dfe|XrqlJ;|)?cMF
zR<+6)?DAbEW{lApG6U(_3<F4!GLXhB1{<mR^L8}KfD{?6g(HFm2(^9aTWBs!E3E&6
zC9rww%#+qVhtPjF?IJ>@d6?`%CoYAM4+DlLIy@NB!8)I$*AVij!?gy5b7x1gOkG09
zBZnV)tr?^smS#j<=lKjD7C=f76F2NUSit~hNu)XsL;ptFzD%PxL07c`A-;j3h1%mA
zMPNFN#3K-*WFl_EQ_AJ2*g!1_!WazrXcP&ii_>BV;bnm6TuVZtIb|T(aB<iKnlUrs
zhce)Yc7m@HC%P)oRgY&<hCMNQft06Ifa(UAWTRD@r^`M}cv6v4Ea{>fM`|}jn>Xso
zN|TX@pggG(0rXYS6OqFrG%*12zGBFT6n|0^dc)o=H2s2_%>x|E4ab_)9SXL57=h(t
zG;^caB4t+)P1|^gP>PFFy9{|nB^|(Ifh-}@YMqsz&j2+=r6f_RcMFIvIvCK5yqPF^
zc`-mOP>Lccx^95FB-)>bKz=Y}a!yHpH=^Ou+cC-9Tm&hQSdF>~q^T+r0S1XClFHMV
zByAMRjI7r?OD17xj@vPj?=o5;!5V#m%_LA(NQefS%)~5P4COKyDZQia2-5;WBBV+Q
zACl*FUz)l=p~w-UArjDrM<M~ku;TC*<47%2@bW|g#*kAO#HHvfSp%HX86nc_A3|da
zD<_c|?5yKAWD-)n8E<1$R9Z2ev?DSZ3_qShurXco5eAUyk;gK_koR`Skj(f}kXU=*
zIBBGLjhfJDQUY2oO-l`EYip)dgXYZSGLaG5(fQ<HtAFZPVi`kkGHzjG$tePZB*@Vs
zjzJ@xa$|;0ZxB8?5H#(`+$yx2c?7Lgvb8eB(Qd_1R9o5|G@7~`aCPxi`a0s1VYp^s
zRoCJd&|K_ogqA_3(S?u#446eKjgK^va>=nvM|*%!GC+q9F_{Wm4$HcsYfDIk<_Z#2
z-I8=bf0bh)f+gul2B^+&Vn}?((0JA+;B<G^!OXNUh7dTLAw*#1%uZx4Qt9Z3Rd2!{
zDSUOo-<ZFUzlkKCCjLeIMf_j*>z;lMCR|+v2D0xF(+L;<71H=(S~uwe3bs@ww(z=e
zE^?=2=bTO|r{iTJ`Wo8a?D+ed=oa;F*9qC@y5AAm6FO~0>@3i%^G^$xyfe}5k-t?V
z(g@zJlP;56%{>WFvyo}QD%HY%MO7Est?8~DMs|zNGPGAztA8_^VE~zCXKtIspk#?k
zzYW=aiS}F)OeZzXS_aA$;)l$bqzGxzH}}Y83H}>O8jaqjpP{tQ63feUISCCdytAgJ
z=#+`?+tJdMP=*vHj6TI14c4$KWf)Rd!waJcnrYvb5Vnv+Q>J=5(K>V{+BaxR-e=8X
z5E6Z3wJUnzBzkfNdK5(fR7EIMf0O)~9y^la@#ED_PH3s<_?-v}3_p{kl7Hh<S#?_*
zop{uL^mqDDh|^o*`Wn4VKHb&Yy01p2mbfg5OBvXqEOCNwODfypI{JqX(7SPH-q}I<
zpFSKn`3ujy)yK=u05v6}=tPbyn+53qX(j_l?K^oR%}(8>tLqb#CiMA=B1C){rH3D8
zr^P46W#AB8uS^~i(|Z?Z&VQy%IT&}Qtp0ITLAeTT;)Z4j_&kJdVh|g7x?@v3Q^V&c
z;_zFV&a}3pFYSq)HZB*trUz-2WG)s;G>bkhdF)V_Aa8<Q>C$#>gZh9_A%l1@AJp~B
z79n}sVh*2tV5U7TK(tV)h~Nz^g4lfnBC~=-vJ6PeDE30G<_M$`f{F!J7C>U5i0If%
z1JT~ywZK|tz`9)R4LpD_O_GUr<^hJv6k1{0rvIAzzvliAnLE=>I(<uHtou8!DpIV(
zn83jA|KY;X+&af~#+BxRa!jwpXh~Ps@z%t>LUK~V>c$1nPR1hZ&R7gxy9DTcvNi9F
z*D;L<%P}JKYoSnb6+F36h7e<-M+JjCYvN9&l^V+^Y(gc`f}Xl{HVyZd$zjb34BzMm
zxj8bClvwxvo4oy#$s5IHKteRcU29w%+Itv8a8$@(9s&x4BCU^z;B;6*#4G%)8Xvt3
zN{6**n&WL^g31)ibWSPPzF4SVK=tm424bJ9-su2I_eJoEJOdRR_3|Dst3SEG%Xzx8
z6$U4)kbvds!_3rp*xnb;pBhKAS%Xtmf2@HE8TBtBy5xdf7|DTQqRu>z2C$Mra!>&y
z*hE9HYmRvXsJ;QI0oW2(LZmWm0wTaR>b7c8k*;A{2qk<t7Zr$B9p*AvE+zvkurhw>
z9Oqws4WAe-h<|>Azvofk?eXmsls`=DV%?0WtI&;3ee+QvoTDR`3sR;<lsx4fl^N=o
zd{8@6qB5fbEOSBK1w$N^rw6jat&|+x?dYM0;DLY>)`)-o#2BMZ@hclT2g2f1XJ2us
zZ(J~Zy3t<+{OM0M^ls7q1z%@);8DgCkD~+dcjCtKKvMMa#><27-@&8}3al;mHN;RF
zOe;z&Fb<ONrDD_rV7^91EOhcST7%WKeOS2uYzBM9hi)fJZr+nE%Yd?fKLD9ev6kMO
zb~48W;1ACjQ_h`O|KZIwv7E&pe6ieN;*6qQ^_jygqpuIT+rQ{BV!hQZB=z?Ru9KI4
zW1YzzaH2Zooe;&*wWcp-IX!xJL+iq@SFygq8+X>Fc>g~C^PdjJv`jVKQq7K4_^qDb
zUg`P4AW6gIrR<R6+EIr#p1JQ_zc(44o&AmKNb9*JSq0DRzA)Z(aN5J3QwN@z1pGSX
z>g~G034^?r9K6wcb?L*lE4!AD{(0k%hvQa!V7`4saN@A!9wy%(vo187IPPnkdT?{E
zrAw1GS$~v#<goDd{N90)E`9E$q-<VTD_rH^UfNvcyu=(C8lRPO)ze-4tJ^Tn;8*7c
zBU?ZC)coMX|J-*zI%3`OfobM1n~EbREIIWdFLb|YdQi=_eCr_T5B(=TxqSEKrE5>y
zm4$~!Uq8E|XMJ<_Q0K*cSqp}l-r5@McUAny4<|1VZ+P*`lwWS#?&ud(^Udz1=NfZH
zjQS1EYI>Mje5`0m>zOIdkr9s$m^wr+y)`uQ*5$yGmX}9HL`NOTuid)g;7qT6$mIPS
zhx^CN>iT7!TFl$F!rmja==68vpVahwWj^cVclj^24SnkA^q(u-jNiVP6JE5I^HHl%
z(MxQ8gST5H3#qw$^_BO4s~3jc_O~40zSAyge0-FNKxS8Of6ZHAK0fm9h5#gC_rT-R
ze_YvT()FM6e-$0B`_5Uk;@uuYfBEFj?@sIfyTB~0=!q|T_3@Pc`<K?(t@3ec7M-%+
zIP&hSA@f|)ovT_l-?TcxzQY?`eE3A=i5SlFQ9Jyvl)cXSddPEe{o#IPNX|7&*9W7<
z+V%VS^T(|jK~@gy4#z&XXZx(Io*dG05r|asy|V7_-rQ&N>z>xG&my**yIwuPVnC_Y
zxY3tP`DdP&&WIg2Qm80c9KUMIgq@XT4^y`sDK!!v*ngm~q!)jW^`VIKDr?J6oQ_Ms
zS!d#q4~(98(b(<LB$whjrhCqP);w+e;&W*+mfsg0nl-4O@7mnKbr*KAWKU1EHMzy7
z&l|`3)Kxw_zhn1N-jwP4t|u)%Jqt2>m^R-w(e_&9<H5^J{wSLq=eFwWoL~6o+ZXPw
z8QC&;<kXMPyzXeriEsR9Rz*U2@bxJbiz=;DGaL&NFO0Y(a`mySx-hW9B{JdW`jY0L
z4k0|_*sY2yh2~D9+V=mqIC|tal59uz?gNLu&--P?`H#y|19+S*c?IL_Zk=_RSUhiS
z(9Y1L@1+4FJ&itT=_q%vI2x4bcrLZ5s%Ah%+C67D|KS4H+Tu$G+@ovPmCi2gy?k;_
zWW|e$xqhF`zZbUPF8`3-mdnvYRwb67|G3=l&fNCK)<yLReb@W<h>Q_$OY^vXKIf5h
z+FZ$(RXvX?yqjMi-|OA?MDUo#x$=uwn|%0{4W5~%zXkSnJagS=*VijI&zaetS=M*$
z_-~&@WR&y-Ku$(5cWg>*$idS)?v48>`e293s!!d?n{oG~aYuhzSJ1RRDWUD8$Nk4{
zvtNGoFfn%Yg9SsE{N{oDDkxqpo8Kd?AUS9GzK*MD@Xhz{`VHw@>d_i={%KZT`v=nA
zWy|b#w)A-xb^89ejY&1^ALa;LLiU^I6<1t+)RK^U+_oxuteacG$^8{|4Vz-qTh88%
zXrG^9y%>xE+iKgLynDAQFTlX>sXU~<W1HE&ix<kXH{PoC{nnweE#RZIYjX=P-pOo8
z`{8q=7@6+@w~NE1i#+=+xqofmhDMdyAHjvg{pI89{*Zn8xWw}$Bn^zL2;9_`{zWZ&
z-tvmR1rOI&PvtIhn%h$8*?T~6Uh%P&#tWvoPX}7fRI+(i+|WfuCte@vv3W(G0@10N
zjzIPn@46F4BkdC()wTrHh}OsOhFdn?UA<t+&a~EfDKTGd_pjTLFlC47{;x~9QM;Fy
zd3{$gch(qrQCxJ(6XS%)Uayo%f84Pf>326?7L&vYE|foVOmbCL391|G&gQ%3bDX_u
zABoF%NFxyMI}P<#chi$ABqPOsFV8kqE*-IJ_zPpjIl24Z@)>vTtjr0hZ>+FAogizR
zx%xx<M{cLU@#pJ=ztqjD|Dwtz%gcMFSLohpj*^OZ%k5k1iw^iWT|HJ(_5Av=^@Zs(
z3&J<A%u|Z<SqndNeBpT|A_+|^8WO83?l)bEeOx@redg8U(Tkn-TEVwYzqhQJf6>Y=
z0WcfdJ7M<yw)?)t9xvG*cWZ5eR}5_m;6KYYWv^Bqd6p)>G{~ynXGh(+Wlh{WJI0pA
zuJ0GKw}(gm?ZQv|n!WbO+Q9yio3F3G=CbDU9Gl4#e0pv@QgL8uPJ(--Afko$e49#E
zQeic6du_jc_T0FgpWL6vcR26z*sDDW;I$rdYAl#}#_U<z7+|SO!1j@T^DJYzEI^c+
z9lTb;jf#u?d{14l-`?|K&5qk_S;|GADd)bQq@?lKe5c@7F3aV8?+44~hF|m)C65gp
zJ%{UDZ530S`iK22ORju~&?aSA*7Aj$PAprH6m??VsZ!*DV&>Yawb#m@yYn|)3;<U@
zH>ypPn3&5FA}uO@Q|^A9ap&dDqQI;N`Mq8a$oJS*nE6`>|2C_n{h91_Swx?VcN#65
z)-<=rY&0Fbee$5xlmfR0VdYmlTrVd#zOMT+q^9AZ=?2B@mK28`A73$R{HjMq>E;mW
zvkCK`ff-x<BBoA+!^iBO78uE1Q{H;avFhxJmdaIv<sbKQH@89-`iwJfnrb`+m>&?m
z^yJBVj{CMbY%a-B)~$ISSNhI>w#gSef9QN^)>o-F#8zJ|wcB*y(LGxivx_sfx!E*t
z|9M5eU}{rS@kNXE?|&PWb~#{SXrTBzOV+H(E6Ot!<;QIwytwZ0`}Xir-^VLH;v!FP
zm9TbS6RdZr@_|-MMZ5T|?IqvtNl8rHlc?&WY~S#c$@n9g@0N{$<<mbX3_Rq%<NfJ&
zBVKWjUs*prGwS(>_t*(@m-USEUodIJ?QfHcde16_hg$gqpWm82LDJyT^GCbpCmrB{
z<)?3ywv0c~T+%Q&;l=24;rkMv#CSjCm8`Sj%R>@ZuL@$N_u*~weMhi9d(!^)wVC;G
zJBtS{__D_NW`@&CyRjaNdOr31vOdu@FWzs%g$Cg2gG&!sQ8vlJ)-8KqPUuz6uU#xn
zPYZAR`Nrjs8~3KXcj&D34-JB;0aL1zE6ry(ZkgGmE%UuoZcPoJ1kL<<(ITg(tqT^0
z|7h(W``9A^I(&uezIniN+m`0=ls$XSoH*9b=}4b@xO&&+t&z=jFUsz|_^G(;3D08Y
zyaC0h2Uq>L^6dW8OOt=TQ+8#duW(Jp?i-^XuB<I`O}@72vx66GLfsaO8G74DJa1RP
z`)9wM6Sw~huh^RRuA9HAKDaF9(T<(V?2pbX?Vs|#eUBb~Y@5|lobqQ2{U%6#Mrd+9
zEces<8kWd|Ne5_ucC+LyH)6WAsifU->4TSDHTgZ`h70reuj<c|8GE99)QVw%+SNh<
zKzt6XmpNlXQHvFzu>sJC00xqOOKg!T%1h0F6d8s%(VbnBk*Vyv`}hv`86M~t6u|cl
p3gE%8Pe5QG3<m}T1abrYeSCQyeoX9V8I~&0@jr#F`nJMD0086kpHct-
literal 0
HcmV?d00001
diff --git a/DESCRIPTION b/DESCRIPTION
index 64f998a..4092c83 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 0000000..baaaa2f
--- /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 24932f7..8a8c53a 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 0000000..427bee6
--- /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 0000000..2259f02
--- /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
zcmV+b0ssC&T4*^jL0KkKS#L=*n*adDf7Jgn$N)eCaODO77(g#4-M~Nq2mlBG01>bN
z)@B+iX{MTbnI5KTGz||;O{tLdpQ!^x(^PnqMuQO08U{h8n^0{kWge!000w{nGy)*r
z))qiyZa`>|gpOHp1tysVBLPgU!`vd%1}`rQ^OwuuD-2MzrUX?O7dXw{m;i`0l~$7J
zK3Z$SOIt*e7KAn=!4Y7l6BxpFL5PU2HkgPR0B+K+s|hWyP`kyC3mA3faJ`UBLr_?W
zA4qc(I|B-qMh9bSBF_3IDJQQisv8?#@lv5W&XcAwKzm<<CyiI*0s&Ab@pmLsg$V}q
GlR2=?`C!ff
literal 0
HcmV?d00001
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
new file mode 100644
index 0000000..4526c8a
--- /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 baaaa2f..0000000
--- 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 0000000..41e9ac3
--- /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 0000000..30a4b8d
--- /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
zcmV<N01p2`T4*^jL0KkKSzV0;^Z)>_|KR_+NB{r<F#rSr96&#(-S9vFKmY&*umISQ
z)lbrzc}!(JL(@Vu$)nVIjimA+fHct2qY;n|02&x1Q$$hek)#FyMn*%_+D;=0D~2~Y
zlF2gcvbZ5xB#*Ax$+qyxZ(Ln?=Rz-Kv-g0Q*X8lbcGLC}NQM+(pY@cgsxYHf0A)!q
z6>LP1+G$ac!6oswN(KR7>0*y=XP%flo_PzRESe0;>YhPS&PEERhzm@_V>#5Fikz+A
rSK<p^g%*nw2~4&$!Kl+yCa`y&jlPicM1Z735!_wL6yZWab~F>vux@MR
literal 0
HcmV?d00001
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
index 4526c8a..96c058b 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 0000000..b6bcb60
--- /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 0000000..282e968
--- /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 0000000..caf6ddb
--- /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
zcmV<H02Kd1T4*^jL0KkKSt^^|FaQ9tf6)K;NB{r<F@OdD7(g!v-@rfs06+i*umISB
zDhgsAQ`9jH8fek9gH4JU83sTBh|pv*0|bbv=%Y>QM$nib8ekL3K@DXX*-3s_iuuJ!
zUN9;&Sk4#a!dq_cSUWGw2+YZ@*)a`o!$eF+SwJaaMk3ntq9|HIu^_o5(nYNz5ZYp+
zC7~s~{52y1J>MJXmz;N3h0lgXxsZe~K2|f2M%<K2kXYn4jEf?x{5cbC&=GLUYJi>x
lCN#;FQl%vlC!IXPp+wr`tY4Z!!D|=%UC9*TLO`l-bijz2VWI#4
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
new file mode 100644
index 0000000..14be0f5
--- /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 0000000..973e7c6
--- /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 0000000..7ce23b9
--- /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
zcmV+p0rCDqT4*^jL0KkKS@DXWfdBx@|JVP1NJKzEF+c?X96&#(-M~Nq00IbLutG%c
zK!LCT+O39(CV&6{Xbk`WX!SiqO{uj#LZ_)3JtiTO0Gb0$Faa1QKs_L0kpO9+G|&J5
z0000qV+ja2f<PBtlGt^@83TPBzmy0=4{&+S{NVfJ*T?3?o*%4VmRepiAQ;^g8tDKZ
z;DC*d(x+Br03hMXG98%GK(qmTl!^qAg%DUm0Hi~0Fc#1t1oT6OBpCxRg`5g!X`Yg)
zcf4_dQN<hPDy4BY8#CGX#N%4_HVo15hlW=%6@bkwSSWYo6wjNP5M&Yq1c_q@e7md!
UB8Z3*m>K+C$rRy2L&hq81nb0VBme*a
literal 0
HcmV?d00001
diff --git a/man/SoaresTb6.18.Rd b/man/SoaresTb6.18.Rd
new file mode 100644
index 0000000..5d74392
--- /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
zcmV;k5lrqMiwFP!000001MNBsIFwu0GiKZ`<(5h=iQG<-J2{y|;glpfLNd%dV`^^A
z3?U>bl|-l%I;E0aB1#gO6BQkWl+sBdBGf@r`O<vvn0W_d=A^H4{`3F;^Ld_S@ArMz
z-fQi3+iUGTu67<q5*`vT7)%I;K)_)_2(XJ30{_8bNSHX-iujWW038j3A*5MPV_#q}
zDhM+`Ky%t4o>2%4o(MM5V-tgq>~<207>Ghb69F3dNuGl@a}1aL9l6ZN+!E?rt6LaC
z3|Sa1Vtrv_vqp_!kSfoRA>uR^@kzvlIg~hKIC%b8e@<5j&sxbB-ckMpG>vzZa4;S1
zM}r=~J^|nvhV(}h2wY)J8Z{YF6icQO0|{szTzCX$VO(hf!4%G`NqG9ac&r6Ye#Kqb
zl*J)2XqH;J&l2m&XevOn4_;y+V1y(a!_Cjc02Dt$o~_t1yFhXP!6naQMFb!SAV8u-
zLM)&GKMJ=`=JpYEA`a>X(m7HSW^zVz=ftA@>0~O0S%?c45IjNf1Hoa!duz^nGZ1{)
zGa{iG5nOEoG&;bwB7n%1KaC=Q2?>@I4X{+uym*!@P9<+QfXr^p5hB5VOeXU)AJIxd
zqBS#Mi66mnh%wpD=E(G00RC;j;zbr(8rRUVcoLdr$79}#CspS8<H_pNRtAgh8W6fb
zXaNyfO6UOL4cK1^w!I+qgMCR5=5cVVLFfbF2?(!2Xl3`|I$&D~LLCSnKzIN`1CJ89
zUQMCmCi%_u^d`sTQByY`HNnvn>|G6nIUpFZ2eJ@_xRZ<n>pg<W6Xb-(C**V}0>6+1
zEEE|)!3RNZ4g`<0D?CM$f<l%E3lj_}qD=O)80T4>3F8SP02am#K$5&)*_`l>;BW+S
zCBvL3er~X_gb55!7&1rN;CqQ(AYB@dl;M0N4F3izM)F$4nC<)xa+Khe*knR1(a19e
z2tsl~Xy6ldAupa_ZBslMfexiZTMmVQ_6PjP({W=i4WS7%1V#%YnM#LtU}O+JXj&w=
z;W>drB7}|2H#{S7RPGKz!$T|jE+^+3iw#`SBn+8oKmz~_8(#=y7oNoWmOWDQNohVJ
zw)0h8=~k2HW$zQ;Gn2Gw8^V0-2)16QZX)iiP<e3t__3N@>R-CO5=(ZP)u!G(Huuvj
z-&%)J>%~E{wXH6hxjuclF}k^Mo&5o%V`ST^*w?F70z#sa8xHkY$;D~zIU7D_v)Qwa
zujG8PC@nhIlRk&$E^#@h(HeWgI3g{uM_e~5W9hO~Z;9}%%0B7XZt_*nm~;1koZ)Q{
zzTT)+?dc-fWREU`E-M+M_2;|SVJv$We8}G45F9o8$`##}oBBjg`&>C-oQpr7At{=X
zd`a$;(gLY2>EH5vG_MWcmgp+n85n=rsqT<iT+>g#!Xwu&Zmvu}8jp6Xx>BECb<V&h
zQ=xg#meku|D(UH>Nt_q4BUf!ud}bi!L7Y^EjBk6u(1r4B>P7Ph=F!hX&ogE#DlvD=
z(AqpF#_?sAeuBKaG&Qzi8+!BZxOzP~?UOBM*CFt@kLcoZz0W62;A*!{B;9K3Y(IE!
z=Y}#sMEK;Fgvc6m<C%KV4Wr)6B5%LF<J12W<^uA?&t6TZiCaoUTBYPGQr70YkQKJN
zqgz%KWu2(;W>uWNO2r++)Q*cqmv4!go_QyEyt(Cdzf5+C<u636&H7CE(8c;BKr+Yn
z{UByY)2;r)-Vb7LT(0Uz_nq#{Zj;}kXs?6MPf^w_wy>JfD%1L6fk}G(@|7;Jh9aGC
zXN{fjt{sj5ep_dBG_<)sH4GhERAE8!K7v!#$knq)MY)b7Y}zBz_49!9iDe#!2Ei^d
zab9N=%dTb8kBB{$I##^gDQw^fL3x2+N((i0p?TGFqsExgg}XMrEZym*QY{>+XpXvN
z0obaUofFP9Rns;MSIBEDa#bFXcWqHu#$CTr4KJ#R^4h(_{_T7x)1XDU4c#gE(t#R4
zuC?bp5s75#k@Ze*S`;2@Fa1g0x#$<=EWqGJ4)I2AO`+!JC%RXD-Fsok1HGVU<GW|0
z)qZOqMm&tO#yxi5^8Q|(kt}9~@CGN35w|NztLQV-UaXlFn0}Q}Ir4IM`VWUsOYa{|
zu&i??NmW|RaeCU36C_!3qNZHO+xqpn&Gtt5riM9wwP&=|HGJ;%gg-4|Zl})dKUoz|
z_UO&Dy8bh<Y9nd%m+q2nPP1xpafe4e+*kOkce*bAB;N6MUbl8m;!t?AmnHpE_j^y3
zT*SHPFj~c-64XlXdxz@7F9yHE9K0{<yu<_5)wx==QK;wjbxMMAfpd!9^4htdRVw2K
zm)6-uI$dK7IXPtPJ0I}U>i0zzE{Ymd!o&H&$#uhRu9!0mTN&78wQZS^r&=z=L@5m~
z>~4DM(|4~LWi5{*QA?MkQB1pUYMwzFT13rCnVZo(t9~@m+xq>T=;Vwy0a34_;~D<d
z;?^P7G70G~t2Lgv>=R2p6?PDQUtykIyKUkvvxG>ssIv;ptGjfL=8afwn5$49vbK!i
z>!Esire}a$A9``?%Cz3vM@0M9AH7C20ty0k3bcq)`*Lqv>le%()VjN}-~H8QJLyY%
zJzUCqtc-&X_3yc3QD&<!qLA$zb`zmf>pTDQqOj~`CH21*6EyDrfz7I}*?RC|q+(ev
zPSZ%aVl8T`X~*T3$`=lG5^|+|dzmv&w;}s>>(;u}n&itxgfmYO9w2HzNd4|h)T+7(
zgWb^Ck`<o&;A)PwE$T5f6t~lmR_(5Nsk_f2!y(}5ulK?eOe;J;W9xS(SJ%C;ZP|*2
z0g)u@85MFa?k6KM3|90y<SYA0$u9PI7K%CHsuC6)*_-9>)*TqvJ&cwaxh^Z|Qo2#<
zhkG6y>CQ~|#6C)d@9_&w2Yb*;zKPE>+Py<uvgRwM)$R&d^11%{s>0U_7y6meN2=Ne
z-+5egUK_ec2PkMY4KI^<{DYgxX7Wuk!d%_euCgrY;xZRZSxEaMqE^6;;76;IH>Z6*
ze_v?ukKH-2`ttkqqsd`nR>=LOdtzeim*W)sjugB|?kJXdAhxE**K?QR>YltM>i1Mv
zMk!_4cki<C>U+C=#5x9^NzL~8o$_-39L=3Y2Q1<a)|{A!%d3|fcvIG09i5E3;}Ugm
zWCO$R<Q?ljw#`ns?c1x-6V)!Z>QS3i;H(R20}oHgUC*_N^sH-C@C^>p5fXt}Eyfhp
zhm5QwNR1eoq-QlH-d0}Z`*hd*)p3T6t*S3iXRNq{&Jx|a?4TZPLm6>%2G#C;Y`<-V
zl^yz4tH(|a1uN=@XB6zUD(iIpbcMKMwl@p*7PqP%3JY5|uf4u9WqHP~XG1y$Gq+2X
z+yTn`EJcle&y-;_muHz2UXiJmFwZJ|<rS51WW(ORhmEdoJz4h?v%?>$r@RQS4VQS^
zDsK>WvxAYQbJejjSNibYvP2Eh!Qyr!L)*7Y&#tCxl~mEXJUwPSNhm#q3wtGDuaLS8
zZmXlC0z<rkm&KsdU2K^9H4e<7Iux2(OPOa5dgnN8c!1Bi0SoYDbX57YDuRA!GyEw2
ziAU<T;aS%c5ucK8*;jPP`rVQ*t(Ugk@X0E_MW1*qBCXG<@2<-)!WAL~$Ho1QjHoi3
zuGV&01L>pjDDAxRi!M*4pT1p@SD89g)-Y=CqS<qFeg3`;O1ew--e^A4RvveDi*
zf^}!kUs-ED;24)=X56XvaKsn@_GyWeAAh7}C46WW35zW;wrjqBBy;=9LAjovQJ-||
zE>v}XQhwZUqwmgd?IRa9Ze1LqWNZnq&~omuU7wcrWuvrB$BykcQFW2?(^Z}qCkW-x
z(#!MY*0|2~cE&t0(RW;q99{D6IBmAVzQda`9M*VVeK&A<*Am<4y(2hS)sCT-_x8uc
zHsAgAK}n`|@6n$fEzcyB=K;F4tD`cKfPPwx@$t11S7I6Y>S4KR?b%JnpI-!Md*a)+
zJc$^vKSkK{CAeH_o@30r*Q1n769<{KVVz6cJnyPp=(&G)O+3EaZ78DQeu!sf(!bVK
zEpRlWW=G>z0g+0wdg4w;{rvNX9$Pi<@eCWP^WGU(-E^`8OGXMMJ+pfK-ea!+gOB7A
z^_w(T@koaLQdj$v2NNoc=X$jT#_KG)+dQmjPf8pO`0RGEkod8ar1aCm-qzg9A8xGJ
z2E=|mZ6>W(y~WCPl}2!5fYW@@63xca{R@U(szyg0^o>(GKdjt#Yddja!Lc7Sb(|MI
zI<@uYPOBA3v!fIbn5DE3DxWNb3%9v?Wc+c?Ab~(UV7atduD2_s=-DMzcL}VB1Jgow
zk)xcC>T`y1^g-nT`lh_ydN|8NNeNQg<`<=#W_ekj&i;`hYn|Po7U%F0HLxuO+w`)c
zxV+=d$R#<&G^wsX3PUfwy4E_pqP|yQHU+8mET(Po&=dD=nVd7XW6GLnYPBC9<!#9*
zv?=Y0T-PFWiGST~9}Fhf=6teio_d;Z<|~R0qyZ%Exq%o3oN(;<uTHVQhY&Z>W}Wqk
zf*=DzmY_r%Lm_g@Fba+KcV*hbtQwETQ_RfdR0ARZVM)!m*qK(TGW95dr{MTID?@&D
z^%#AgS6n_O7LUq;ibn($z;Vo43Y>_gbRm>yqe$;Ed&3HLLlm%hNgYSfwy6F9g|0j4
z9E?R|Y$hZ_gEax^DvI4+K`D>TNM*2FUa>;Qe()tw#|Y{eLmiVz^8+Xt>kp+><n!Fl
zxdx>-TvQlONn~i$cL?du>Jl)&AkNuc7`GjF436iqsiNFB;i@yGAEVqfQp`6F>Z081
z4zE_u{e)UyKq~53FZ!RaifhL(Hq9};2y^I)F*qM=TKTsOKQ;!#)+YY;flmF3XEH^x
z|FZ10dG*^sTbbGnKK_E7>@Tp1{xV&@r)3k94|~xx8XiZQy52DvjM<>gN6y+lR;4K4
zh?+YA7m9)`JovKE$Ac%z@}Yy=2?su0`3pk_PTQ!E|81k91B0Ol3h3Y5vjRGq0Qo%?
zP1-6Tnz5#uY8>)xmM0O1jA-Jqybyu-mD9Abqh;PBe#o^TpPtF_X@m&x!Ez9qif2U_
z8V_M40Z*f|=hftp)MCP>1_e>}#=yFG;ZYFZfD0F3KtdB&GienQWjT3a<EL7n84(Q#
zXut7W0k~j`5++kI0Cj>sc<&d)@sM5q36dDNUsA{<8ZZ@SYCvc4N8<_%x~JheD6%I7
z;i+U25!{8r=TTmI;0BEWmBrDMHgg)fkz{S8D_GY~V;5r+SrR1$5&<gSpZ8I~-Ze!l
zoc%#u02|Pq!*|`J2&6t)oowN9O?x5p>k`so{sZQ!JLQ0wyBNKRhtM3F`h4E~z~|k!
zSlc4zxMdkkLr#mC|FdQ@HQ8gE$=B0FXf&4xDafz<$p99M_s4^71qnqQ^j$nA5KZ7p
z2}A+>x!>90oZXkk;^}k%V-SQU1OgBOv?=j!7LpjO0W>!>buj0)k~8(#buJ%8fq5hb
zAPCw+Si1nU#2HMU+CpT4!6G=ouf~}6W%x8p4Tvs$YRgk{{MohoG)fH?A=VEASnq;h
z<3ARF3o1D#-^Kq01;@y^_-FHqf4ZgJr0cnFsOEUY`<1y#-&DZO;q+P8k46Hd$$K>j
z^{{_w`34pjgek=Z#zIj=w5P42-;J)86Z`xdiVJp9G@ksM%*8l%rd~y{+hT_5o4v>7
zLbjsVE%m#L3r;!>&VSTECm+RF+`iS@vnCm3Ih1I+K>qSK6c^($^XtWhn+V7}_AP2%
z2$r=Dlygf#qsH1rD0f-yqogPJf2_FRlv)hq!t`)|cYm9%#;mA#vDAuo{N^?3ax4F#
z;$qAuSQIoSQs%6XPdV{^i=)ZFuq*8UemSu~z=46*#C`Zr$_3t>ir=`uE~gqVuQ_f!
zasA_-%|EB&D*1myPQ_17-<wlSkq%Ez#Y=NaD$bK~3rf+aN1cUb$o#LR{C}{N|7PD`
R$-ZG<{tdV1*R|s+006nL&NTo4
literal 5907
zcmV+u7wqUCiwFP!000001MM4WSQFQFNW#7gDq;}?MBL`FSOEnD1Vu$f7DXw-B$+@Y
z8_9%4QPEnTwc5JX4O~H`R$IlLqD8Q3TT5}P))j0kE`W%(iXwS4$xJdcnE=}5{VCr!
z<j%S0o_p@u?zzjvMJD-KBv}9ezyjE8BY?$5iyRjE&j{cE=GaTR91;Kk+W{?u=&uQ_
z-k2wX6biIpM*^A(q;j!R1krG<z$i(!P%f2-VF`lK1~h+d_%DlSE`kt5$b*SjAJETd
zn7==b8e0TQ&>w3xNc~4;9OHq;m*rSFoaHv(Ekh>E)<Z|DNaWb`-XvmTl=PmAr94O^
zLJKA&pcxmE^D-bgq8^tHZbTP~MTS%^oFkPWkcf;nmfnd1fq0n!V56c{m?+TRVFj&w
zj!39LXqZO18YFu?5+aBTi|8bbcsT16&4w!#sPbTjDzjKQOw@Jg9;%e{(5|%YfC8;j
zl+}AAJRw~+oLn+G4vUT*KaGwjhJ+FtS??%;kXOAOCF;hPy1}`S7<S`{s`p8RJgJ)m
zR?4NK>VxU%3yqc;q(r1(CY+}emU^gY*-^zXY*th*1C$*V71fCx%)oK51eObVbQ$Wb
zhN>ZOjK<AaWNc#u;)-B8X_*|(7D|<bwGvKcoQq;BXf5>^GX*EXNQRV8<I9HN3uNlj
z1RN)qDrK}bbT_dj#yke~7Bmo`pw~1M8v-Q~7N{|daZ~MqN!}P0E9Rb9*l<OkKIr2I
zs9l!os(hhX16HdAf2cx2Q6#8EU=np8sgDpA>ZN!=X0S#=_fVW51)ZY~HMpg~xjKon
zRNc`J)yf&d4Bm>SL~Zz`I`n*i8jD!4Kxf=Kv>`M!%^2uSa}Ag_hYukT>D?k;3Za1^
zD%Uqi*TM?d>kt(_wXjLLHPZH_uQ(GCoUI8}2GvE8uC|>3;vrJGrgutDL~nRc!{~a^
zQ+VgJfle&cooLB6U>!Jgta>V<jN4o;%>fAmQ(JZc`cI`&wHsi{0#gGhkfTi)lw^{Q
zIV?(RFxt+OQiIM$>FQvLx*K2vXeU?oAMG8ZX^XoiV4<tio21wvh$asldz42UUF~*8
zx?hUSwX=-g%t8^P{`}Qp0K<r|R?_sRjwz&f2mGBe%D>&b*ApX+$p#H{Ks(UYyw{5v
zU2op&-5J?8ocEjv^)cxIo7*V!*<U>&S{pDPG9LDL5gi#(eFTFIBJfExv}GfjrP0~4
z=F6d+c%fJ(f+u2Az8Z-GbP@s#bwh?zY>-2+jKH}FVX-o)P=XNA-a-!Z5J-}arEz#z
z7YQXWlR*<Ku?0#AK^KyzcV_!+L@L82L<ZZ)APFo2Nogt}Z>9m#${e<CZYCw<>UsAS
z4Qwq#6IU1kB}y?D#-b!c5Yc7mII<>v)r(vBSV&^Ws(n?OZV3<9x&2%~e|}>H52G2A
zF;6PSf}tL2Z*<1xp%W<rhvy0vV^A!q1jh8HM)k)9@UBYpVCCT|%>xi@5kkdD>*e0&
zs94a^iiHTBcTY{LAe`DL6@xrXxKad>iVe^<Mi)_;3Imla2=6giMeS%bQ%7tBTYP9#
zH@ZcuyAEpTBsv+b>YB8J0UQUW?yY$lFfS97X2Wt3Bx7zEPKz5Dfe|XrqlJ;|)?cMF
zR<+6)?DAbEW{lApG6U(_3<F4!GLXhB1{<mR^L8}KfD{?6g(HFm2(^9aTWBs!E3E&6
zC9rww%#+qVhtPjF?IJ>@d6?`%CoYAM4+DlLIy@NB!8)I$*AVij!?gy5b7x1gOkG09
zBZnV)tr?^smS#j<=lKjD7C=f76F2NUSit~hNu)XsL;ptFzD%PxL07c`A-;j3h1%mA
zMPNFN#3K-*WFl_EQ_AJ2*g!1_!WazrXcP&ii_>BV;bnm6TuVZtIb|T(aB<iKnlUrs
zhce)Yc7m@HC%P)oRgY&<hCMNQft06Ifa(UAWTRD@r^`M}cv6v4Ea{>fM`|}jn>Xso
zN|TX@pggG(0rXYS6OqFrG%*12zGBFT6n|0^dc)o=H2s2_%>x|E4ab_)9SXL57=h(t
zG;^caB4t+)P1|^gP>PFFy9{|nB^|(Ifh-}@YMqsz&j2+=r6f_RcMFIvIvCK5yqPF^
zc`-mOP>Lccx^95FB-)>bKz=Y}a!yHpH=^Ou+cC-9Tm&hQSdF>~q^T+r0S1XClFHMV
zByAMRjI7r?OD17xj@vPj?=o5;!5V#m%_LA(NQefS%)~5P4COKyDZQia2-5;WBBV+Q
zACl*FUz)l=p~w-UArjDrM<M~ku;TC*<47%2@bW|g#*kAO#HHvfSp%HX86nc_A3|da
zD<_c|?5yKAWD-)n8E<1$R9Z2ev?DSZ3_qShurXco5eAUyk;gK_koR`Skj(f}kXU=*
zIBBGLjhfJDQUY2oO-l`EYip)dgXYZSGLaG5(fQ<HtAFZPVi`kkGHzjG$tePZB*@Vs
zjzJ@xa$|;0ZxB8?5H#(`+$yx2c?7Lgvb8eB(Qd_1R9o5|G@7~`aCPxi`a0s1VYp^s
zRoCJd&|K_ogqA_3(S?u#446eKjgK^va>=nvM|*%!GC+q9F_{Wm4$HcsYfDIk<_Z#2
z-I8=bf0bh)f+gul2B^+&Vn}?((0JA+;B<G^!OXNUh7dTLAw*#1%uZx4Qt9Z3Rd2!{
zDSUOo-<ZFUzlkKCCjLeIMf_j*>z;lMCR|+v2D0xF(+L;<71H=(S~uwe3bs@ww(z=e
zE^?=2=bTO|r{iTJ`Wo8a?D+ed=oa;F*9qC@y5AAm6FO~0>@3i%^G^$xyfe}5k-t?V
z(g@zJlP;56%{>WFvyo}QD%HY%MO7Est?8~DMs|zNGPGAztA8_^VE~zCXKtIspk#?k
zzYW=aiS}F)OeZzXS_aA$;)l$bqzGxzH}}Y83H}>O8jaqjpP{tQ63feUISCCdytAgJ
z=#+`?+tJdMP=*vHj6TI14c4$KWf)Rd!waJcnrYvb5Vnv+Q>J=5(K>V{+BaxR-e=8X
z5E6Z3wJUnzBzkfNdK5(fR7EIMf0O)~9y^la@#ED_PH3s<_?-v}3_p{kl7Hh<S#?_*
zop{uL^mqDDh|^o*`Wn4VKHb&Yy01p2mbfg5OBvXqEOCNwODfypI{JqX(7SPH-q}I<
zpFSKn`3ujy)yK=u05v6}=tPbyn+53qX(j_l?K^oR%}(8>tLqb#CiMA=B1C){rH3D8
zr^P46W#AB8uS^~i(|Z?Z&VQy%IT&}Qtp0ITLAeTT;)Z4j_&kJdVh|g7x?@v3Q^V&c
z;_zFV&a}3pFYSq)HZB*trUz-2WG)s;G>bkhdF)V_Aa8<Q>C$#>gZh9_A%l1@AJp~B
z79n}sVh*2tV5U7TK(tV)h~Nz^g4lfnBC~=-vJ6PeDE30G<_M$`f{F!J7C>U5i0If%
z1JT~ywZK|tz`9)R4LpD_O_GUr<^hJv6k1{0rvIAzzvliAnLE=>I(<uHtou8!DpIV(
zn83jA|KY;X+&af~#+BxRa!jwpXh~Ps@z%t>LUK~V>c$1nPR1hZ&R7gxy9DTcvNi9F
z*D;L<%P}JKYoSnb6+F36h7e<-M+JjCYvN9&l^V+^Y(gc`f}Xl{HVyZd$zjb34BzMm
zxj8bClvwxvo4oy#$s5IHKteRcU29w%+Itv8a8$@(9s&x4BCU^z;B;6*#4G%)8Xvt3
zN{6**n&WL^g31)ibWSPPzF4SVK=tm424bJ9-su2I_eJoEJOdRR_3|Dst3SEG%Xzx8
z6$U4)kbvds!_3rp*xnb;pBhKAS%Xtmf2@HE8TBtBy5xdf7|DTQqRu>z2C$Mra!>&y
z*hE9HYmRvXsJ;QI0oW2(LZmWm0wTaR>b7c8k*;A{2qk<t7Zr$B9p*AvE+zvkurhw>
z9Oqws4WAe-h<|>Azvofk?eXmsls`=DV%?0WtI&;3ee+QvoTDR`3sR;<lsx4fl^N=o
zd{8@6qB5fbEOSBK1w$N^rw6jat&|+x?dYM0;DLY>)`)-o#2BMZ@hclT2g2f1XJ2us
zZ(J~Zy3t<+{OM0M^ls7q1z%@);8DgCkD~+dcjCtKKvMMa#><27-@&8}3al;mHN;RF
zOe;z&Fb<ONrDD_rV7^91EOhcST7%WKeOS2uYzBM9hi)fJZr+nE%Yd?fKLD9ev6kMO
zb~48W;1ACjQ_h`O|KZIwv7E&pe6ieN;*6qQ^_jygqpuIT+rQ{BV!hQZB=z?Ru9KI4
zW1YzzaH2Zooe;&*wWcp-IX!xJL+iq@SFygq8+X>Fc>g~C^PdjJv`jVKQq7K4_^qDb
zUg`P4AW6gIrR<R6+EIr#p1JQ_zc(44o&AmKNb9*JSq0DRzA)Z(aN5J3QwN@z1pGSX
z>g~G034^?r9K6wcb?L*lE4!AD{(0k%hvQa!V7`4saN@A!9wy%(vo187IPPnkdT?{E
zrAw1GS$~v#<goDd{N90)E`9E$q-<VTD_rH^UfNvcyu=(C8lRPO)ze-4tJ^Tn;8*7c
zBU?ZC)coMX|J-*zI%3`OfobM1n~EbREIIWdFLb|YdQi=_eCr_T5B(=TxqSEKrE5>y
zm4$~!Uq8E|XMJ<_Q0K*cSqp}l-r5@McUAny4<|1VZ+P*`lwWS#?&ud(^Udz1=NfZH
zjQS1EYI>Mje5`0m>zOIdkr9s$m^wr+y)`uQ*5$yGmX}9HL`NOTuid)g;7qT6$mIPS
zhx^CN>iT7!TFl$F!rmja==68vpVahwWj^cVclj^24SnkA^q(u-jNiVP6JE5I^HHl%
z(MxQ8gST5H3#qw$^_BO4s~3jc_O~40zSAyge0-FNKxS8Of6ZHAK0fm9h5#gC_rT-R
ze_YvT()FM6e-$0B`_5Uk;@uuYfBEFj?@sIfyTB~0=!q|T_3@Pc`<K?(t@3ec7M-%+
zIP&hSA@f|)ovT_l-?TcxzQY?`eE3A=i5SlFQ9Jyvl)cXSddPEe{o#IPNX|7&*9W7<
z+V%VS^T(|jK~@gy4#z&XXZx(Io*dG05r|asy|V7_-rQ&N>z>xG&my**yIwuPVnC_Y
zxY3tP`DdP&&WIg2Qm80c9KUMIgq@XT4^y`sDK!!v*ngm~q!)jW^`VIKDr?J6oQ_Ms
zS!d#q4~(98(b(<LB$whjrhCqP);w+e;&W*+mfsg0nl-4O@7mnKbr*KAWKU1EHMzy7
z&l|`3)Kxw_zhn1N-jwP4t|u)%Jqt2>m^R-w(e_&9<H5^J{wSLq=eFwWoL~6o+ZXPw
z8QC&;<kXMPyzXeriEsR9Rz*U2@bxJbiz=;DGaL&NFO0Y(a`mySx-hW9B{JdW`jY0L
z4k0|_*sY2yh2~D9+V=mqIC|tal59uz?gNLu&--P?`H#y|19+S*c?IL_Zk=_RSUhiS
z(9Y1L@1+4FJ&itT=_q%vI2x4bcrLZ5s%Ah%+C67D|KS4H+Tu$G+@ovPmCi2gy?k;_
zWW|e$xqhF`zZbUPF8`3-mdnvYRwb67|G3=l&fNCK)<yLReb@W<h>Q_$OY^vXKIf5h
z+FZ$(RXvX?yqjMi-|OA?MDUo#x$=uwn|%0{4W5~%zXkSnJagS=*VijI&zaetS=M*$
z_-~&@WR&y-Ku$(5cWg>*$idS)?v48>`e293s!!d?n{oG~aYuhzSJ1RRDWUD8$Nk4{
zvtNGoFfn%Yg9SsE{N{oDDkxqpo8Kd?AUS9GzK*MD@Xhz{`VHw@>d_i={%KZT`v=nA
zWy|b#w)A-xb^89ejY&1^ALa;LLiU^I6<1t+)RK^U+_oxuteacG$^8{|4Vz-qTh88%
zXrG^9y%>xE+iKgLynDAQFTlX>sXU~<W1HE&ix<kXH{PoC{nnweE#RZIYjX=P-pOo8
z`{8q=7@6+@w~NE1i#+=+xqofmhDMdyAHjvg{pI89{*Zn8xWw}$Bn^zL2;9_`{zWZ&
z-tvmR1rOI&PvtIhn%h$8*?T~6Uh%P&#tWvoPX}7fRI+(i+|WfuCte@vv3W(G0@10N
zjzIPn@46F4BkdC()wTrHh}OsOhFdn?UA<t+&a~EfDKTGd_pjTLFlC47{;x~9QM;Fy
zd3{$gch(qrQCxJ(6XS%)Uayo%f84Pf>326?7L&vYE|foVOmbCL391|G&gQ%3bDX_u
zABoF%NFxyMI}P<#chi$ABqPOsFV8kqE*-IJ_zPpjIl24Z@)>vTtjr0hZ>+FAogizR
zx%xx<M{cLU@#pJ=ztqjD|Dwtz%gcMFSLohpj*^OZ%k5k1iw^iWT|HJ(_5Av=^@Zs(
z3&J<A%u|Z<SqndNeBpT|A_+|^8WO83?l)bEeOx@redg8U(Tkn-TEVwYzqhQJf6>Y=
z0WcfdJ7M<yw)?)t9xvG*cWZ5eR}5_m;6KYYWv^Bqd6p)>G{~ynXGh(+Wlh{WJI0pA
zuJ0GKw}(gm?ZQv|n!WbO+Q9yio3F3G=CbDU9Gl4#e0pv@QgL8uPJ(--Afko$e49#E
zQeic6du_jc_T0FgpWL6vcR26z*sDDW;I$rdYAl#}#_U<z7+|SO!1j@T^DJYzEI^c+
z9lTb;jf#u?d{14l-`?|K&5qk_S;|GADd)bQq@?lKe5c@7F3aV8?+44~hF|m)C65gp
zJ%{UDZ530S`iK22ORju~&?aSA*7Aj$PAprH6m??VsZ!*DV&>Yawb#m@yYn|)3;<U@
zH>ypPn3&5FA}uO@Q|^A9ap&dDqQI;N`Mq8a$oJS*nE6`>|2C_n{h91_Swx?VcN#65
z)-<=rY&0Fbee$5xlmfR0VdYmlTrVd#zOMT+q^9AZ=?2B@mK28`A73$R{HjMq>E;mW
zvkCK`ff-x<BBoA+!^iBO78uE1Q{H;avFhxJmdaIv<sbKQH@89-`iwJfnrb`+m>&?m
z^yJBVj{CMbY%a-B)~$ISSNhI>w#gSef9QN^)>o-F#8zJ|wcB*y(LGxivx_sfx!E*t
z|9M5eU}{rS@kNXE?|&PWb~#{SXrTBzOV+H(E6Ot!<;QIwytwZ0`}Xir-^VLH;v!FP
zm9TbS6RdZr@_|-MMZ5T|?IqvtNl8rHlc?&WY~S#c$@n9g@0N{$<<mbX3_Rq%<NfJ&
zBVKWjUs*prGwS(>_t*(@m-USEUodIJ?QfHcde16_hg$gqpWm82LDJyT^GCbpCmrB{
z<)?3ywv0c~T+%Q&;l=24;rkMv#CSjCm8`Sj%R>@ZuL@$N_u*~weMhi9d(!^)wVC;G
zJBtS{__D_NW`@&CyRjaNdOr31vOdu@FWzs%g$Cg2gG&!sQ8vlJ)-8KqPUuz6uU#xn
zPYZAR`Nrjs8~3KXcj&D34-JB;0aL1zE6ry(ZkgGmE%UuoZcPoJ1kL<<(ITg(tqT^0
z|7h(W``9A^I(&uezIniN+m`0=ls$XSoH*9b=}4b@xO&&+t&z=jFUsz|_^G(;3D08Y
zyaC0h2Uq>L^6dW8OOt=TQ+8#duW(Jp?i-^XuB<I`O}@72vx66GLfsaO8G74DJa1RP
z`)9wM6Sw~huh^RRuA9HAKDaF9(T<(V?2pbX?Vs|#eUBb~Y@5|lobqQ2{U%6#Mrd+9
zEces<8kWd|Ne5_ucC+LyH)6WAsifU->4TSDHTgZ`h70reuj<c|8GE99)QVw%+SNh<
zKzt6XmpNlXQHvFzu>sJC00xqOOKg!T%1h0F6d8s%(VbnBk*Vyv`}hv`86M~t6u|cl
p3gE%8Pe5QG3<m}T1abrYeSCQyeoX9V8I~&0@jr#F`nJMD0086kpHct-
diff --git a/R/SoaresEx6.6.R b/R/SoaresEx6.6.R
new file mode 100644
index 0000000..0803ca0
--- /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 0000000..68df902
--- /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
zcmV<903829T4*^jL0KkKS@Ufk2LJ%G|MCAiSO5S45da1N7(g#a-M~Nr#mNLE00962
zumHHCqd*z}&;S4c10jtK4FDMp000005+yXIo|E+;41hHCG6Cubr>3bm0>W%=8d@I&
zjS~x+SLEu;Ofmc2jx>+!cT=M(WuG_gd8^tay8NIc^E_cJSb#OTG@Tx4B_S82F$nN!
zLK+6eZIFQ<KCrB5IpLP~y?(Y2T(&Qg5Ctha8={Uzf&nO(g9#3x3@l<RktYQKR2sgl
d+d(+(Cw#7~c<T^RtDukZcO+AV2@f{W;BegMRLTGV
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.6.Rd b/man/SoaresEx6.6.Rd
new file mode 100644
index 0000000..5464502
--- /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 0000000..bf9a9fb
--- /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 0000000..027a4a2
--- /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 7ce23b9..329db27 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
zcmV+b0ssC&T4*^jL0KkKS(H?=3IG7If6)K-OaMR$F(3v27(g#4-@rfs00IC7umISB
zsgjwg<uD^mnq<f^G!2tbz-Y*5Fo0+Vng9VJnu>a9rlx4rzyt@WrV})gCaW0PJUXT-
zuht?JG6HsbGxx>vZMes8_3n=rAr>+#+Y=3QzT2jjKCpmL(L+H`E|a2sI3Yy>3sOu4
zfuu<drj#-oLRUYAplJk3i2P@+3w~aiPB-T2g{~i~gJYWmhr1=DNu)Qe<{}N2OOHUy
zD1Qj|8oHe5+eGPpE2#`Sj|s%kn&V&DYvOQ%L25>!H40<|^S36D9Kuo){9VZu;X*=D
GQphN;!)m$!
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.19.Rd b/man/SoaresEx6.19.Rd
new file mode 100644
index 0000000..9f34ce0
--- /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 0000000..911d0bf
--- /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 0000000..25ac7c3
--- /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
zcmV-m0iXUtT4*^jL0KkKS)Ne1NdN%l|Mma3SR+Vrc|^tl8bv>+-M~NufG_|c7zO|Y
z0tK)E7(_KqsiJ11N2!xRpa1{>13(9)4l-oPh{V7NlLW{CqX@tdz$BAMnM@#hgFpZP
zG-PRnXwdZ@Qi&rLR|XlK$XSUklG_6l+y`1xzzj30p182aD%woe(nQ*^<cLIL9`oRh
z7_vGLoslCXT8;S6YQY9lWrC7nBItpVS^r>y>j3WpC~ma{1VOQ|Sg{0<9(}M*GDYGT
zV5n-3P^9wL&$Bh-$47{G1)|Tiw+~z15GI6cE0O-NMu;xIJU8}o8li{@U9emiLaQla
z$ggu@pd3oIN)5**)WDK<a;I1@^L^&1p9;D+Fz%AXhumXxGnD9cD7_+N0S0`J%+H{L
ySR@izm*MbcnvkM_pP<Mpd_A(?DJw7xW)*c!G^Jrng$A3C{x0N-aG@bQp>UG9*O?>$
literal 0
HcmV?d00001
diff --git a/man/SoaresEx6.18.Rd b/man/SoaresEx6.18.Rd
new file mode 100644
index 0000000..c8bfa6d
--- /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
zcmV+h4EggPiwFP!000001C>{KIFxG}A8VGe6Gh0LJxlf)QrWj8OEJ@!u{6w>F*poO
zTBwkaY-K-<49Ol-go+Otrc~-!NA@+#F{$}RaZY^aT<3g${NDRne)sk~&wE|>?PTt%
z#pTKc005W)EG$d_W){Yfm6`Ej0<Z!&HzWiAVBy(VWuSzCT@0u&z_o+O;_Vl}5Io;)
z{ef*14hAI<5&*+6wuCl0{NLq|eRd=^7!6_UexGq-uzt|y5^q1`4w^6w14a7<BhfI7
zv^Pu|?gxcJkXt5DNLcWOiEWPAHoa~$!we1B9I>L%NH{}&+o=XcKrlPi*usJ#=P+9n
z#ux$Hp~eb@AP^g|{A}un)^_49I1(LzML>3NnW8q&=8vO=g`qZ=w((SU@HR5qzVcIM
z|C1f7HzXMH(;Rpb31J-Rv9Lqx2Mzv4hx<>?Ax2!Am-zjC2!5yiGnoGw+g!3EU?DKX
z&RbxCBDZdj1p^ECp~FVsWc{HFhd>$cWHXtqC^H#IWuTOSdz<qV1`-%3VBjVLcNj=x
zfVjy`+mwk66#bAJ9$D!-<MKs?Y`e9;jEigI=+)t9#;e?sEhicos=oDFzyC{k#)nR)
z&;G@20M(r!f!@dfbqoyV{e#cUNR}yiWA97+aJhr07wfE|`3dOb<bD0@2U0ZF;tgXH
zg09q+nR!)P$$eUE&_m6D!jgLfstzIqMg}`@no*g;=Q+O>ml%!AT;!6BB2NdH?nCCf
z4i_rE$U0LPPSPq$&s0;#=8jFa-{mzhLywn}jHeu@m#;M`JQrhnGJgDF8GkP8B~k5)
z%&U3kdDxT?%`DOOK_Cy5jZ^ONf;?CG^%iVJB(f{=zGm-iBR^gb{i<16H4UQo%$MAu
zBcrZ3I`aO2($ti=i<SF`;<^M1XDM}&`W{;l@(!pt&NQ68E8|H|4OUMX^Gm<;ij<hW
z)k?$@_uxI~bZ^3({ymo<WO%pUle$Yn?zaT@3J4eUj+y(st+#!W<;SN3$)3*05*Hku
z8zo-I!NA#x)SyK2!nAg;aentN6@GY}C#&beBT5mHiOZw^OR2wr1O-^+hPA&utInpE
zlS2ARVoMsa=#N*i41W17#<5hPi^O3yjN*1X%Q|5V9jS$Js=`?w*fM!^S|=Oo+n7;7
z6-$YaBUgR0hGu5(IbBX$yZm4@tXzbcV)u}J22s7{xp&YY>xHb`g*H<oy0E5w%`3ZD
zg^b50Qit13af;z6z66{Lj;lejr1&;I%9@z&35n*@x_`FYf$Q`)gNuicT3-yioo47!
zzAOH*)hA7kGnAxip5uNCj$p8?$Z8Hcfz7N1GqDu&Hn#QbGC9GSuL%);ix&EvR%sv=
zldk`3wU4`ItR$Ec%r(298~93^7FPT88LLE_bb?ES5X9Na7fT}2*3LhiOS%cWlnav(
zo+v@b+sn^nHY+QxdtSG5x3(kHbFdbF^N?>F9-nx}v)FjmM57bJtk?KCN(p(caOB$S
z3Iyq`U3ye!QN|%}Jp~;r2~DOd3U@po#d2~tyIMgb(?s5-rbp_z<mQ}2uUj_)>1R&u
zIh9&id_)DBfe$r0gCBSIs#jswop{#P@y7j`On}X$NXMf&p}EEK_i_cZT*Z<s>#xr6
zx!Gt;j~BV??oRH6-xAMNIa*V;;v}=`N;MPZR!s1tNBRf$1m79#aQ6VbF0^8sZ6KT%
zIZk{jPBy(+_1Q?sRDc-K3A%fnN75wKV8X^BLOfIqrYu%)*hb2Li?6lN_SglFgmp^Z
zsFS|j_0IS=GBJ5su)yG{Y>Sz_#n$Kd2o@QtpZ;C5a8-eyL&<bFyNv=@%#Ze6dRdu%
zWI)ddeg*|v6O<ECP1RQ#(%OrXeN9$SW;YJ`3QqZ2-4T6Wg1a#r9Au0bnoTU0^Oos;
zt;zBH`BK~kf}8|ZNHfU|M#Vd*;Dnb&YLptLd<`3O^~pWDwFrn!VCDV<RY4(F?Llb8
z(GFis?jXRLLk4YJsHC)C0H`I|WNbxGTXgaIIDcGq)tp+4bIrWqVp#8AHh*_9gcK#C
zB^*m3HT5Bs!Q}u`T=`ibSw!4IX3BJl(Aqo{M-+KP^2|qQ^~vdhVhH7xRT7aF$pS8Q
z+)tbNRn&f;KA{bC9{E%(ScB)u@#@g)=rGa-7rBy}(%#D`Q9@0K6imA@l-7Vwu^-S3
zqh6NdNNLi~bN<xF18+|BKbf{}BmOL9B>9q=kclB6-oo5irfSlm->xMuV=C0**lS7P
zo~xc8fkAjDSl=LCIZxafEG|2Kxs91N#yjB9$q!OJh7$<(G}lVv++_yV1e(WH(y(A&
z9;M+g0(gSV==F|t!05UUb)fudQ_XxC$Mcr+SKqrrII-buxMOAbd_R(2HqH6N`b<+N
zq+Ys{JVlzsUv@ZH=QT{k9`%J5@3LX>H(VE+&RC@PF97y?r3Am^rg6v`wABG)*T`9z
z8`BliCsN}5I(mGkW5L=7_uGKQe5BVr9z;KxoEQgxPM)TiMHxfL?&wb$1E|53Ai0kG
zQhn;F-!hDJs>lXn-6UQ}Q%aq}?r6Siw;HRo2aHwxR}xKDD`f6S{L0ZO8wxztwVH)c
z#|x$ejo?vzbYUKprBb_ijv<;ul)O9J3USy4sIwv+oCJJk0v2a-w6W|j8vIg}o#&rB
zM>y#d97j;1kid@m=(Ng{^VDdNc}P^HtH%uoL#~J%)LF+KW15JO@bI!{)2;!}LA~eB
zIBGVC{Lnc$Z@*WPlJL1g;1RViq{B&9v}Q|yjrB*ObWm!CS|5d{)&cK>5=SOz({K0s
zJHt<vCZRuzOJ4&{b&RHx23xcyn_7wnmGbj%5KZ!EB#E%mMN63%n&?$z!7cgcwG$Ik
z?oa!~5<fgG#$|pU5f*5GnAvn+0<6$ANU4b!2Wz)w8A;cB7A39Yz>)^?8JD%So>W6a
z06=!Xb9#5d_^Ygsw2ufE@@*oIY9T*iDTZS?NmnZ!%)_A%gzt+Qv{<P-R|~mEU_RSx
z)6`XuYv9IeT_HV1MZT&x*FA9Z9aaddI8mYKAemY;OX!Zugf5nS&Fs;eG^A+8+JBur
z$V;`z2Q3*F1Q_je!a2XY|Dd&Ff&V$~Q22$V*PI&fV5i5MkdJz@2m?9p>_*&~+R<Y-
zZ!2?JFG{yHf?8oiMbK(Z@p9b0=@9!!S_Md1!&wS$FjrM(hdJk(6<6KI!{*%^I)~xK
zUy}g#OS$kBcghcz@bkUdt9?7@orL@YQ%W!B^9k!C!j1hddCSUOHGRbq7p1RFT+OSP
zYU!GBSso=py=3V#wa;30QbjIb&kr3&z*;K|qV=1j=a2fQrVlF6ZcquCxL+-PdjL+v
z4wSby``MPsMva?#ASx&ipDZ|@i6I!yqu4}@c*RP^jC>XD?CS?C|7Ul>t8wRni`^Pv
zp=J$ZV#|SxpV6A|(i8JoJAtRl1F357hL>iiE?<d?T<dD<oNiT4_zlkO){wj=4_?+q
zDfJvcoR%KV6XiTN)M&JtvK-e?p}M!d1#~lxe&>Dj{o25o*826EZw>^E70HU)XGIT&
zHUpkM8k@ag+o8+DeBQv&snjwIG&;4vt<#7i65h0g-%}j@#dWVJt-5xIoYkwK#@;12
ziK4%${19`2P>B|sQ(ZXpTHdSKQ%{l&X>6PKZ2nf_A>4$4eTv#tdo}Mz|DXsirNk<F
zdU2fP8l|MaWIQsC_>uE$=hBdmPlQb3OdP2+*n7r9H(S8u3pwI}d&abdr@e3x=<CqP
z?gQ&obsb;9yTlt~bzd-#tORXWjx5d#U!5J0znKuL@#&o7xKp#j3lq=#m|xV6ys34o
zDYvvZh(9K8=?5P_`=OyrMAa@g+t6ORdk$(K_si;}DDRE)P9JZ(E!a|DsMc_eg@E`(
zMJ0bPE}4QHcMMo0&h;${K2G!Nv|#e}DypzzDU|<F>+#Vy%WRgP+OVxsd9$S6;0f$3
zM7MgW&CYA1m-74GO8s-8yv+~OpYkvL{Oe}yUlivXJ~w*NtroLnN0H6)H=W!6UvCT2
Uca+!bn_+zWFD)NmPZAFR0KIztj{pDw
literal 4531
zcmV;k5lrqMiwFP!000001MNBsIFwu0GiKZ`<(5h=iQG<-J2{y|;glpfLNd%dV`^^A
z3?U>bl|-l%I;E0aB1#gO6BQkWl+sBdBGf@r`O<vvn0W_d=A^H4{`3F;^Ld_S@ArMz
z-fQi3+iUGTu67<q5*`vT7)%I;K)_)_2(XJ30{_8bNSHX-iujWW038j3A*5MPV_#q}
zDhM+`Ky%t4o>2%4o(MM5V-tgq>~<207>Ghb69F3dNuGl@a}1aL9l6ZN+!E?rt6LaC
z3|Sa1Vtrv_vqp_!kSfoRA>uR^@kzvlIg~hKIC%b8e@<5j&sxbB-ckMpG>vzZa4;S1
zM}r=~J^|nvhV(}h2wY)J8Z{YF6icQO0|{szTzCX$VO(hf!4%G`NqG9ac&r6Ye#Kqb
zl*J)2XqH;J&l2m&XevOn4_;y+V1y(a!_Cjc02Dt$o~_t1yFhXP!6naQMFb!SAV8u-
zLM)&GKMJ=`=JpYEA`a>X(m7HSW^zVz=ftA@>0~O0S%?c45IjNf1Hoa!duz^nGZ1{)
zGa{iG5nOEoG&;bwB7n%1KaC=Q2?>@I4X{+uym*!@P9<+QfXr^p5hB5VOeXU)AJIxd
zqBS#Mi66mnh%wpD=E(G00RC;j;zbr(8rRUVcoLdr$79}#CspS8<H_pNRtAgh8W6fb
zXaNyfO6UOL4cK1^w!I+qgMCR5=5cVVLFfbF2?(!2Xl3`|I$&D~LLCSnKzIN`1CJ89
zUQMCmCi%_u^d`sTQByY`HNnvn>|G6nIUpFZ2eJ@_xRZ<n>pg<W6Xb-(C**V}0>6+1
zEEE|)!3RNZ4g`<0D?CM$f<l%E3lj_}qD=O)80T4>3F8SP02am#K$5&)*_`l>;BW+S
zCBvL3er~X_gb55!7&1rN;CqQ(AYB@dl;M0N4F3izM)F$4nC<)xa+Khe*knR1(a19e
z2tsl~Xy6ldAupa_ZBslMfexiZTMmVQ_6PjP({W=i4WS7%1V#%YnM#LtU}O+JXj&w=
z;W>drB7}|2H#{S7RPGKz!$T|jE+^+3iw#`SBn+8oKmz~_8(#=y7oNoWmOWDQNohVJ
zw)0h8=~k2HW$zQ;Gn2Gw8^V0-2)16QZX)iiP<e3t__3N@>R-CO5=(ZP)u!G(Huuvj
z-&%)J>%~E{wXH6hxjuclF}k^Mo&5o%V`ST^*w?F70z#sa8xHkY$;D~zIU7D_v)Qwa
zujG8PC@nhIlRk&$E^#@h(HeWgI3g{uM_e~5W9hO~Z;9}%%0B7XZt_*nm~;1koZ)Q{
zzTT)+?dc-fWREU`E-M+M_2;|SVJv$We8}G45F9o8$`##}oBBjg`&>C-oQpr7At{=X
zd`a$;(gLY2>EH5vG_MWcmgp+n85n=rsqT<iT+>g#!Xwu&Zmvu}8jp6Xx>BECb<V&h
zQ=xg#meku|D(UH>Nt_q4BUf!ud}bi!L7Y^EjBk6u(1r4B>P7Ph=F!hX&ogE#DlvD=
z(AqpF#_?sAeuBKaG&Qzi8+!BZxOzP~?UOBM*CFt@kLcoZz0W62;A*!{B;9K3Y(IE!
z=Y}#sMEK;Fgvc6m<C%KV4Wr)6B5%LF<J12W<^uA?&t6TZiCaoUTBYPGQr70YkQKJN
zqgz%KWu2(;W>uWNO2r++)Q*cqmv4!go_QyEyt(Cdzf5+C<u636&H7CE(8c;BKr+Yn
z{UByY)2;r)-Vb7LT(0Uz_nq#{Zj;}kXs?6MPf^w_wy>JfD%1L6fk}G(@|7;Jh9aGC
zXN{fjt{sj5ep_dBG_<)sH4GhERAE8!K7v!#$knq)MY)b7Y}zBz_49!9iDe#!2Ei^d
zab9N=%dTb8kBB{$I##^gDQw^fL3x2+N((i0p?TGFqsExgg}XMrEZym*QY{>+XpXvN
z0obaUofFP9Rns;MSIBEDa#bFXcWqHu#$CTr4KJ#R^4h(_{_T7x)1XDU4c#gE(t#R4
zuC?bp5s75#k@Ze*S`;2@Fa1g0x#$<=EWqGJ4)I2AO`+!JC%RXD-Fsok1HGVU<GW|0
z)qZOqMm&tO#yxi5^8Q|(kt}9~@CGN35w|NztLQV-UaXlFn0}Q}Ir4IM`VWUsOYa{|
zu&i??NmW|RaeCU36C_!3qNZHO+xqpn&Gtt5riM9wwP&=|HGJ;%gg-4|Zl})dKUoz|
z_UO&Dy8bh<Y9nd%m+q2nPP1xpafe4e+*kOkce*bAB;N6MUbl8m;!t?AmnHpE_j^y3
zT*SHPFj~c-64XlXdxz@7F9yHE9K0{<yu<_5)wx==QK;wjbxMMAfpd!9^4htdRVw2K
zm)6-uI$dK7IXPtPJ0I}U>i0zzE{Ymd!o&H&$#uhRu9!0mTN&78wQZS^r&=z=L@5m~
z>~4DM(|4~LWi5{*QA?MkQB1pUYMwzFT13rCnVZo(t9~@m+xq>T=;Vwy0a34_;~D<d
z;?^P7G70G~t2Lgv>=R2p6?PDQUtykIyKUkvvxG>ssIv;ptGjfL=8afwn5$49vbK!i
z>!Esire}a$A9``?%Cz3vM@0M9AH7C20ty0k3bcq)`*Lqv>le%()VjN}-~H8QJLyY%
zJzUCqtc-&X_3yc3QD&<!qLA$zb`zmf>pTDQqOj~`CH21*6EyDrfz7I}*?RC|q+(ev
zPSZ%aVl8T`X~*T3$`=lG5^|+|dzmv&w;}s>>(;u}n&itxgfmYO9w2HzNd4|h)T+7(
zgWb^Ck`<o&;A)PwE$T5f6t~lmR_(5Nsk_f2!y(}5ulK?eOe;J;W9xS(SJ%C;ZP|*2
z0g)u@85MFa?k6KM3|90y<SYA0$u9PI7K%CHsuC6)*_-9>)*TqvJ&cwaxh^Z|Qo2#<
zhkG6y>CQ~|#6C)d@9_&w2Yb*;zKPE>+Py<uvgRwM)$R&d^11%{s>0U_7y6meN2=Ne
z-+5egUK_ec2PkMY4KI^<{DYgxX7Wuk!d%_euCgrY;xZRZSxEaMqE^6;;76;IH>Z6*
ze_v?ukKH-2`ttkqqsd`nR>=LOdtzeim*W)sjugB|?kJXdAhxE**K?QR>YltM>i1Mv
zMk!_4cki<C>U+C=#5x9^NzL~8o$_-39L=3Y2Q1<a)|{A!%d3|fcvIG09i5E3;}Ugm
zWCO$R<Q?ljw#`ns?c1x-6V)!Z>QS3i;H(R20}oHgUC*_N^sH-C@C^>p5fXt}Eyfhp
zhm5QwNR1eoq-QlH-d0}Z`*hd*)p3T6t*S3iXRNq{&Jx|a?4TZPLm6>%2G#C;Y`<-V
zl^yz4tH(|a1uN=@XB6zUD(iIpbcMKMwl@p*7PqP%3JY5|uf4u9WqHP~XG1y$Gq+2X
z+yTn`EJcle&y-;_muHz2UXiJmFwZJ|<rS51WW(ORhmEdoJz4h?v%?>$r@RQS4VQS^
zDsK>WvxAYQbJejjSNibYvP2Eh!Qyr!L)*7Y&#tCxl~mEXJUwPSNhm#q3wtGDuaLS8
zZmXlC0z<rkm&KsdU2K^9H4e<7Iux2(OPOa5dgnN8c!1Bi0SoYDbX57YDuRA!GyEw2
ziAU<T;aS%c5ucK8*;jPP`rVQ*t(Ugk@X0E_MW1*qBCXG<@2<-)!WAL~$Ho1QjHoi3
zuGV&01L>pjDDAxRi!M*4pT1p@SD89g)-Y=CqS<qFeg3`;O1ew--e^A4RvveDi*
zf^}!kUs-ED;24)=X56XvaKsn@_GyWeAAh7}C46WW35zW;wrjqBBy;=9LAjovQJ-||
zE>v}XQhwZUqwmgd?IRa9Ze1LqWNZnq&~omuU7wcrWuvrB$BykcQFW2?(^Z}qCkW-x
z(#!MY*0|2~cE&t0(RW;q99{D6IBmAVzQda`9M*VVeK&A<*Am<4y(2hS)sCT-_x8uc
zHsAgAK}n`|@6n$fEzcyB=K;F4tD`cKfPPwx@$t11S7I6Y>S4KR?b%JnpI-!Md*a)+
zJc$^vKSkK{CAeH_o@30r*Q1n769<{KVVz6cJnyPp=(&G)O+3EaZ78DQeu!sf(!bVK
zEpRlWW=G>z0g+0wdg4w;{rvNX9$Pi<@eCWP^WGU(-E^`8OGXMMJ+pfK-ea!+gOB7A
z^_w(T@koaLQdj$v2NNoc=X$jT#_KG)+dQmjPf8pO`0RGEkod8ar1aCm-qzg9A8xGJ
z2E=|mZ6>W(y~WCPl}2!5fYW@@63xca{R@U(szyg0^o>(GKdjt#Yddja!Lc7Sb(|MI
zI<@uYPOBA3v!fIbn5DE3DxWNb3%9v?Wc+c?Ab~(UV7atduD2_s=-DMzcL}VB1Jgow
zk)xcC>T`y1^g-nT`lh_ydN|8NNeNQg<`<=#W_ekj&i;`hYn|Po7U%F0HLxuO+w`)c
zxV+=d$R#<&G^wsX3PUfwy4E_pqP|yQHU+8mET(Po&=dD=nVd7XW6GLnYPBC9<!#9*
zv?=Y0T-PFWiGST~9}Fhf=6teio_d;Z<|~R0qyZ%Exq%o3oN(;<uTHVQhY&Z>W}Wqk
zf*=DzmY_r%Lm_g@Fba+KcV*hbtQwETQ_RfdR0ARZVM)!m*qK(TGW95dr{MTID?@&D
z^%#AgS6n_O7LUq;ibn($z;Vo43Y>_gbRm>yqe$;Ed&3HLLlm%hNgYSfwy6F9g|0j4
z9E?R|Y$hZ_gEax^DvI4+K`D>TNM*2FUa>;Qe()tw#|Y{eLmiVz^8+Xt>kp+><n!Fl
zxdx>-TvQlONn~i$cL?du>Jl)&AkNuc7`GjF436iqsiNFB;i@yGAEVqfQp`6F>Z081
z4zE_u{e)UyKq~53FZ!RaifhL(Hq9};2y^I)F*qM=TKTsOKQ;!#)+YY;flmF3XEH^x
z|FZ10dG*^sTbbGnKK_E7>@Tp1{xV&@r)3k94|~xx8XiZQy52DvjM<>gN6y+lR;4K4
zh?+YA7m9)`JovKE$Ac%z@}Yy=2?su0`3pk_PTQ!E|81k91B0Ol3h3Y5vjRGq0Qo%?
zP1-6Tnz5#uY8>)xmM0O1jA-Jqybyu-mD9Abqh;PBe#o^TpPtF_X@m&x!Ez9qif2U_
z8V_M40Z*f|=hftp)MCP>1_e>}#=yFG;ZYFZfD0F3KtdB&GienQWjT3a<EL7n84(Q#
zXut7W0k~j`5++kI0Cj>sc<&d)@sM5q36dDNUsA{<8ZZ@SYCvc4N8<_%x~JheD6%I7
z;i+U25!{8r=TTmI;0BEWmBrDMHgg)fkz{S8D_GY~V;5r+SrR1$5&<gSpZ8I~-Ze!l
zoc%#u02|Pq!*|`J2&6t)oowN9O?x5p>k`so{sZQ!JLQ0wyBNKRhtM3F`h4E~z~|k!
zSlc4zxMdkkLr#mC|FdQ@HQ8gE$=B0FXf&4xDafz<$p99M_s4^71qnqQ^j$nA5KZ7p
z2}A+>x!>90oZXkk;^}k%V-SQU1OgBOv?=j!7LpjO0W>!>buj0)k~8(#buJ%8fq5hb
zAPCw+Si1nU#2HMU+CpT4!6G=ouf~}6W%x8p4Tvs$YRgk{{MohoG)fH?A=VEASnq;h
z<3ARF3o1D#-^Kq01;@y^_-FHqf4ZgJr0cnFsOEUY`<1y#-&DZO;q+P8k46Hd$$K>j
z^{{_w`34pjgek=Z#zIj=w5P42-;J)86Z`xdiVJp9G@ksM%*8l%rd~y{+hT_5o4v>7
zLbjsVE%m#L3r;!>&VSTECm+RF+`iS@vnCm3Ih1I+K>qSK6c^($^XtWhn+V7}_AP2%
z2$r=Dlygf#qsH1rD0f-yqogPJf2_FRlv)hq!t`)|cYm9%#;mA#vDAuo{N^?3ax4F#
z;$qAuSQIoSQs%6XPdV{^i=)ZFuq*8UemSu~z=46*#C`Zr$_3t>ir=`uE~gqVuQ_f!
zasA_-%|EB&D*1myPQ_17-<wlSkq%Ez#Y=NaD$bK~3rf+aN1cUb$o#LR{C}{N|7PD`
R$-ZG<{tdV1*R|s+006nL&NTo4
diff --git a/R/SoaresTb6.20.R b/R/SoaresTb6.20.R
new file mode 100644
index 0000000..26bbb70
--- /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 0000000..ead48b0
--- /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
zcmV+o0rLJrT4*^jL0KkKSq)kOqW}Q(f5HE@%6t0-Q2+!096&!O-+({>KmY&%umIYd
z5GW%?hD|i}88JPnG7SJ4WMLIHqY0S-7yt=`8fk)h8VM9CGfhUwo`lfJh|?furcYB5
zr!Lr}q)^7-#HgkhdJA;WPRoqE>S1U0SaWAyNr}XjA8Ba%6lS%8&9u^z{kvNm07OAl
z7#~Lu!#&6ZMILOEMDU2MI7k+hh6ybVC?TL5N-=^2ZGO!WVr)`qI1MA>Zg#Eb-CbLC
zc~@ck`G=6vN>w!OOT$n$;sQiJj;aT<Jm?6^HgFx)f+l4ItIdtkvP&9KXdrA31v7~*
T-D3jrf!;3Uig2MI8ngvQCU9&R
literal 0
HcmV?d00001
diff --git a/man/SoaresTb6.20.Rd b/man/SoaresTb6.20.Rd
new file mode 100644
index 0000000..3aaf179
--- /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 0000000..a630b35
--- /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 0000000..91b629d
--- /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
zcmV+j0r&nwT4*^jL0KkKS=iRJ&j0}P|H1$F>JnlBGXMkt96&#(-GD#<KmY&%umILD
zifN{V^k^sQO`ri94KPhG5GWG~hNqwt389gZp^1Sai9<~FLle=c^k|we)NfG+8k$6)
zh^i0}5g7oC9FU{ygD6S?B<Tkd1624lXoSb~eQ1=c?YW+{9(l0%;Uj>r$mMn{)c`4K
zfd*Rwao*ArG_^xZoFWaJ-3cm2&@e)=r35qsV0JjPk|!7&nkZ=vp<64hz4OL&@Ak5N
zI`rkCVA?Zltqu16M>ng46daizWGID)GpJBmbg}Mq1>GS_Ke#eTBm)9ORzKTvwMdl(
Oc^7g;I8cz-*0j$$#&5U)
literal 0
HcmV?d00001
diff --git a/man/SoaresTb6.15.Rd b/man/SoaresTb6.15.Rd
new file mode 100644
index 0000000..0d51450
--- /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 282e968..213b877 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 911d0bf..ff9e5f0 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 bf9a9fb..d3253bb 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 0803ca0..26f10c6 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 41e9ac3..cda4242 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 a630b35..4fcc2ab 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 973e7c6..643ec02 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 26bbb70..82151b3 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 027a4a2..90bcb28 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 68df902..c18a4d0 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 30a4b8d..bcb99e6 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
zcmV+c0sj6%T4*^jL0KkKSu7m~g#ZAuf6)K-OaMR$F(3v27(g#4|G+>100IC7umISB
zs(C4zpQsv|WZI1efuli<O{ic1XwyI$GzNnpGzKZ6n3`#(jQ{`|X`nJVIT?Zp2r`x8
zS+KK=k03z{$X9L7NhY3~E>T-S1W<!bvEk;+sj2Rt+X4Y(L`VT8eqcl|#>Ju}3P~sc
zV?>7#kwmf#i3HTSBEb@ga-VDS?vL^6I_|dr%^Vys-42Ik3x~bztWS(qqvcQ`lP4@f
zS<<J|G>4~|(E?RMvwAiN%%_u3WJGB)V7Ah60)Vq4SY<1Y5`C9AfbtZeuj1}VrwS4U
HgP`!BAhl_$
literal 256
zcmV+b0ssC&T4*^jL0KkKS(H?=3IG7If6)K-OaMR$F(3v27(g#4-@rfs00IC7umISB
zsgjwg<uD^mnq<f^G!2tbz-Y*5Fo0+Vng9VJnu>a9rlx4rzyt@WrV})gCaW0PJUXT-
zuht?JG6HsbGxx>vZMes8_3n=rAr>+#+Y=3QzT2jjKCpmL(L+H`E|a2sI3Yy>3sOu4
zfuu<drj#-oLRUYAplJk3i2P@+3w~aiPB-T2g{~i~gJYWmhr1=DNu)Qe<{}N2OOHUy
zD1Qj|8oHe5+eGPpE2#`Sj|s%kn&V&DYvOQ%L25>!H40<|^S36D9Kuo){9VZu;X*=D
GQphN;!)m$!
diff --git a/data/SoaresEx6.6.rda b/data/SoaresEx6.6.rda
index 7bc895cfa34a6cab63018c7b31f7ec31e7597d76..2f55a92ae08f62600be4cd4f330a6aa633980d93 100644
GIT binary patch
delta 206
zcmV;<05SjL0p|e@LRx4!F+o`-Q(0+8PDYUqBY&Vwn@y;g&?lfK01(3=jSUR|84Umc
z000st1shDJo{-Q3O#n8gji;umYym-Q8-|t7Jtfwx%ng}2vZD-laK{-&`nXG@DP?CD
z^!caUB)dG}N9~b?JK8`R-7HM5f=v{pY)E1e;?jgP4T`!U0yg|Yp``7@D*mVWVRXk-
za5rO$Gxhwhv}1Y&L_zLR^sM4=5>a;0e;`0ZMJFMB@Ly4)?G;%+En*2ZWD))@<ce^i
IAkvPUjGr`DSpWb4
delta 202
zcmV;*05$*T0pkG<LRx4!F+o`-Q(5zE9tV*QBY&en8UWA$0009ajSUR|84Umc000st
zG^U=D^&kv@H1#q8>IbK$sW<|{Y;GD_9|VmP3z}Et>dQ<q``wN-kL!0+qbg;eH|=?=
z+9bOCpd<4<VJujHHMumM9%&^Z7o;%=@M%IC2E}cVfge7wtZ6ynmiN7WwhvskFOm=i
zDKk48qK-y_0VtP)2@aqPEMhB>Cj|ji8osRCK{)Lve6Fl`>kv_^ppWr)BvXY64>r-@
EaIVfxT>t<8
diff --git a/data/SoaresTb6.1.rda b/data/SoaresTb6.1.rda
index 7854cdb920e058bb80fa9f1c68b61e4befca437e..dc9d037d3deda1513785ac27b0b4419e1b07077b 100644
GIT binary patch
literal 238
zcmV<K01^K}T4*^jL0KkKS&HbH6953O|KR_+NB{r<F#rSr96&#({jfj)KmY&*umIL%
zHB<D7w4RM7CzSMtgBn5T#W4aQFwiDO00IorppjG5(gucr000Jnlp$s+0s<tY4fKMc
zH3|je03V$&$cUEwAJ|SZK?GFFXUz(6uQf+G>6LH*p@f=4wO_jwNrW{*0{TgStT7WI
zw9=Cyf=ia!lne*CvB3V?th)Jay0~8e$#mrF)$oF0tWzK=G#7YEr}Tr=oz)<^PPdS*
ou=Ff2Qs_&*)tD&p{%TexWXQ<*ndAimNF(^Wk}1N3gjYn!n0VJ|NB{r;
literal 241
zcmV<N01p2`T4*^jL0KkKSzV0;^Z)>_|KR_+NB{r<F#rSr96&#(-S9vFKmY&*umISQ
z)lbrzc}!(JL(@Vu$)nVIjimA+fHct2qY;n|02&x1Q$$hek)#FyMn*%_+D;=0D~2~Y
zlF2gcvbZ5xB#*Ax$+qyxZ(Ln?=Rz-Kv-g0Q*X8lbcGLC}NQM+(pY@cgsxYHf0A)!q
z6>LP1+G$ac!6oswN(KR7>0*y=XP%flo_PzRESe0;>YhPS&PEERhzm@_V>#5Fikz+A
rSK<p^g%*nw2~4&$!Kl+yCa`y&jlPicM1Z735!_wL6yZWab~F>vux@MR
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 14be0f5..736d5c6 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 c8bfa6d..95a3081 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 9f34ce0..977c3d1 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 5464502..05f1060 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 b6bcb60..dce1b50 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 0d51450..9649f51 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 5d74392..b338ece 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 3aaf179..6c25dbd 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 213b877..b6a74ea 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 ff9e5f0..aeae829 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 cda4242..78b2494 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 4fcc2ab..bdc5546 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 643ec02..f2a2ff2 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 82151b3..5a5b0f9 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 329db27..55dee0c 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 ead48b0..cf892c5 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
zcmV;;05bnVT4*^jL0KkKS>IP{E&u>}f5-nmNCW^uF+c?X96&!OoPa<82w<>6M6N`E
zpa6;u5+fR!4H^vrpa9cDO)x!BB@rQ^pazDG01Y(Bqd)+nblzJJHE<Gv@{P3z@4kKf
z*-X>XiSMy|qM7VUbdaq#I+Ow~-+H(pCdJIG^sQ8A527dmsYDnGgN<Nh$cTH5Oc()`
z4-%w}&FWU+=h{h9#4(N<sj`KkIK&G|(i1XWwv-XZ?bWse3=A701P9|I2mD>h6yZWc
HeO;`$l6q39
literal 270
zcmV+p0rCDqT4*^jL0KkKS@DXWfdBx@|JVP1NJKzEF+c?X96&#(-M~Nq00IbLutG%c
zK!LCT+O39(CV&6{Xbk`WX!SiqO{uj#LZ_)3JtiTO0Gb0$Faa1QKs_L0kpO9+G|&J5
z0000qV+ja2f<PBtlGt^@83TPBzmy0=4{&+S{NVfJ*T?3?o*%4VmRepiAQ;^g8tDKZ
z;DC*d(x+Br03hMXG98%GK(qmTl!^qAg%DUm0Hi~0Fc#1t1oT6OBpCxRg`5g!X`Yg)
zcf4_dQN<hPDy4BY8#CGX#N%4_HVo15hlW=%6@bkwSSWYo6wjNP5M&Yq1c_q@e7md!
UB8Z3*m>K+C$rRy2L&hq81nb0VBme*a
diff --git a/data/SoaresTb6.20.rda b/data/SoaresTb6.20.rda
index 3f3362333d400db8a984f195c5abb109ef8d2e5d..045371cec26dd456f814b60d4e5cdf05868f43ea 100644
GIT binary patch
literal 196
zcmV;#06YIeT4*^jL0KkKS<Z+0FaQ9Of588?%6t0-Q2+!096&z@-he;=Kmniti49FP
zG>=Hr)Mzx*L&^XE8XMIDNkKFK05l$;0h2&!q4d>ooathYQ0W#Ty1V2mqTXW-2TMt?
z%Lg&=g#`D9t`}f*bbWd>EuCVT0U>H&$juArd<|(Z2y-FeWDvgc1tV}_53rzN2N{0S
yi$v1hlXIn_iO-YISCmUgsV1&<F3oJEBl)8V0}PuwAL9fI_`8xR!i0u&Khc1__fe|=
literal 269
zcmV+o0rLJrT4*^jL0KkKSq)kOqW}Q(f5HE@%6t0-Q2+!096&!O-+({>KmY&%umIYd
z5GW%?hD|i}88JPnG7SJ4WMLIHqY0S-7yt=`8fk)h8VM9CGfhUwo`lfJh|?furcYB5
zr!Lr}q)^7-#HgkhdJA;WPRoqE>S1U0SaWAyNr}XjA8Ba%6lS%8&9u^z{kvNm07OAl
z7#~Lu!#&6ZMILOEMDU2MI7k+hh6ybVC?TL5N-=^2ZGO!WVr)`qI1MA>Zg#Eb-CbLC
zc~@ck`G=6vN>w!OOT$n$;sQiJj;aT<Jm?6^HgFx)f+l4ItIdtkvP&9KXdrA31v7~*
T-D3jrf!;3Uig2MI8ngvQCU9&R
diff --git a/man/SoaresEx6.17.Rd b/man/SoaresEx6.17.Rd
index 736d5c6..5365fa9 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 dce1b50..2ced6ba 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 9649f51..d70c593 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 b338ece..dbb6d97 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 6c25dbd..b0f8dbb 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