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