From 4619a1456530b73aa51662b18274fe06ad5da689 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Fri, 16 Sep 2016 15:42:22 -0300
Subject: [PATCH] Adiciona tabela exercicio 6 capitulo 7
---
.RData | Bin 0 -> 3480 bytes
R/SoaresEx7.6.R | 39 +++++++++++++++++++++
data-raw/SoaresEx7.6.txt | 71 +++++++++++++++++++++++++++++++++++++++
data/SoaresEx7.6.rda | Bin 0 -> 314 bytes
man/SoaresEx7.6.Rd | 49 +++++++++++++++++++++++++++
5 files changed, 159 insertions(+)
create mode 100644 .RData
create mode 100644 R/SoaresEx7.6.R
create mode 100644 data-raw/SoaresEx7.6.txt
create mode 100644 data/SoaresEx7.6.rda
create mode 100644 man/SoaresEx7.6.Rd
diff --git a/.RData b/.RData
new file mode 100644
index 0000000000000000000000000000000000000000..81b3bbb4725897a4644151ef427f5019bad3e824
GIT binary patch
literal 3480
zcmb2|=3oE==Ccu;7FVLB<&Bd)lhwVGas;KKMLe4~P8FDB%9ea-?pnhqQSD+kxfc35
zb#D!FF<InsC1K6VkR4qChArBk&Kf*!tDaxI|GC}y?={aW@BN%>`Tu_9`JeMYS3j@3
zztP<y`?J+&CI$ut29`$*430f|5+{B<U}#``Epg&~gS${5W8b|h1KSzX>=+n?5_^m?
z6ztfX#Ap6L*YN*b*qdqG&0J22OcJ&Sk1qFKe20bS68qEM^xCJYKa~qLm`=*K$C%E&
z%-+nCa6aza%l0pd4?BDA@waWfKg+VW`{nGH6HN6E7#L3T+?XSL`boqx7d9QU2bVOB
zu0<Fvlb35-oBT8R_mlLQ0;i8e{F{+{;jXdwxd%czQxX?)ac|!gFuS#Cbpd;&>N}P-
zM`E8$-BF!sQ&brHZqC!Ml@S_yxNiQQn7;7Qs=sUREmx~leYM8v+rG%((Y3V}Dq=_X
z*$Gq&`0}W1SU-<j^g*-wq8t4jKNy7SPI6{2ZuoSovUZ}1%9;KX1v|55mb&~gl&IEx
zCd)W;cXUL=3s#-16jsSk?td~~{;PN6pYZq9f0MXtbFR*B=P<UJF)6*BIr!3>fP_Ut
z37RPlI(+8c$G4Z<?5<h1Va6u*%@Z_#m#%rA<n6vwrfD`qeGAWr<+U67J7x3cG}t?R
ze?B4l{GN65YdCcFKixm;yp5s3?;|%>u`KLlDVx5~Gi*BZc9-Wd3~K_f-R~~x{dR5h
z*6p&(wtH1Q*ediZShL`l0`mvPoQJ<36sjo69Txd_|8+v8>;wPT1%HlODacIHH4kX8
z|0e&s=i&V3g<c0_+3eCD9Nlm6UUWZ`g37clH9rov)c<1M@GR`vzb9uD4XRbniTAg%
zE(qA?U89hESmybRq(7?Hlje4%|MTN+c8SZ~^k{|eo7g?>Avb%Ob=&XGztfbZ{$}pI
zRrA%%ZcN_Sw_p9iH-Y(8*EqBy^ukt6a$Z!PbIC@;XnL$+-m1yAa?_0~z7@Wbn5yt@
zY3;23{fW~bbtEgl?@!;`7=EQLle5bI<tIaL1?fnR>+fDIQQ)5*kfCO1wxP1HG5k@+
zACKQ@#o;e>BBLUWW47t-)Y_0-B=YH~=<WQS2bZlnWKdRpBY9u>j>E@Q6}IfSP^Bw+
z^1$lIO1)!he)-+GQRjt>`u$Dsi*J)^jJL06?wWS`UVQ17zu$8o`oGod&AIx!;25*i
z%^QDat#&=Eqq#>bVtLB%pJBzlT173>9xS}`p|vLSZq@eb4^Ans57AL5wsFrro!VcJ
zwD9hf+fFAnRTe+*G|Lq_&$7+*?zcHJ9&!eGN9e~M|D3r&?C*hp<qh+<T&(Nc)j6ZM
z(v;t)Pas#_-zj-{^ZfU}=B%rDc7&lZ>_Na(O|vundyGqKm+5?e)D~wsYt<pg&&<cF
zd!<cE7rijsFYOb0p#R2xkCOo$oCZtU&x+QrDKq#pOD+6VY|14avDj?USA~xYuOHkc
z>9_d){W3OrzdbL*c0A2<T^_CFzqPhla_iPCoBfSTJ|u1E$Oz_Ly;<O4r>ED_s*F9k
z#Z&fHS*5Iw`V;*0Z+@!s&XwlI{O%cS{8zWC-`A3uzjbO;8ncny(!6asJ;&Qx+VpR{
zEp(pH9kaCWuBHW})6A7&9`Cb_)OO93sOR(g9xNvGWRszG;Mv<k_8}1`_U`|<IWyGU
zr|3%v^E%PY`W+=n_YR%CeZXw3@@b>jsejK-Sr)#lB!12Qr*i4H*8SGwJjN9KYo>HT
z%gkAvXN`|PUemUD_vJ&A>Vj=Lf{U(A(wXU{_vepny=I-?wc4((&v%@rUHm&~d*`fM
z;(GNAJ$(O-@+;oV7B~95w0gVozTlUMAFqGaYc|*Ck#u{JKVivRPce&CIj_1F-@eY#
z$;TtMH{4G7quL#R|F)K}uSKPs`S(5il(<9c-pm}mrU%Okuiu?3QT;b;#Zqq}KaZa(
z$&zz^yez$b$j!H|{;H*A{_7XBoSD?hqSD?qDHdxsr2J-FzEaKGNKfs<K9#&}-bXe?
z*rvUo829f__l8c%;9n=6ZF--0jH#*St)l3>i;>G^ym-~FZkw#fpMUh*J69F|O4*rq
z;+JlI{9-k4#t*X>VJ@{|a#61@FSR`K@a;1PhwV8}%6Ak!2%kM=@$1=JxA3m>2wbxC
z{Dq)pMZ72NtXC{zZJ!bvBd;!b=2gjMw$=p_%axV~RX&)rA+g@!eXV2gs~r_}`tFDM
zek$H}5#1FdqEff-{)V);R=#&3^3oR4oduP%AMR1tKJ?(u*#{fT`TYYQu&ONzPZIQB
zlpM2{Z_(mIo3!p^KH@9;WWFru^BM(r;cW*eYaTCAyybSD^+D3AJxk9g+3E-{x}>eV
zGoB+(cZb0*4(>vkuUdltGA>Mcs?@)%Z`!*rQ6HAuRVKKE+{}L!*zzYVX@*~y%B-cC
z8B&LZMBcXDE|a*KTVZRtW<rSvyOn#%DSz3Ax+aQu7cx&exU}v2x#KsF+6tVV87jPe
zN|-I{#m*J)Z@Qn})Lz>%>G(1q+3h=D@Wd{CdPXdK{?^|GP0Q@!mbe<(N6efQzTj=D
zc<S5>5d!a0mvX*0-(fN(-B7`Q?Myq%>Hi9U&0CiDM1sjC-rdE^s`}ASr#sGhqTBCX
zUcThMd|A%b`SnenWzFC2*L&<-Yn0GFL+Z_Y{&4Fz+qd4SGIz?#tB;V5Jv5P7q40~9
zXO2(T@j|Z^lk^@s-BvI)l=}EDHLLo5%IuF8XJ4-kSyQSez~Ae1d2y@5W9L{&)x{^;
z<lCAZ@)tS%Q(%lpUK1gex>=cByl&-1-<~wZ)vhnCjOJ*mKNk6WW&a{Ivx@Bx*RJ}t
z<hk_ir)vY_D}LGSZQ)?AO8eqv&QZ^kq5j%bzvJ4c-794Ba||+Gom~1c=fuH)W5L@y
zQ@$@LF)658m~?Ed{g>YF&t4sS(vWNVDImW}=z`>Q&FI&AJDL*OH||}a((=cr{qxn+
z=h*fYm$Br(Wjf6LE#GCW+2eT)UPjfb?=9PQR)4uPX-Y|vPWO}0WwFl{?WeeFocD;x
zb@6le{Z#YJ>|NqsHc8irrF-tYTr%@*wcE;1CGM*x1$X%$=GgM*H^<iZtc$)!io6$Y
zv3GcSB0C_^GvCDZipIowd4F7uZ?o3MuK#qnx!ZE*I(;?iNiN(DiOtvbyV<4`&M@iq
zXK1OPxy;10>CLROKb}}ll-Hg5*w1;^zSx3#{u6oCY2R23c17P0T(dN<Bf0;}oAQG`
zw+>x*C{=Mwn)JQL-7EBF-TD=BOh<ku)~?@ltN6X{Tl3FKx0}`oHeNr}5^`yaw9Xff
z)H>yk&r9Fl^*SY`c)zf4mbu$qjTZt7lCO%!PyVg`AaXnJyx>nM8@E(!Eqedwzz)R+
zx<Xq&r(T_-rZt~$<6n=uf(<*Gr*XUa?*4zE{P4rdpL@>6H2X?f-Hg@0RB~GB<tusK
zhs?=oKeIN^=v_GZ=i)CXKi=ey^OO2J_0X@zVu9JmKIBR+<gmAM-@GGvqTl9}#>>g?
zPwjH%PTy;tw{!IoubGEd@8bUxmG2Y&er83)mbfi%^J4tkxA|9IJK4G--(hKRljxn&
zqou3vC$x*%JU%^vUrXL&Nw>wxn9E15E>L<@viNt;nd1pzLE^<z?;TZNRo(V<)q8yl
zjrfoIeD@x;x6iFUqJP4pr+T6P)SWxhe4@jc7(>^cxgX_w^XKlXJAGTPtIU6I{9R7S
zG(4+y>XhqUXRlwG>YUoCb?2g3e;q?>U$*$N-#ya4`|_91ol-mVT2g4p<psZ2UVOjc
zQ+IK>YViJ(sXSXQt}0pJpL^w+Z?WjxIkzUwxsWtR{cFsU$2y8xk5~I|ZQJp~<L1uN
z{39E-Id6O9o1XVwsAomL5!?48r(2bNe%V$a)zdkTXWAVd1@@EG*VY9bvY)voSGv}(
zsJX)FdCYyEm^*3fWwW~ai~7s0-U)UtIcM$Z(UW^=^{0{*f1`AcdWyL}yCFVXHTR0c
z%jCnYZY&3H+17r%yl2OUF4l;&jiR3-j_y`C@R&vJb*vm$N9>ED`o&9<^nScud?_%`
z^=Q)WTjkLrQ@%0l$hVfs%kEqGd$w+eLBQL~%00Uy?N+G2t~8HWR?78SQ@5+4G)8mV
zX6MK6k~b?_IqkMv@vQp5(U{hAZ(dET7U$ad<kc33|7Dls@25nbUMYTlrj*8!*7~W3
z=l%Qo>2mR(Ca&4lTxa;-+-BUSqp!WSy}jW5)WVYz@)Irgb5^g6d|2vyzn$B8Mj#*O
z$s?1r{bj9>9JlzjQ|(TFqVpoT*SB}gte>{pzVX@8msZmbr|$GAZf>2EGN-GlrM~+~
z>7IuUGtGCFK5bR|(jNKvRn=wjm#01Y{+}p$uammqOwW{=z3UX3Yi4G?4f?mk=w;lp
z4+a`*b_r=5dh};;%ABJ~Q{8sl%FZs%{4ncGov+)TIcJ)#6*PN#<bOLfr^ha>)R*U*
zW0Jv|T^-3!*GzTEv$qkH?r>c9sK`Y}oWoxI+3EVtI-jqEeT-PYG3(Q(*K1CmKX_)%
zyp6rB`zy|^x_-7v^6M|Yu!~2&#*6v>k(gr7$@=y9!a$e$_&=X^F5J+v|JU}1_0g7w
ztAh>hs5hR<@crOCNnG-+(47xT+@)f-jrd<}zwv;p;V9emg?eXiZ|PG1^JLBLQ`@7=
z-mQzRI_GAVzuj-&s%MP3PmKCj)g+&}ap+iR)zhT?F#?lLykgor(SCJ{X-Crc9iA%~
igt(6BecaJJLBdAR?Z@_1xd+GV8Ti-haO#ONFaQ7rsNJOi
literal 0
HcmV?d00001
diff --git a/R/SoaresEx7.6.R b/R/SoaresEx7.6.R
new file mode 100644
index 00000000..16081472
--- /dev/null
+++ b/R/SoaresEx7.6.R
@@ -0,0 +1,39 @@
+#' @name SoaresEx7.6
+#' @title Pressão sanguínea sistólica de 35 indivíduos.
+#' @description 35 pacientes com doença arterial coronariana, de idade
+#' entre 35 e 75 anos, foram submetidos a teste ergométrico (Miller
+#' et al., 1990). Os estudos realizaram-se em bicicleta ergométrica,
+#' com os exercícios continuando até angina ou fadiga que requeresse
+#' a suspensão da atividade. Os dados apresentados referem-se a
+#' pressão sanguíneamsistólica em mmHg dos indivíduos em repouso e
+#' no pico do exercício.
+#' @format Um \code{data.frame} com 70 observações e 2 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{ps}}{Pressão sanguínea sistólica em mmHg dos indivíduos
+#' em repouso e no pico do exercício.}
+#'
+#' \item{\code{exp}}{Variável explicativa com os valores obtidos.}
+#'
+#' }
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA, (2002), Ex.7.6, pg.259.
+#' @references MILLER, P. F., SHEPS, D. S., BRAGDON, E. E. et al.
+#' Aging and pain perception in ischemic heart disease. American
+#' Heart Journal, v.120, p.22-30, 1990.
+#' @examples
+#'
+#' library(lattice)
+#' data(SoaresEx7.6)
+#' SoaresEx7.6$n <- seq(1:35)
+#' xyplot(exp~n|ps, data = SoaresEx7.6,
+#' type = c('g', 'b'),
+#' main = 'Pressão sanguínea sistólica de 35 indivíduos',
+#' xlab = 'Pacientes que participaram do estudo',
+#' ylab = 'Pressão sanguínea em mmHg')
+#'
+#'
+#'
+#'
+NULL
diff --git a/data-raw/SoaresEx7.6.txt b/data-raw/SoaresEx7.6.txt
new file mode 100644
index 00000000..2634aa02
--- /dev/null
+++ b/data-raw/SoaresEx7.6.txt
@@ -0,0 +1,71 @@
+ps exp
+repouso 175
+repouso 140
+repouso 140
+repouso 148
+repouso 154
+repouso 140
+repouso 170
+repouso 158
+repouso 175
+repouso 140
+repouso 154
+repouso 150
+repouso 132
+repouso 178
+repouso 122
+repouso 128
+repouso 160
+repouso 125
+repouso 120
+repouso 150
+repouso 162
+repouso 172
+repouso 178
+repouso 168
+repouso 134
+repouso 154
+repouso 130
+repouso 120
+repouso 160
+repouso 160
+repouso 150
+repouso 170
+repouso 122
+repouso 180
+repouso 140
+exercicio 190
+exercicio 160
+exercicio 225
+exercicio 190
+exercicio 232
+exercicio 170
+exercicio 200
+exercicio 190
+exercicio 185
+exercicio 170
+exercicio 166
+exercicio 174
+exercicio 144
+exercicio 214
+exercicio 154
+exercicio 150
+exercicio 218
+exercicio 172
+exercicio 186
+exercicio 180
+exercicio 194
+exercicio 204
+exercicio 220
+exercicio 220
+exercicio 168
+exercicio 180
+exercicio 220
+exercicio 146
+exercicio 214
+exercicio 160
+exercicio 170
+exercicio 204
+exercicio 162
+exercicio 220
+exercicio 190
diff --git a/data/SoaresEx7.6.rda b/data/SoaresEx7.6.rda
new file mode 100644
index 0000000000000000000000000000000000000000..38052721ffb7e4e92123ead5c904e1a4d652fb51
GIT binary patch
literal 314
zcmZ>Y%CIzaj8qGbth*S}$-tQT|NsA89t;eOf(`5p5)S(6_b-LAgbD_RPB9d4VH8nt
zU|`(9@N3#p$AyMc5)GFf7#Nt{eB~A!rCd=|Yq51-BDZ`6n}Z|+1GA5URECO|5c|qk
zY`szp3@1AmE?l_y3bWgl4gsFIy-QfD)ThjApK+lurPL^S*;|V}RT~~2_2Fo7GHPsW
zS=j5eRp<(nRchoe$At8>$detD&V0<X5L<4Ye~mR#Yolq_Z>cNEm!93(GePNnjr+6M
z|CJjzc)0YeIe2G+(UMjz_bg|JN&618m^9=Bon%m&ui?3<L9oL;%yv;`f%QB2HtA!m
zMQ4OgyjHVXr^YgU(nTG=rU;D%D_{Bkncd@Oy5zEsPk`o$&Mdbb3a2Jc=vlCU@r06+
Wpa6rnfcuZ#lQa*tG=J+_;sF3Rxq>MG
literal 0
HcmV?d00001
diff --git a/man/SoaresEx7.6.Rd b/man/SoaresEx7.6.Rd
new file mode 100644
index 00000000..009457f1
--- /dev/null
+++ b/man/SoaresEx7.6.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresEx7.6.R
+\name{SoaresEx7.6}
+\alias{SoaresEx7.6}
+\title{Pressão sanguínea sistólica de 35 indivíduos.}
+\format{Um \code{data.frame} com 70 observações e 2 variáveis.
+
+\describe{
+
+\item{\code{ps}}{Pressão sanguínea sistólica em mmHg dos indivíduos
+ em repouso e no pico do exercício.}
+
+\item{\code{exp}}{Variável explicativa com os valores obtidos.}
+
+}}
+\source{
+SOARES; SIQUEIRA, (2002), Ex.7.6, pg.259.
+}
+\description{
+35 pacientes com doença arterial coronariana, de idade
+ entre 35 e 75 anos, foram submetidos a teste ergométrico (Miller
+ et al., 1990). Os estudos realizaram-se em bicicleta ergométrica,
+ com os exercícios continuando até angina ou fadiga que requeresse
+ a suspensão da atividade. Os dados apresentados referem-se a
+ pressão sanguíneamsistólica em mmHg dos indivíduos em repouso e
+ no pico do exercício.
+}
+\examples{
+
+library(lattice)
+data(SoaresEx7.6)
+SoaresEx7.6$n <- seq(1:35)
+xyplot(exp~n|ps, data = SoaresEx7.6,
+ type = c('g', 'b'),
+ main = 'Pressão sanguínea sistólica de 35 indivíduos',
+ xlab = 'Pacientes que participaram do estudo',
+ ylab = 'Pressão sanguínea em mmHg')
+
+
+
+
+}
+\references{
+MILLER, P. F., SHEPS, D. S., BRAGDON, E. E. et al.
+ Aging and pain perception in ischemic heart disease. American
+ Heart Journal, v.120, p.22-30, 1990.
+}
+\keyword{AAS}
+
--
GitLab