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 1/6] Adiciona tabela do exercicio 19
---
R/SoaresEx19.R | 49 ++++++++++++++++++++++++++++++++++
data-raw/SoaresEx19.txt | 5 ++++
data/SoaresEx19.rda | Bin 0 -> 217 bytes
man/SoaresEx19.Rd | 57 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 111 insertions(+)
create mode 100644 R/SoaresEx19.R
create mode 100644 data-raw/SoaresEx19.txt
create mode 100644 data/SoaresEx19.rda
create mode 100644 man/SoaresEx19.Rd
diff --git a/R/SoaresEx19.R b/R/SoaresEx19.R
new file mode 100644
index 00000000..a32c9f7d
--- /dev/null
+++ b/R/SoaresEx19.R
@@ -0,0 +1,49 @@
+#' @name SoaresEx19
+#' @title Eficácia do exame clínico neurológico
+#' @description A hemorragia peri-intraventricular (HPIV) é uma das
+#' causas mais frequentes de agressão ao sistema nervoso central no
+#' período de neonatal e a segunda causa mais frequente de morte em
+#' prematuros. Atualmente, o método de escolha para diagnóstico
+#' consiste em técnicas não invasivas (ultra-sonografia e tomografia
+#' computacionalizada). Tavares (1995) estudou a ocorrência desta
+#' enfermidade em 120 dos 129 recém-nascidos com peso menor que
+#' 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
+#' 18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
+#' neurológico, as crianças foram examinadas por um pediatra clínico
+#' com formação em neonatologia, sem o conhecimento prévio dos
+#' exames ultrasonográficos, que confirmam ou não diagnóstico
+#' fornecido pelo médico.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{hpiv}}{Hemorragia peri-intraventricular presente ou não.}
+#'
+#' \item{\code{ex}}{Exame neurológico alterado ou normal.}
+#'
+#' \item{ef}{Eficiência do exame.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Ex 19, pg 128.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx19)
+#'
+#' a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
+#' barchart(a, horizontal = FALSE,
+#' stack = FALSE,
+#' scales=list(x=list(labels=c("Ausente","Presente"))),
+#' ylab = "Frequência",
+#' xlab = "HPIV",
+#' main = "Eficácia do exame clínico neurológico",
+#' auto.key = list(corner = c(0.95, 0.95),
+#' text = c("Exame Neurológico Alterado",
+#' 'Exame Neurológico Normal')))
+#'
+#'
+#'
+NULL
diff --git a/data-raw/SoaresEx19.txt b/data-raw/SoaresEx19.txt
new file mode 100644
index 00000000..93ab5f99
--- /dev/null
+++ b/data-raw/SoaresEx19.txt
@@ -0,0 +1,5 @@
+hpiv ex ef
+p a 25
+p n 13
+a a 31
+a n 50
diff --git a/data/SoaresEx19.rda b/data/SoaresEx19.rda
new file mode 100644
index 0000000000000000000000000000000000000000..ccbd78e3e2e67ea7319057f55eb6b8c2e94b8a5e
GIT binary patch
literal 217
zcmZ>Y%CIzaj8qGb+}5D<gMneg{{#PxJQNxj4HVcIBpme9?;dbqU|`+Auq|P#^F=jb
zUulh$iyapZzT)-eNMT@LV8~DjwfAUTaDmO?vcm~kl_tI>Lk;GID%+YJuTLn}Rb#GS
zn8YDadE#fH=9G?*O~&~XRX?|#RyE(9$gnJFGUGJ)eHSf+JF`6vL=1H}a!n*6c|5{)
zNis8T3Z1EZSn6)!r-@nG6}vOP9(jH5MCX$9{%3KuS;sy$-m%R3)b{4_nw{rU19>z>
YRa)bhF?MvQJ$mP{oJ&aT0!ust0HwHBRR910
literal 0
HcmV?d00001
diff --git a/man/SoaresEx19.Rd b/man/SoaresEx19.Rd
new file mode 100644
index 00000000..2d068d7f
--- /dev/null
+++ b/man/SoaresEx19.Rd
@@ -0,0 +1,57 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx19.R
+\name{SoaresEx19}
+\alias{SoaresEx19}
+\title{Eficácia do exame clínico neurológico}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{hpiv}}{Hemorragia peri-intraventricular presente ou não.}
+
+\item{\code{ex}}{Exame neurológico alterado ou normal.}
+
+\item{ef}{Eficiência do exame.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex 19, pg 128.
+}
+\description{
+A hemorragia peri-intraventricular (HPIV) é uma das
+ causas mais frequentes de agressão ao sistema nervoso central no
+ período de neonatal e a segunda causa mais frequente de morte em
+ prematuros. Atualmente, o método de escolha para diagnóstico
+ consiste em técnicas não invasivas (ultra-sonografia e tomografia
+ computacionalizada). Tavares (1995) estudou a ocorrência desta
+ enfermidade em 120 dos 129 recém-nascidos com peso menor que
+ 2000 g, nascidos no Hospital das Clínias da UFMG, no peíodo de
+ 18/01/1994 a 17/05/1995. Para avaliar a eficácia do exame clínico
+ neurológico, as crianças foram examinadas por um pediatra clínico
+ com formação em neonatologia, sem o conhecimento prévio dos
+ exames ultrasonográficos, que confirmam ou não diagnóstico
+ fornecido pelo médico.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx19)
+
+a <- xtabs(ef ~ hpiv + ex, data = SoaresEx19)
+barchart(a, horizontal = FALSE,
+ stack = FALSE,
+ scales=list(x=list(labels=c("Ausente","Presente"))),
+ ylab = "Frequência",
+ xlab = "HPIV",
+ main = "Eficácia do exame clínico neurológico",
+ auto.key = list(corner = c(0.95, 0.95),
+ text = c("Exame Neurológico Alterado",
+ 'Exame Neurológico Normal')))
+
+
+
+}
+\keyword{AAS}
+
--
GitLab
From e69b3f8ba83e54f01c9162d1cd95d4d62f9824e0 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 16:21:19 -0300
Subject: [PATCH 2/6] Adiciona description ao commit
---
.RData | Bin 0 -> 5907 bytes
DESCRIPTION | 2 +-
data-raw/SoaresTb4.9.csv | 5 +++++
man/labestData.Rd | 2 +-
4 files changed, 7 insertions(+), 2 deletions(-)
create mode 100644 .RData
create mode 100644 data-raw/SoaresTb4.9.csv
diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..0e75516338e02c68c952c765beca174a8153a29e
GIT binary patch
literal 5907
zcmb2|=3oE==C{(B5yIEYJPz&S)=Cm&ak=wsV+12B3yZ6(tC*|iA(fd9D$*xgTmvsg
z&EI-!*Hzva$E9J>N9Qhb-H;XSUAX$1XpXjCL&vr*rAp(IK1Rkf8E!rOt9jr2$+?}+
z=T*PE`EKXwBd%&cBUK_97!EMq$Wd-M>eekI_Uk;y1BPceym!e6F)-X_)NOvTo^$QJ
z8R|_UTw4;{nPzb<DcTssa<O3T0S(V>0eVwA5;>bLvYFK9{?PBv&}$NKInmr1E`Q;C
z`i%Ydy;9LE-WTMvO+Eg)r^-BTJU0Dlgyo#4X7_cS)y`aVc3<uB<i?kKDoIIGzRc@c
zYU82e#I2^XKvI0tXCnp6MRL>m@?6BbT-!qQ<|t29n9$K<Htk*~Q)9(UhJ?k7LT6}P
zxR=Pfwz|(_g+s;+x1CZd)wV)P9o*e7RC+2bUW=S<(-vLvDWOekbA+YOmC_e-tEPOu
zux`uS2Bx(^Q?6F4*eJ%D&51Fx;_L2{weRgyZ)*{fihQrpI3awmtm>;{({~-*IYFZA
zap$V<o-H;jXS0NzTDs^}^UD|9z0)L@xGYIfo3mVaTGfh-n}J6Sa>7FNn5W2!ieBxM
zIdh<J1Isk-$`Z*}YuZ*R7W5oD8<CQe%<`x!!76j6%sDZysV!TD{8Hz1CuwKsew8q0
zRX^y_HpTz(>9z;lDX%WE$f!@(O5I{sV!l!Jm<`)kF%y9W3$B}pNHeJliLEf~DGYww
z=y^{<RQuVyh#Lj2^X*<dW?vCI?bWK9g%QkQt6A$;I5`EXtZ+>bDpgq7FCg}6X@z6j
z1~;eg0do{s=Pu?m-Ldq*POHw%A$KqGUp*yxi059{GMC&RORc`tG)Q$vY;Z`wW3@%m
z#N@2R3*Tbi8D{PLiUKe1D#dXvY*f^`ZtijY5ZCqB0-|<XH+b$cz4UGAdJAE}IcqsX
z*{-@yT(@m5!z0C@oy*F-{9W=Z{13mVx)@yXd`qLB&Xu_tC(ROMElSo@X)Wrx9iw-a
zk&`(%x{UFc|I(nX(g~-Sf|)fYEcTU{k}|2!QpYRX;MTdxLCxpfUcO4`+9jR9oS`26
zRsOB);>_;dY6%NhU!J|>hC+uLzfAQMcbV9?Wp2CTyUuLg+;i`Yli=cif37An9PZc<
zcInIVKFuZN?0@DOp4xwR&vjwt-ji&+B@WgXuI{<sEg74C@AX~Do91)A&*AuL_>yt<
zZH>=2<82kAqz&YZ<i1r1%1Q>-vNZE5eeg8dlBzsw>BXCyo}FGer($7*T9bNG@II+d
z<`N+$o>J$w;G7B08+s1x<Vf6Tv@)Pc;Nm?ezRv<4llqnxRz!$%sv1mo6xP|u>c#0O
zK52P*+V30}t;4D=Y`0G+aOyC5W@;(sFJruPN@iPLo|@{DSC!vId2@7~g~KHnRlN+w
zk1bMh7Py%D!eWzJ?bYt+9}yl&$5+*c&dTHDzrOQtj6;20GAsXL$;pQPTF06e%4Ox3
z9DBM@Sd*#!IhSa1fX+&mV_%lJeLc?lVV&3Kgr^U+&N2(+2s$10eEsy^vlS5+E_StY
z%q{o#U9B+ZmWF7vjn9rCmWf@w7tGwm17~tEPu1agZy4eFHp3*?J%=T_CL_drm+R`?
zd|5A4tR&aInzf~wQHFilyS0^)2KvHN(he61swC%0_;pK5Gzw~+UEDhH&9(TY#$j7e
zNxb<KtCrStQPPO{<t-j&kBLSTj_I&Tul)77%;Z#qh~(N<<tA2+t+g+rGxU74*Zgl*
z-B9`J%;amf?HB6J-zqsRt(@`3NnNjX0zY$`x|NN@#e-J!ms}V4wEXZ^w$|cw_f0;r
zPREto<*U|8E>W14<`Vn-Cy%_CgO{MN`5T*vgA8e&ORV^u|GVAV=d;+{F?=hN;=aa(
zt+yUayCzum98nfnl%kY(IQZ1l6*nAoIS)zj{KydDT-JR#iQ{2v!;2Vir$v^j3O5T1
zZ?McVG=A7_^q{@0X}z%eF0Bip{pmq%wuV)WQ<jG`ykeV?vN&|s^3!%c6+sh&bY3o!
zcF!_*nQi{+q}Sw$9Sdw$3Nd~Oy&ydCu#$-(!^eF|CptvxgM_ON-_teu+cfJev&?DU
z<Fl^Fa&4=TXndMvQoQ(vQfjz>@9m0?fUfS~-8_}9s<H=C8g&#eXU&~D|2%`K>r$1#
zRps0rdR7t_diKoJsH!w{&<*HP(%hBTuuJ9E{5FR=gOnma&pPu(4=>&}Jb5REMRP(#
z?=H?IE473e**euGow__jC0FEB&zkGj-fD>%eYXuKzBh_eJSbJ$cvdAK%%g*C)|n$Z
z(L7I$BsBLfe#dc{$w_I67pMHB=cVzpb~!9OA-G6U=t7&j664_wk3NV!_RtOf@X3Yg
z*o0t-BTHXsM>5a3B&m4mjl5Gbm$v#u$v0~ro2Li`?Ul?=4he}eoV!KYNRr2Xp5q3?
z*iV9N6JAa{ZghCU_p;*?&in|P5K;ZWB6CS)@2m@%K}=D4zTUhU+1blNnxCC{Vl+|k
z*2SMs5?0s0ib#@l&Ns?SOg^c})U0yiqEeru^4y~2HotrUJ4*qRw<qpsZJAxkvNmMX
zR->aA^Nt3DMBkD%nYBx%p!8$NFRMqB6L+K~gkFCnej(;fZp$>sWfxl~F!9WA)#~jx
znN)Ogqqlo?Lx7P(JHO#fu4ul~yB219d$c^`5(>FHsl=gvYO-RJ>Pru{73cDkJZg?z
zsJN!~prriT!82P7+5{|SE4m~+J>!?6AN2A?M`->bdCi*AgZF3bpRm7EWuDqU*FUa*
z;(xrJSI4Us6U)N3>Am1(PVxVumwqHgnZIP>+7_a^?Zd7Dy`tqQ&*%7QEq|P<^h@g2
zy*EF8&w3&DHUB#2&F8!B3*HpA%5{CCb79SAf9~mfj4!^OxIa|+634xDll3M?pS9%-
z*gP@wfY#MRb*`b}H`l&gC*xMuea>i0c*yE{<5`IeGt<)ZW*=FQ(&@FI_hxP9w-_NG
zb<?v^Y^OvYwV#=>gd_8!`S%m4od2Y~q<Zfyo4;_&Iib_1ODs8gb@yyuw(P}}&iA)3
zUYZ)vCZg73cT}49+6JvuiJ<Vq+>1G9W!|4Aux)}%@UklFi&iCSx6CuV@1>tj5)i6Q
z-l|>oP^GGftxCj|A;eW9q<-?BnR3>X9({a#)z2?u<%=J4Ik<T2Coh>)|2R0ZG+KIY
z#g+Om<-Y<tE=NE5CAHVb?(WrFyVkoco3=xz(_8Y!LY=~<d~dDW53PQ+^IzCqm~ro>
z<InkaGUh+I&+oZ<{PZ~nQ`N;UT>7+Uv%dJBsmAR7*1A&ptl!;bt6vLGQTy_<OUb21
za%sDK+VZ37$5I~%#H{y`6S`b2o_?-=nUAGJ`LZ?t3PT-ta^*g1OXK)q(~_GcAYHjD
zIoKxn@N@M?AEIZS+p=x3{@c#EW_segm$7F~P0<tcGU>L{t$Y(OLm|H@_T{Cr+~!{m
z0gBBP2J%<Fo)%NAyp_Z^zb0Xst)9b{fR!B&cy*g@)G{k=ZgSbg<8fN!o71{y97}|n
zx>&=+9Fi7xytv`ReDU7htp}pg4(y6~%WKnM;5(_a>=|R*DUqneTg(2>`n~_zKmM84
zmwl~jy_47cwqCClwC2c+0|(y!e|YHP9joJ|$EH4OD)L!>B*QcO`p0WW_Bs^>9eQ<)
z^}OFPrPt>ocw%?6yr|t|`o8D7VK2vNL!~d-3j>NoZFUB<2_!FaXKl90e&n}ws?=$X
z94FO_P4jk@n(=<0b~5oS7tj3{Y&$KDCQga?{%`i4zmrc&A5C*`GC2~P9V2tATEe9u
z<V1oT6IYAU+Ww9QB@s?XwEwJ;lHbeY)xI@j*5llyrc)xPO8hjh?~7Ow@9_0qCtK3|
z)%RX9cz$>N&}G9cD)aS|oc?P2od-@=?%E{EroLuE!_$|C&s?dvaZmi*d@1+Mk<G!O
z^=lfrCBNz`?RwG_BXP1ZanU)Oezpyh9E$=Nm2bE>Z^-VeWL~k4aV6sop>U@qMmbDM
z2h3h=%L<&hE-{KjwZ=kRv?EORnNftE8ney@qq>(e&*N)(=S%2z)Ymode;#=M?Z>ym
zQ|x`-B;D;<vHC)<U+w2W#W{<Wr*j7_bDd)IRCcQ5s~I%`*1?O67BlG-JKkk=mYK4g
zebb?}Q)KSEeX+3pL1TmPwT}9~M<f>ee$<w>Vn6gKBt5=xMShGy&8~~_tbbnmn|{f=
z_>VO{z2ZUOG2#Bj%pb}h9sA@E^yTBR)6F05A6&xAwMO@w>5%{_A8jvf1HMTgmL^?c
zPT1$>rc?6CII8*T*4l_2|8m%>kGAKjd*|Jotb4j)Q@uUIO#hA3?#(VUI?nol|GY%-
zxw#SlAD%VcIOnK*&Bi;4k9roxew}$(XYqReUAOnYFihHeRafQfcg}T_r`IRXJt<qT
z$m+>lfuk3<F4Ir5w5=+4etl>|_{Mz)rOU4^t@v;E|MPslV_SSo?*^Ui3;nTn-u<|j
zKMyK+9)7a)&4fp{0^7~z?R+1z-&}Iu+`qlAJYMfqjbuIlW}m^m(t=xu=LNIRo5}LW
z>glVuyAE<T@0ljE=VEo~%fs8WcTem8SNXWV{c%`L!oFIUf=3&k$f@0z->hdc+u~jJ
z?5cv|^-H}cn?=@7sd=*D!`DCe8Yk-2zFWE^CoV!e=IMjDTQN`f9FdWfnm@Jp>gCu!
zt8W{edl3GdO*z{B$CW=14*$PXZfBKr_fuo$GyU0J%IZ3nUlsLB_GeZFoZVLQTHz)C
zUv;~kHQ%2u&Gx@NwYA+X-hTI@^xEQY0nd-tMsl~!ymw3LO?l{_<NWIS{P`6hPfv-@
zyYudac*y6o@0LE7Dt7Dn#d|KRYDQGenhej^Gd0gn6zu1lVdbK~*VN?GwWkLrO`GoS
z=Hf1Ua{b+14<GofuRHPNuXOwG<ELN!N}U^Z=JvKj_msE1_)`9O{*^D)sdlfQl>gM<
z##{U9<(K)|cY5ycn;{&xW!mS!)d3g1bLyJ6N2_wL+*$K=>i34#;%#@nZI`*f@3LNI
zP0f@}hqUng`m@oAc6OiMwK1q9en0T|a(&Fr^h;mof2tRiUHAK3<d#Qw<(%t(J~{W^
z@Abdk2XxlF=+v+N`f<v?-_x(%So^6kQ*7?0`xc+xtx^0Ob7}7CD6{)ptPbuwEFD|(
z!{uqG#JSIb)_>Md*?aC+)rsQ5zYptDJ<geWUuR!@?AF)cKR+K|E9n@<_nPmx-S+g~
zYu3z@xl|<B5%Ov8rg!h}-AVuadfv5l=ash2*&SzlFv(%%)g2e7`}|CwH~n0PtVPfY
zjR=|jS*Kg(PEF+x-Y%nQDkOKKe!+$%;`RMs7j}Hs%0BHsr_XzTWcs5C{5|t3F5Y;1
zQDyog%VpK)YOmSk{&`fKX*lh^xa=&`74zTUx^u8pyli8NzyDU#oky3Smp=aMN~oR9
z{^ak0_olr3y-r=%&X(J#dWPA3vy0!No<2T!+UK9fY?<fVUcH_Z|Ks^>@po$_ZyHrR
zxzc}r&%2D%o%w$<!d#syKYY~`?bccwVl2Zgq~EhcrReL%HM<Np98xuU`0UrDXAAfg
zZ64oP+oj$5%y03nZ~wPjR6Q}Dl;i&G9drA>^S@J%{_H;;#9T2)x03boo4mQDGb3#B
zb1$5`u;l$xMrGSxyUdpw<?Ah^ro5=o+qz;^nuF^t+jNWn51FptdgRT1XL0uRsps_G
z?5!#CO*z`#wX<&i+5O_%9_am_aCh42i_T%H)8_x*ap&E+JKv67bN$L$d;RzKjvm2$
z@6S8x?4D07z7=zFdZ=x`)}Gn%^7mig{qFK%#<88By2EGJ{Fur+Z|1W7tlvs)itnah
zzpib5e&)@2k=M%K{>Y#2nlj}Ji-Vt=L3xf>&WVGUt>5+j*7%jserlEf-IKEmzb`3t
zua649u*FVu;oBw0{~piV9AEd<z_9E~GpqCTKhGNfXlcah&c3g_R>3m;=f1wxnIF!6
zfB%d3W%R3yQpNu=!{UCkU%Hoi`c2ukFO_1Yzy9s$^)!7W|BNHX>D%n*qTw;MS0+uU
zzOzlMYR&BEgD3xrmh#R{x*UD(UT?<y`H6cadKhnK-JZLrdb^hXfdlVX+AP_ZJp1Op
zZt+u_&F`)H`uEzxjk*sOZ_O^|*1vZ$$K&_I;>8j(-!pFSKD?yc=C|(7`rLbMZc}f{
zA8bAR_vz!;|0dM_+HvHwiVAPf8jd?xru}o(t-klEYac8B^)UaZdPTEt2fe&m?NAW+
zapTlu+{<?Qvqzl`*;E;J=Yp%NdYt^rjg_wRnJ%uJ+2`<0?ENlbH|4j&@>jR9T<y4a
z{6kx`*}d4k38&6&xmKxZ7@zxn{q2bcsqHWSt@qv;xO@8a%Gz+l@@o>6fiWegg&((^
zh+99!v;NLT>6hi^ablB?aOzF5FY+l04dYxT{rcRq-Oq~W?9GzzJYDXgEb!i%_iI@B
z<;mJA%17(;&zptl$!^U4!JT~6a_8@RpCrrQtvSQFB7e;W+qnwab9Vl6{_UQ({J_WO
zuUqzCIlJorqEo7;PggGse{nCfZ&FwJ>9^6ZyZL@t#M*`hef{%m<JZ=g#@vU@*PjXQ
z`W(q^UtIIBQdNo5S6fPGwe~yn*sj_bo0GNAu0FolJ@;GG!R>zgx38I5fAN$aqk;4-
z>%?z=xBcFCR8Ie<TzPhGQ#em9*8}_0W~uAL<SM7B?Ke5G>R!70-JPkvcdV_CO*^*k
zz4+$s?e72H9`gS)Ywx!cw+{T9ID7s2{m(W%`y?~_q;O4Do^4QJLZ)9+^-_gJt>0^A
zdxZrhnif^(?yvoJXUE+6cjg~2w|M{Q#%f#62V3QevUFxt9(xmcOCn*V_knK{>ptrw
z@6>UaGD~((*rDF8?!Ptuu^aB+`<!^T?{-e)Dc1#>&-cw=vgG59n&l6|^-e#neb0XS
zSzG)U5!HTP8Qb>PF}b3_vwyY!)$v|e({Vv9HR9T**4chK(Gx^UlkTnzdeWHm?AEHS
z*H6vg{n<R0haueFe3kE%88c1`Dd}p}1;4ACTloCx*+mD|u>af}$9LlUjj$O%qdESY
ztzPnX=9|(;m-#*AQo6IRnQT9vV<Nk!_S1qZQ<%21Cq50gj?q^)-?#3!(UN5k7rbOU
z`evF)yPSNyVfLR@?yfJN3B26Q`FVb$Wb|L9WqvJ(kH48OCUG(@_+HhSjj!HxPCFIa
z^i=+Pk@<Efv0pvLd9$)?SZBx!?EUiOWOd)~ZI(HDCj+mot&|J@b*_HfNpb7?7d4sJ
z!dIFf35(a=db{MoMcZic&E3Y^cHT6}|6l34FCi;9_@it0*Z1|(Q_Cz95;GS3u=c*T
z=A`y1W6`I_bLIE!c=zG=w-15$k89gKQu5EAx}hvycuo0=PmN*TuDgG%eXDx^ou{YI
zoyjX+EzY_BVe-iz$}`_j>ur2`*<ORk=E=Ute_xg<#})R+N7~yOzxvtn{RU_8^shai
z;|(&8yv?87RdrsgwLR)5^Zfg>Y#lE>xb)e5_cL|b2aQjc=TF(zV}CK`l7Yp;qc4gd
z{uY{dq{9Bm)HRzQo^}=rU(c1a^!vlyPqpqF?5Z#Q`?huF&qC{NcD)~)j{Qt)yX?Jt
zqg;2D-Pb>x>@J$>-^)MT%J$$@vp0W4pxMcT*L17n{a%EgTOX_A>(8D4`{%Kz{nFo;
z?J0k;<|{vM(@MtRRg<;Prd#CAyt!ES^WNY*U*7pFXa7`PR9e1#Ew@<P|BSctzi%ir
zTGh0^-dA~``1Z7CAEww=pPOTG?c7U``PDnBu0LHn@ocI7sdxK+tlaU2^L)~?J&Z?}
zvxooP@#)RK%ifdg_XU@wE?QsUd-R?3V!3r|bc=lVZF{-7Sv<$-u2_#`)ol-({O|+6
z)A!F6-u|C^{f$}Q*UjF)%5I0w(~Es`PrvCur~P*Rr+u~ka&<YguLjQfl+OKE&7;;W
zqsUh0`{mzK(@r#dvS-wnZGNI_p0sQ0$|ZLTUN%pUHT`M(xQ+Ys_w}#NPm-)&RCA>(
zvEkNLCq{=FzSYw$lbr&)MHg&jywJhGHmTk_XQJjQ@3Rdel5G|j=f+N+xbn^J-#_@i
zOUk_v7dh~qm+Qg74gL-Z3Owv=EG$LLe`{+h<?4Liq)SfIy71Ayb?vWhhnyK00ORzZ
AQUCw|
literal 0
HcmV?d00001
diff --git a/DESCRIPTION b/DESCRIPTION
index 64f998a1..4092c831 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -43,6 +43,6 @@ Suggests:
reshape2,
MASS,
qcc,
- multicomp
+ multcomp
VignetteBuilder: knitr
RoxygenNote: 5.0.1
diff --git a/data-raw/SoaresTb4.9.csv b/data-raw/SoaresTb4.9.csv
new file mode 100644
index 00000000..baaaa2f6
--- /dev/null
+++ b/data-raw/SoaresTb4.9.csv
@@ -0,0 +1,5 @@
+teste sem esp
+uts 80 60
+tmg 90 90
+aobp 98 54
+aebp 72 96
diff --git a/man/labestData.Rd b/man/labestData.Rd
index 24932f76..8a8c53af 100644
--- a/man/labestData.Rd
+++ b/man/labestData.Rd
@@ -1,4 +1,4 @@
-% Generated by roxygen2 (4.1.1): do not edit by hand
+% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/labestData.R
\docType{package}
\name{labestData}
--
GitLab
From df79272eb3bd2bdeee839a914c77dd78153fc68d Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 16:27:28 -0300
Subject: [PATCH 3/6] Adiciona tabela 18 ao pacote
---
R/SoaresEx18.R | 40 ++++++++++++++++++++++
data-raw/SoaresEx18.txt | 7 ++++
data/SoaresEx18.rda | Bin 0 -> 256 bytes
man/SoaresEx18.Rd | 74 ++++++++++++++++++++++++++++++++++++++++
4 files changed, 121 insertions(+)
create mode 100644 R/SoaresEx18.R
create mode 100644 data-raw/SoaresEx18.txt
create mode 100644 data/SoaresEx18.rda
create mode 100644 man/SoaresEx18.Rd
diff --git a/R/SoaresEx18.R b/R/SoaresEx18.R
new file mode 100644
index 00000000..427bee64
--- /dev/null
+++ b/R/SoaresEx18.R
@@ -0,0 +1,40 @@
+#' @name SoaresEx18
+#' @title Valores de creatinina fosfocinase (CFC) em 360 pacientes.
+#' @description Em um hospital do coração, foram analisados os valores
+#' de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+#' infarto agudo do miocárdio.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{cfc}}{Indice dos valores de CFC.}
+#'
+#' \item{\code{ia}}{Infarto agudo presente ou não presente.}
+#'
+#' \item{exp}{Variável explicativa com os valores obtidos.}
+#'
+#' }
+#' @keywords AAS
+#' @source Introdução à estatística médica/José Francisco Soares e
+#' Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+#' Ex 18, pg 127.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx18)
+#'
+#' coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+#' barchart(coleta, horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
+#' "80 <= CFC < 280"))),
+#' ylab = "Frequência",
+#' xlab = "CFC",
+#' main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+#' auto.key = list(corner = c(0.75, 0.95),
+#' text = c("não",
+#' 'sim')))
+#'
+#'
+#'
+NULL
diff --git a/data-raw/SoaresEx18.txt b/data-raw/SoaresEx18.txt
new file mode 100644
index 00000000..2259f023
--- /dev/null
+++ b/data-raw/SoaresEx18.txt
@@ -0,0 +1,7 @@
+cfc ia exp
+< 80 sim 15
+< 80 não 114
+80-279 sim 118
+80-279 não 15
+>279 sim 97
+>279 não 1
diff --git a/data/SoaresEx18.rda b/data/SoaresEx18.rda
new file mode 100644
index 0000000000000000000000000000000000000000..aef79019dfe543cb37ac7231c44612988a88775f
GIT binary patch
literal 256
zcmZ>Y%CIzaj8qGb%=a{&&A@Q1{>p!&6ATW_1y9)+BpmeB?;dbq;9%fjU=ZBEa4k(r
zD|6Ybs+n@jGEI2-eSKF>_%eSbv&-d>ipg%x0vDv%9GA@w$kj@fTh_q9*1%xGq;T(=
zm_tgQL&k)bzQ{sWwVABSj6Q1*-%+~ErmxTadHU%G+B^YUm$8IOh+CY!H-n+WWNO%?
zmv&LvhrFX*CW*C}sT>qcSSBoSsLZjWW4+mo4oQZ*OY2v2>aGvieYBrjqV#FO-U&X=
z0TG?@9>v1e%v{sl*psuB&izu;R9~;NN?JPZW6(mYbCZ`DI#kCutM`UKW?~Fb|5&aP
M+{(%JWwPZ40M7Yf&Hw-a
literal 0
HcmV?d00001
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
new file mode 100644
index 00000000..4526c8ac
--- /dev/null
+++ b/man/SoaresEx18.Rd
@@ -0,0 +1,74 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx18.R, R/SoaresTb4.9.R
+\name{SoaresEx18}
+\alias{SoaresEx18}
+\title{Valores de creatinina fosfocinase (CFC) em 360 pacientes.}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis.
+
+\describe{
+
+\item{\code{cfc}}{Indice dos valores de CFC.}
+
+\item{\code{ia}}{Infarto agudo presente ou não presente.}
+
+\item{exp}{Variável explicativa com os valores obtidos.}
+
+}}
+\source{
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex 18, pg 127.
+
+Introdução à estatística médica/José Francisco Soares e
+ Arminda lucia Siqueira. 2.ed. Belo Horizonte: COOPMED, 2002.
+ Ex 18, pg 127.
+}
+\description{
+Em um hospital do coração, foram analisados os valores
+ de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+ infarto agudo do miocárdio.
+
+Em um hospital do coração, foram analisados os valores
+ de CFC (crestinina fosfocinase) de 360 pacientes, sendo 230 com
+ infarto agudo do miocárdio.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx18)
+
+coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+barchart(coleta, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("CFC < 80","CFC >= 280",
+ "80 <= CFC < 280"))),
+ ylab = "Frequência",
+ xlab = "CFC",
+ main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+ auto.key = list(corner = c(0.75, 0.95),
+ text = c("não",
+ 'sim')))
+
+
+
+
+library(lattice)
+data(SoaresEx18)
+
+coleta <- xtabs(exp ~ cfc + ia, data = SoaresEx18)
+barchart(coleta, horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("CFC >= 280","CFC < 80",
+ "80 <= CFC < 280"))),
+ ylab = "Frequência",
+ xlab = "CFC",
+ main = "Valores de creatinina fosfocinase (CFC) em 360 pacientes",
+ auto.key = list(corner = c(0.75, 0.95),
+ text = c("não",
+ 'sim')))
+
+
+
+}
+\keyword{AAS}
+
--
GitLab
From 23d8357dca3d01b7e575e553023118c53475f15c Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Mon, 12 Sep 2016 16:29:55 -0300
Subject: [PATCH 4/6] Deletar data-raw
---
data-raw/SoaresTb4.9.csv | 5 -----
1 file changed, 5 deletions(-)
delete mode 100644 data-raw/SoaresTb4.9.csv
diff --git a/data-raw/SoaresTb4.9.csv b/data-raw/SoaresTb4.9.csv
deleted file mode 100644
index baaaa2f6..00000000
--- a/data-raw/SoaresTb4.9.csv
+++ /dev/null
@@ -1,5 +0,0 @@
-teste sem esp
-uts 80 60
-tmg 90 90
-aobp 98 54
-aebp 72 96
--
GitLab
From f6647d1f772f133005dfd78c96a1aaac7a1ba04e Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Sat, 22 Oct 2016 13:18:47 -0200
Subject: [PATCH 5/6] Correcoes na documentacao.
---
R/SoaresEx18.R | 53 +++++++++++++++------------
R/SoaresEx19.R | 52 +++++++++++++-------------
data-raw/SoaresEx18.txt | 14 +++----
data-raw/SoaresEx19.txt | 2 +-
data/SoaresEx18.rda | Bin 256 -> 260 bytes
data/SoaresEx19.rda | Bin 217 -> 219 bytes
man/SoaresEx18.Rd | 79 +++++++++++++++-------------------------
man/SoaresEx19.Rd | 48 ++++++++++++------------
8 files changed, 118 insertions(+), 130 deletions(-)
diff --git a/R/SoaresEx18.R b/R/SoaresEx18.R
index 427bee64..2a1e4800 100644
--- a/R/SoaresEx18.R
+++ b/R/SoaresEx18.R
@@ -1,40 +1,45 @@
#' @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.
+#' @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. Os dados estão agregados com as
+#' frequências em cada classe.
+#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{cfc}}{Indice dos valores de CFC.}
+#' \item{\code{cfc}}{Índice dos valores de CFC.}
#'
#' \item{\code{ia}}{Infarto agudo presente ou não presente.}
#'
-#' \item{exp}{Variável explicativa com os valores obtidos.}
+#' \item{\code{freq}}{Número de pacientes em cada classe.}
#'
#' }
#' @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.
+#' @source SOARES; SIQUEIRA (2002), página TODO, exercício 18.
#' @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')))
-#'
-#'
+#' data(SoaresEx18)
+#' str(SoaresEx18)
+#'
+#' coletac <- xtabs(freq ~ cfc + ia, data = SoaresEx18)
+#' addmargins(coletac)
+#'
+#' barchart(coletac,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("CFC < 80",
+#' "80 <= CFC < 279",
+#' "CFC >= 279"))),
+#' ylab = "Frequência",
+#' xlab = "CFC",
+#' auto.key = list(title = "Infato do miocardio",
+#' cex.title = 1.1,
+#' columns = 2,
+#' text = c("não", "sim")))
+#'
+#' mosaicplot(coletac)
#'
NULL
diff --git a/R/SoaresEx19.R b/R/SoaresEx19.R
index a32c9f7d..e0504763 100644
--- a/R/SoaresEx19.R
+++ b/R/SoaresEx19.R
@@ -1,19 +1,19 @@
#' @name SoaresEx19
-#' @title Eficácia do exame clínico neurológico
+#' @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
+#' 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
+#' 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
+#' 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.
+#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
@@ -21,29 +21,31 @@
#'
#' \item{\code{ex}}{Exame neurológico alterado ou normal.}
#'
-#' \item{ef}{Eficiência do exame.}
+#' \item{\code{freq}}{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.
+#' @source SOARES; SIQUEIRA (2002), pág. 128, exercício 19. TODO citar
+#' Tavares (1995), colocar a referência completa.
#' @examples
#'
#' library(lattice)
+#'
#' data(SoaresEx19)
+#' str(SoaresEx19)
+#'
+#' a <- xtabs(freq ~ hpiv + ex, data = SoaresEx19)
+#' addmargins(a)
+#'
+#' mosaicplot(a)
#'
-#' 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')))
-#'
-#'
+#' barchart(a,
+#' horizontal = FALSE,
+#' stack = FALSE,
+#' scales = list(x = list(labels = c("Ausente", "Presente"))),
+#' ylab = "Frequência",
+#' xlab = "HPIV",
+#' auto.key = list(text = c("Exame Neurológico Alterado",
+#' "Exame Neurológico Normal")))
#'
NULL
diff --git a/data-raw/SoaresEx18.txt b/data-raw/SoaresEx18.txt
index 2259f023..916a9e48 100644
--- a/data-raw/SoaresEx18.txt
+++ b/data-raw/SoaresEx18.txt
@@ -1,7 +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
+cfc ia freq
+<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-raw/SoaresEx19.txt b/data-raw/SoaresEx19.txt
index 93ab5f99..72ce6054 100644
--- a/data-raw/SoaresEx19.txt
+++ b/data-raw/SoaresEx19.txt
@@ -1,4 +1,4 @@
-hpiv ex ef
+hpiv ex freq
p a 25
p n 13
a a 31
diff --git a/data/SoaresEx18.rda b/data/SoaresEx18.rda
index aef79019dfe543cb37ac7231c44612988a88775f..2e0ce427b3762bd6ef7cf0aa6ad05ae440010161 100644
GIT binary patch
literal 260
zcmZ>Y%CIzaj8qGboI82GB?H6p`YZp9PB1vA7CdKTknqq~-+RD;frEjAfkAKs!?iRi
zPq~G!s{DhmTsU%Z!G)WGTY2q+*t#l~<SH0RNii5StF^IoEniaA?7(nw0Rsc$7tWK9
zj_~w`Oq6*ME<K;eUy@B(&A>J~#$2;m^4xQF`EnuGw60J7tctVV>Wd`a{vzbm%%sCt
zX!CfU#)T_EJS%dXSr%Q=P+T@+l|i$kV1;`Kk0T3{m8th{1)KM8CDwk}kh$&js>d0h
ze*Tkvv{_Vgd2l9AiMW8%0{QB>W+rzxJEkRVI23TySL2qrRkVt8Fh>hF>n^?9zZv*=
P8ui7CTrC17fP4)A_h4k~
literal 256
zcmZ>Y%CIzaj8qGb%=a{&&A@Q1{>p!&6ATW_1y9)+BpmeB?;dbq;9%fjU=ZBEa4k(r
zD|6Ybs+n@jGEI2-eSKF>_%eSbv&-d>ipg%x0vDv%9GA@w$kj@fTh_q9*1%xGq;T(=
zm_tgQL&k)bzQ{sWwVABSj6Q1*-%+~ErmxTadHU%G+B^YUm$8IOh+CY!H-n+WWNO%?
zmv&LvhrFX*CW*C}sT>qcSSBoSsLZjWW4+mo4oQZ*OY2v2>aGvieYBrjqV#FO-U&X=
z0TG?@9>v1e%v{sl*psuB&izu;R9~;NN?JPZW6(mYbCZ`DI#kCutM`UKW?~Fb|5&aP
M+{(%JWwPZ40M7Yf&Hw-a
diff --git a/data/SoaresEx19.rda b/data/SoaresEx19.rda
index ccbd78e3e2e67ea7319057f55eb6b8c2e94b8a5e..ecb714888ee9edeffde560c163038ccea33597a6 100644
GIT binary patch
literal 219
zcmZ>Y%CIzaj8qGb)Yu)%!N9QL|AGHT9tsVN1`2Ep5)S(5e-Ah?FtBc5*wGZ~^JTHA
z$z|sYrY4z-otdu~E^Bt+nZ>N^%i}Ad67r?v5Ca2)39s7Zwh)u|Ef>{&o_q}#)=E)6
z{>I!{GWJc`o%eSqGMzYaaFxsSwUxiTs%sB4`dw6Gwvx}=)S%&+=4l{es5#+QLR^Z;
zgx%JX%#0gXU3pmgb=T!5haTBAmY)CIDf+ghN$Z2*hV5=uPj_A{zEl+Z>)4~_KA-vw
bH({=c2R1)1h*RR+uzQl`p_WG1TQ3{{hm~Ol
literal 217
zcmZ>Y%CIzaj8qGb+}5D<gMneg{{#PxJQNxj4HVcIBpme9?;dbqU|`+Auq|P#^F=jb
zUulh$iyapZzT)-eNMT@LV8~DjwfAUTaDmO?vcm~kl_tI>Lk;GID%+YJuTLn}Rb#GS
zn8YDadE#fH=9G?*O~&~XRX?|#RyE(9$gnJFGUGJ)eHSf+JF`6vL=1H}a!n*6c|5{)
zNis8T3Z1EZSn6)!r-@nG6}vOP9(jH5MCX$9{%3KuS;sy$-m%R3)b{4_nw{rU19>z>
YRa)bhF?MvQJ$mP{oJ&aT0!ust0HwHBRR910
diff --git a/man/SoaresEx18.Rd b/man/SoaresEx18.Rd
index 4526c8ac..aff7516a 100644
--- a/man/SoaresEx18.Rd
+++ b/man/SoaresEx18.Rd
@@ -1,73 +1,52 @@
% 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.}
-\format{Um \code{data.frame} com 6 observações e 3 variáveis.
+\title{Valores de Creatinina Fosfocinase (CFC) em 360 Pacientes}
+\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
\describe{
-\item{\code{cfc}}{Indice dos valores de CFC.}
+\item{\code{cfc}}{Índice dos valores de CFC.}
\item{\code{ia}}{Infarto agudo presente ou não presente.}
-\item{exp}{Variável explicativa com os valores obtidos.}
+\item{\code{freq}}{Número de pacientes em cada classe.}
}}
\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.
+SOARES; SIQUEIRA (2002), página TODO, exercício 18.
}
\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.
+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. Os dados estão agregados com as
+ frequências em cada classe.
}
\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')))
-
-
+str(SoaresEx18)
+
+coletac <- xtabs(freq ~ cfc + ia, data = SoaresEx18)
+addmargins(coletac)
+
+barchart(coletac,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("CFC < 80",
+ "80 <= CFC < 279",
+ "CFC >= 279"))),
+ ylab = "Frequência",
+ xlab = "CFC",
+ auto.key = list(title = "Infato do miocardio",
+ cex.title = 1.1,
+ columns = 2,
+ text = c("não", "sim")))
+
+mosaicplot(coletac)
}
\keyword{AAS}
diff --git a/man/SoaresEx19.Rd b/man/SoaresEx19.Rd
index 2d068d7f..03a08004 100644
--- a/man/SoaresEx19.Rd
+++ b/man/SoaresEx19.Rd
@@ -2,8 +2,8 @@
% 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.
+\title{Eficácia do Exame Clínico Neurológico}
+\format{Um \code{data.frame} com 4 observações e 3 variáveis, em que
\describe{
@@ -11,46 +11,48 @@
\item{\code{ex}}{Exame neurológico alterado ou normal.}
-\item{ef}{Eficiência do exame.}
+\item{\code{freq}}{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.
+SOARES; SIQUEIRA (2002), pág. 128, exercício 19. TODO citar
+ Tavares (1995), colocar a referência completa.
}
\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
+ 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
+ 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
+ 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)
+str(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')))
+a <- xtabs(freq ~ hpiv + ex, data = SoaresEx19)
+addmargins(a)
+mosaicplot(a)
+barchart(a,
+ horizontal = FALSE,
+ stack = FALSE,
+ scales = list(x = list(labels = c("Ausente", "Presente"))),
+ ylab = "Frequência",
+ xlab = "HPIV",
+ auto.key = list(text = c("Exame Neurológico Alterado",
+ "Exame Neurológico Normal")))
}
\keyword{AAS}
--
GitLab
From 79f0021fc6da2fe7a29be5f811ace500f45c65a0 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Tue, 25 Oct 2016 19:37:25 -0200
Subject: [PATCH 6/6] Adiciona correcoes feitas
---
R/SoaresEx18.R | 4 ++--
R/SoaresEx19.R | 10 +++++++---
2 files changed, 9 insertions(+), 5 deletions(-)
diff --git a/R/SoaresEx18.R b/R/SoaresEx18.R
index 2a1e4800..34830828 100644
--- a/R/SoaresEx18.R
+++ b/R/SoaresEx18.R
@@ -15,8 +15,8 @@
#' \item{\code{freq}}{Número de pacientes em cada classe.}
#'
#' }
-#' @keywords AAS
-#' @source SOARES; SIQUEIRA (2002), página TODO, exercício 18.
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), página 126, exercício 18.
#' @examples
#'
#' library(lattice)
diff --git a/R/SoaresEx19.R b/R/SoaresEx19.R
index e0504763..c8a6f054 100644
--- a/R/SoaresEx19.R
+++ b/R/SoaresEx19.R
@@ -24,9 +24,13 @@
#' \item{\code{freq}}{Eficiência do exame.}
#'
#' }
-#' @keywords AAS
-#' @source SOARES; SIQUEIRA (2002), pág. 128, exercício 19. TODO citar
-#' Tavares (1995), colocar a referência completa.
+#' @keywords TC
+#' @source SOARES; SIQUEIRA (2002), página 127, exercício 19.
+#' @references TAVARES, E. C. Estudo ultra-sonográfico e clínico
+#' neurológico das hemorragias peri-intraventriculares em
+#' recém-nascidos com peso do nascimento menor do que 200 g. Belo
+#' Horizonte: Faculdade de Medicina da UFMG, 1995. (Dissertação,
+#' Mestrado em Pediatria).
#' @examples
#'
#' library(lattice)
--
GitLab