From c283e00bd0fa1101264e9c7df69a8c443582c0d3 Mon Sep 17 00:00:00 2001
From: Lineu <lialcafre@gmail.com>
Date: Sun, 4 Sep 2016 12:06:47 -0300
Subject: [PATCH] Adiciona Tabela 2A.3

---
 R/NetoTb2A.3.R          |  36 ++++++++++++++++++++++++++++++++
 data-raw/NetoTb2A.3.txt |  22 ++++++++++++++++++++
 data/NetoTb2A.3.rda     | Bin 0 -> 541 bytes
 man/NetoTb2A.3.Rd       |  44 ++++++++++++++++++++++++++++++++++++++++
 4 files changed, 102 insertions(+)
 create mode 100644 R/NetoTb2A.3.R
 create mode 100644 data-raw/NetoTb2A.3.txt
 create mode 100644 data/NetoTb2A.3.rda
 create mode 100644 man/NetoTb2A.3.Rd

diff --git a/R/NetoTb2A.3.R b/R/NetoTb2A.3.R
new file mode 100644
index 00000000..2bbd899a
--- /dev/null
+++ b/R/NetoTb2A.3.R
@@ -0,0 +1,36 @@
+#' @name NetoTb2A.3
+#' @title Bioequivalencia de medicamentos
+#' @description à 21 voluntários foram ministrados dois medicamentos
+#'    distintos e observou-se a concentração do princípio ativo no 
+#'    sangue dos indivíduos no período de 8 horas.
+#' @format Um \code{data.frame} com 21 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{vol}}{Número do voluntário.}
+#'
+#' \item{\code{A}}{Resultados da aplicação do medicamento A.}
+#'
+#' \item{\code{B}}{Resultados da aplicação do medicamento B.}
+#'
+#' }
+#' @keywords DBC
+#' @source Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+#' @examples
+#'
+#' data(NetoTb2A.3)
+#' str(NetoTb2A.3)
+#'
+#' par(mfrow = 1:2)
+#'
+#' plot(A ~ vol, type = "o", xlab = "Voluntário",
+#'      ylab = "Área sob a Curva",
+#'      main = "Medicamento A",
+#'      col = "blue", data = NetoTb2A.3)
+#'
+#' plot(B ~ vol, type = "o", xlab = "Voluntário",
+#'      ylab = "Área sob a Curva",
+#'      main = "Medicamento B",
+#'      col = "red", data = NetoTb2A.3)
+#'
+NULL
\ No newline at end of file
diff --git a/data-raw/NetoTb2A.3.txt b/data-raw/NetoTb2A.3.txt
new file mode 100644
index 00000000..630d4e72
--- /dev/null
+++ b/data-raw/NetoTb2A.3.txt
@@ -0,0 +1,22 @@
+vol	A	B
+1	12.761	10.983
+2	10.241	8.211
+3	8.569	9.105
+4	13.321	12.508
+5	11.481	12.114
+6	14.061	11.520
+7	12.287	11.983
+8	14.696	14.454
+9	12.526	11.246
+10	9.060	10.740
+11	12.329	10.879
+12	13.244	13.818
+13	7.864	7.156
+14	9.684	12.297
+15	11.811	12.279
+16	10.109	9.571
+17	10.966	9.895
+18	10.485	15.579
+19	11.899	9.296
+20	13.200	16.163
+21	12.368	11.838
diff --git a/data/NetoTb2A.3.rda b/data/NetoTb2A.3.rda
new file mode 100644
index 0000000000000000000000000000000000000000..b1020d9124f61b4a0fb2240802552435ec8247d0
GIT binary patch
literal 541
zcmZ>Y%CIzaj8qGb+_C)EJO+ka|3TpB|Np;seOtXZv_Aaqey_zlj_!Hx8X6iKuwv2c
zoi8^qh8eIe2{7VuYjbvMU|=v|xWG1(fvw>J1Dmg{Ly8o`#mS0`GiLa5tdh!g%QUK*
z;VYH7aGB#|HOI-yiVHhim>m*&W;81pnJ`?)xL{(GA;s9{<z&JD0vU`8KokSB1DImq
z?qiS$kn>pZ=@5ql$2o>2D>%<Ja0P25sk~y-QV?6Hm#~t{^25}>^SwA@8mqaUx(LYy
zuum}y*7N2F<EUm8P+(c*6vD`p+SHiE+QA_5aTU|)RZI<CQ(~`(#I?6_U9sk1E8<CO
zWjn=qExJ{;Lq|1jN|@Ox#v7AfBu$tlqSnZ<)!C&rLxZ#D?+(Q{rqHeu4&{7F%{+;C
z@!Yp<jGYokPpwN1)R{KZYFk^_y~A^gj?X?R^gR8Viqj{RZwtQ`m7cVipufxiP}Jpr
zeRf9ox;mygtA2{94wH1Z5H@ykd~oH}qr>y=U2}}Qw>S67F*Tizv=c`YEv|%{DLG3@
zw|S&+>=E3+KK+4J{^K2q?v2sce*HIm_p4{|&M6wDtGHzN9JVjX+9ss^-?6q?J&gN9
zKf8H3f5(L^!C8v;=CD|u>tWB|>+C7CDv2v*i|>mYf-BaBJefG})!DokQXlN)Q%t{q
opBuxT_)u^^{{w@m)?A%`mw#yd!r!$2=$(mvA}V^C|CToZ0JYZR3jhEB

literal 0
HcmV?d00001

diff --git a/man/NetoTb2A.3.Rd b/man/NetoTb2A.3.Rd
new file mode 100644
index 00000000..809f31ba
--- /dev/null
+++ b/man/NetoTb2A.3.Rd
@@ -0,0 +1,44 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/NetoTb2A.3.R
+\name{NetoTb2A.3}
+\alias{NetoTb2A.3}
+\title{Bioequivalencia de medicamentos}
+\format{Um \code{data.frame} com 21 observações e 3 variáveis, em que
+
+\describe{
+
+\item{\code{vol}}{Número do voluntário.}
+
+\item{\code{A}}{Resultados da aplicação do medicamento A.}
+
+\item{\code{B}}{Resultados da aplicação do medicamento B.}
+
+}}
+\source{
+Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+}
+\description{
+à 21 voluntários foram ministrados dois medicamentos
+   distintos e observou-se a concentração do princípio ativo no 
+   sangue dos indivíduos no período de 8 horas.
+}
+\examples{
+
+data(NetoTb2A.3)
+str(NetoTb2A.3)
+
+par(mfrow = 1:2)
+
+plot(A ~ vol, type = "o", xlab = "Voluntário",
+     ylab = "Área sob a Curva",
+     main = "Medicamento A",
+     col = "blue", data = NetoTb2A.3)
+
+plot(B ~ vol, type = "o", xlab = "Voluntário",
+     ylab = "Área sob a Curva",
+     main = "Medicamento B",
+     col = "red", data = NetoTb2A.3)
+
+}
+\keyword{DBC}
+
-- 
GitLab