From 47f264a70916f222c5439e58dbf56463474f5111 Mon Sep 17 00:00:00 2001
From: Vinicius <vinicius.cesar.pedroso@gmail.com>
Date: Fri, 16 Sep 2016 18:47:46 -0300
Subject: [PATCH] Adiciona tabela 7.2 capitulo 7

---
 R/SoaresTb7.2.R          |  58 ++++++++++++++++++++++++++++++++++
 data-raw/SoaresTb7.2.txt |  11 +++++++
 data/SoaresTb7.2.rda     | Bin 0 -> 183 bytes
 man/SoaresTb7.2.Rd       |  66 +++++++++++++++++++++++++++++++++++++++
 4 files changed, 135 insertions(+)
 create mode 100644 R/SoaresTb7.2.R
 create mode 100644 data-raw/SoaresTb7.2.txt
 create mode 100644 data/SoaresTb7.2.rda
 create mode 100644 man/SoaresTb7.2.Rd

diff --git a/R/SoaresTb7.2.R b/R/SoaresTb7.2.R
new file mode 100644
index 00000000..6d56caab
--- /dev/null
+++ b/R/SoaresTb7.2.R
@@ -0,0 +1,58 @@
+#' @name SoaresTb7.2
+#' @title Pressão ocular de pacientes em uso de placebo e timolol.
+#' @description Em estudo realizado no Hospital São Geraldo da UFMG,
+#'     Cronemberger e Calixto (1992) estudaram a capacidade de redução 
+#'     da pressão intraocular das drogas timolol, betaxolol e 
+#'     levobunolol. Para isto, medicaram 10 pacientes com as três 
+#'     drogas e compararam os resultados com aqueles obtidos quando os 
+#'     pacientes receberam um placebo. As medidas da pressão 
+#'     intraocular, expressas em mmHg, obtida às 6 horas da manhã com os
+#'     pacientes usando timolol e placebo referem-se aos dados.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis.
+#'
+#' \describe{
+#'
+#' \item{\code{placebo}}{Variável utlizada no estudo.}
+#'
+#' \item{\code{timolol}}{Fármaco usado no estudo.}
+#'
+#' }
+#' @keywords AAS
+#' @source SOARES; SIQUEIRA, (2002), Tb.7.2, pg.242.
+#' @references CRONEMBERGER, F., CALIXTO, N., SOARES, J. F. Estudo 
+#'     comparativo do efeito do timolol, betaxolol e levobunolol sobre a 
+#'     curva diária de pacientes glaucomatosos. Arquivos Brasileiros de 
+#'     Oftamologia, v.55, p.233-7, 1992.
+#' @examples
+#' 
+#' library(lattice)
+#' data(SoaresTb7.2)
+#' 
+#' par(mfrow = c(1, 2))
+#' hist(SoaresTb7.2$placebo,
+#'      labels = TRUE,
+#'      main = paste(''),
+#'      col = "darkolivegreen1",
+#'      ylab = "Frequência",
+#'      xlab = "Pressão ocular de pacientes em uso de placebo")
+#'      
+#' rug(SoaresTb7.2$placebo)
+#' 
+#' hist(SoaresTb7.2$timolol,
+#'      labels = TRUE,
+#'      col = "darkolivegreen1",
+#'      main = paste(''),
+#'      ylab = "Frequência",
+#'      xlab = "Pressão ocular de pacientes em uso de timolol")
+#'      
+#' rug(SoaresTb7.2$timolol)
+#' title("Pressão ocular de pacientes em uso de placebo e timolol", 
+#'     outer = TRUE)
+#'      
+#'
+#' 
+#' 
+#' 
+NULL
+
+
diff --git a/data-raw/SoaresTb7.2.txt b/data-raw/SoaresTb7.2.txt
new file mode 100644
index 00000000..a1feb903
--- /dev/null
+++ b/data-raw/SoaresTb7.2.txt
@@ -0,0 +1,11 @@
+placebo	timolol
+22	18
+25	20
+23	20
+18	17
+24	16
+24	20
+17	20
+23	20
+22	20
+23	24
diff --git a/data/SoaresTb7.2.rda b/data/SoaresTb7.2.rda
new file mode 100644
index 0000000000000000000000000000000000000000..98463b4bbf52a19d1e53b29d3935c98d3db29247
GIT binary patch
literal 183
zcmZ>Y%CIzaj8qGblopBm%)n4xf8gJ)+6N4b0u3w-G7k3YcN!cR7#SBZbny!ME}OBe
zcTvU#DO+b>{;WooAYOxJXCDq;UdAr<xp^^~m8{H?M^{O$*?J}>Zc$u!UUsyvuuCUn
zTWI+SmCjpfg@1Q7a0#U_9-Q#t#A)UQu@Qw0-bPB#RgTRU>d%W&nZD%c>+kafPk#Q9
p_&u}9FjUC!w)#4OS=Mi-&xlyGr@n-Z|Htl0nul5%ZY=sf0{{z)OV|Ja

literal 0
HcmV?d00001

diff --git a/man/SoaresTb7.2.Rd b/man/SoaresTb7.2.Rd
new file mode 100644
index 00000000..284e5abf
--- /dev/null
+++ b/man/SoaresTb7.2.Rd
@@ -0,0 +1,66 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/SoaresTb7.2.R
+\name{SoaresTb7.2}
+\alias{SoaresTb7.2}
+\title{Pressão ocular de pacientes em uso de placebo e timolol.}
+\format{Um \code{data.frame} com 10 observações e 2 variáveis.
+
+\describe{
+
+\item{\code{placebo}}{Variável utlizada no estudo.}
+
+\item{\code{timolol}}{Fármaco usado no estudo.}
+
+}}
+\source{
+SOARES; SIQUEIRA, (2002), Tb.7.2, pg.242.
+}
+\description{
+Em estudo realizado no Hospital São Geraldo da UFMG,
+    Cronemberger e Calixto (1992) estudaram a capacidade de redução 
+    da pressão intraocular das drogas timolol, betaxolol e 
+    levobunolol. Para isto, medicaram 10 pacientes com as três 
+    drogas e compararam os resultados com aqueles obtidos quando os 
+    pacientes receberam um placebo. As medidas da pressão 
+    intraocular, expressas em mmHg, obtida às 6 horas da manhã com os
+    pacientes usando timolol e placebo referem-se aos dados.
+}
+\examples{
+
+library(lattice)
+data(SoaresTb7.2)
+
+par(mfrow = c(1, 2))
+hist(SoaresTb7.2$placebo,
+     labels = TRUE,
+     main = paste(''),
+     col = "darkolivegreen1",
+     ylab = "Frequência",
+     xlab = "Pressão ocular de pacientes em uso de placebo")
+     
+rug(SoaresTb7.2$placebo)
+
+hist(SoaresTb7.2$timolol,
+     labels = TRUE,
+     col = "darkolivegreen1",
+     main = paste(''),
+     ylab = "Frequência",
+     xlab = "Pressão ocular de pacientes em uso de timolol")
+     
+rug(SoaresTb7.2$timolol)
+title("Pressão ocular de pacientes em uso de placebo e timolol", 
+    outer = TRUE)
+     
+
+
+
+
+}
+\references{
+CRONEMBERGER, F., CALIXTO, N., SOARES, J. F. Estudo 
+    comparativo do efeito do timolol, betaxolol e levobunolol sobre a 
+    curva diária de pacientes glaucomatosos. Arquivos Brasileiros de 
+    Oftamologia, v.55, p.233-7, 1992.
+}
+\keyword{AAS}
+
-- 
GitLab