diff --git a/R/NetoTb2A.3.R b/R/NetoTb2A.3.R new file mode 100644 index 0000000000000000000000000000000000000000..2bbd899a973da4d5ac27f4a8c8f0455c14e3b447 --- /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 0000000000000000000000000000000000000000..630d4e726092e7042947baf6183feda8ed36c6ed --- /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 Binary files /dev/null and b/data/NetoTb2A.3.rda differ diff --git a/man/NetoTb2A.3.Rd b/man/NetoTb2A.3.Rd new file mode 100644 index 0000000000000000000000000000000000000000..809f31bad58884eed836c90fcf24f1144e8e2e3e --- /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} +