From 990702a6599c62e457df8609f3817bdfe04ee804 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Fri, 18 Nov 2016 15:57:21 -0200
Subject: [PATCH] =?UTF-8?q?Faz=20corre=C3=A7=C3=B5es=20na=20documenta?=
=?UTF-8?q?=C3=A7=C3=A3o=20e=20rda.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/NetoEx3.11.R | 57 +++++++++++++++++--------------------
R/NetoTb2.2.R | 17 ++++++-----
R/NetoTb2.4.R | 49 ++++++++++++++++++++-----------
R/NetoTb2A.1.R | 48 ++++++++++++++++++++-----------
R/NetoTb2A.3.R | 43 +++++++++++++++-------------
R/NetoTb2A.5.R | 32 ++++++++++++---------
R/NetoTb3.3.R | 68 +++++++++++++++++++++-----------------------
R/NetoTb3.6.R | 36 ++++++++++++-----------
data/NetoEx3.11.rda | Bin 346 -> 311 bytes
data/NetoTb2.4.rda | Bin 292 -> 268 bytes
data/NetoTb2A.1.rda | Bin 586 -> 616 bytes
data/NetoTb2A.5.rda | Bin 296 -> 333 bytes
data/NetoTb3.3.rda | Bin 333 -> 247 bytes
data/NetoTb3.6.rda | Bin 245 -> 219 bytes
man/NetoEx3.11.Rd | 51 +++++++++++++++------------------
man/NetoTb2.2.Rd | 15 ++++++----
man/NetoTb2.4.Rd | 45 +++++++++++++++++++----------
man/NetoTb2A.1.Rd | 46 +++++++++++++++++++-----------
man/NetoTb2A.3.Rd | 41 +++++++++++++-------------
man/NetoTb2A.5.Rd | 30 ++++++++++---------
man/NetoTb3.3.Rd | 60 +++++++++++++++++++-------------------
man/NetoTb3.6.Rd | 32 +++++++++++----------
22 files changed, 369 insertions(+), 301 deletions(-)
diff --git a/R/NetoEx3.11.R b/R/NetoEx3.11.R
index ba17b33c..2255a22f 100644
--- a/R/NetoEx3.11.R
+++ b/R/NetoEx3.11.R
@@ -1,48 +1,43 @@
#' @name NetoEx3.11
#' @title Síntese de Polipirrol
#' @description Como exercício num curso de quimioterapia, foram
-#' analisados dados obtidos por um pesquisador numa série de
-#' experimentos de síntese de polipirrol numa matriz de EPDM.
-#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
+#' analisados dados obtidos por um pesquisador numa série de
+#' experimentos de síntese de polipirrol numa matriz de EPDM. O
+#' plano fatorial é um \eqn{2^3} com duas repetições.
+#' @format Um \code{data.frame} com 16 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{i}}{Número do ensaio.}
-#'
#' \item{\code{t}}{Tempo da reação.}
#'
#' \item{\code{C}}{Concentração de oxidante.}
-#'
+#'
#' \item{\code{P}}{Tamanho da partícula.}
#'
+#' \item{\code{rend}}{Rendimento da reação (\%).}
+#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Exercício 3.11, pág. 126.
#' @examples
#'
#' data(NetoEx3.11)
#' str(NetoEx3.11)
#'
-#' par(mfrow=c(1,3))
-#'
-#' attach(NetoEx3.11)
-#'
-#' interaction.plot(t, C, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre Tempo de Reação e
-#' Concentração de Oxidante",
-#' col = "blue")
-#'
-#' interaction.plot(t, P, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre Tempo de Reação e Tamanho da
-#' Partícula",
-#' col = "green")
-#'
-#' interaction.plot(C, P, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre Concentração de Oxidente e
-#' Tamanho da Partícula",
-#' col = "red")
-#'
-NULL
\ No newline at end of file
+#' par(mfrow = c(1,3))
+#' with(NetoEx3.11, {
+#' interaction.plot(t, C, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Tempo de Reação x Conc. de Oxidante",
+#' col = "blue")
+#' interaction.plot(t, P, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Tempo de Reação x Tamanho da Partícula",
+#' col = "green")
+#' interaction.plot(C, P, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Conc. de Oxidente x Tamanho da Partícula",
+#' col = "red")
+#' })
+#'
+NULL
diff --git a/R/NetoTb2.2.R b/R/NetoTb2.2.R
index 412dce35..715d67e2 100644
--- a/R/NetoTb2.2.R
+++ b/R/NetoTb2.2.R
@@ -1,18 +1,21 @@
#' @name NetoTb2.2
#' @title Pesos de Caroços Extraídos de um Pacote de Feijão
-#' @description Pesos individuais de 140 caroços retirados
+#' @description Pesos individuais de 140 caroços retirados
#' aleatoriamente de um pacote contendo 1 kg de feijão preto.
#' @format Um \code{vetor} numérico com 140 observações.
#' @keywords AAS
-#' @source Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+#' @source NETO et al. (2010), Tabela 2.2, pág. 32.
#' @examples
#'
#' data(NetoTb2.2)
#' str(NetoTb2.2)
#'
-#' hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência",
-#' main = "Pesos dos Caroços", col = "grey", prob = TRUE)
-#'
-#' lines(density(NetoTb2.2), lwd = 2)
+#' hist(NetoTb2.2,
+#' xlab = "Peso",
+#' ylab = "Frequência",
+#' main = "Pesos dos Caroços",
+#' col = "grey",
+#' prob = TRUE)
+#' lines(density(NetoTb2.2), lwd = 2)
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/NetoTb2.4.R b/R/NetoTb2.4.R
index a3c88034..03d81d42 100644
--- a/R/NetoTb2.4.R
+++ b/R/NetoTb2.4.R
@@ -1,32 +1,47 @@
#' @name NetoTb2.4
-#' @title Comparação de resultados obtidos por 2 químicos
-#' @description Dois químicos, Arrhenius e Berzelius foram encarregados
-#' de analisar lotes de vinagre de 5 diferentes fabricantes, cada
-#' um obteve 5 diferentes resultados. O experimento contém um único
-#' fator com dois níveis (os químicos) e uma resposta (a
-#' concentração).
-#' @format Um \code{data.frame} com 5 observações e 4 variáveis, em que
+#' @title Comparação de Titulação de Viangre por 2 Químicos
+#' @description Dois químicos, Arrhenius e Berzelius, foram encarregados
+#' de analisar lotes de vinagre de 5 diferentes fabricantes. O
+#' experimento contém um único fator com dois níveis (os químicos) e
+#' uma resposta (o teor de acído acético, em \%). As medidas são
+#' pareadas, ou seja, os dois quimícos avaliam cada um dos vinagres
+#' gerando, para cada vinagre, um par de valores da resposta.
+#' @format Um \code{data.frame} com 5 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{fator}}{Fator de 2 níveis qualitativos.}
+#' \item{\code{Arr}}{Teores de ácido acético determinados pelo Químico
+#' Arrhenius.}
#'
-#' \item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
-#' diferentes fabricantes de vinagre.}
+#' \item{\code{Ber}}{Teores de ácido acético determinados pelo Químico
+#' Berzelius.}
#'
-#' \item{\code{concentração}}{Concentração de vinagre obtida.}
+#' \item{\code{d}}{Diferença de concentação obtida entre os químicos
+#' para a amostra de vinagre do mesmo fabricante.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+#' @keywords pareada
+#' @source NETO et al. (2010), Tabela 2.4, pág. 79.
#' @examples
#'
#' library(lattice)
+#' library(latticeExtra)
#'
#' data(NetoTb2.4)
#' str(NetoTb2.4)
#'
-#' xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
-#' xlab = "Amostra", ylab = "Resposta ")
-#'
-NULL
\ No newline at end of file
+#' dotplot(1:length(d) ~ Arr + Ber,
+#' data = NetoTb2.4,
+#' auto.key = TRUE,
+#' xlab = "Teor de ácido acético (%)",
+#' ylab = "Fabricantes")
+#'
+#' xyplot(Arr ~ Ber,
+#' data = NetoTb2.4,
+#' aspect = "iso",
+#' grid = TRUE,
+#' xlab = "Berzelius",
+#' ylab = "Arrhenius") +
+#' layer(panel.abline(a = 0, b = 1, lty = 2))
+#'
+NULL
diff --git a/R/NetoTb2A.1.R b/R/NetoTb2A.1.R
index a08931cc..c3317919 100644
--- a/R/NetoTb2A.1.R
+++ b/R/NetoTb2A.1.R
@@ -1,35 +1,49 @@
#' @name NetoTb2A.1
-#' @title De casa para o trabalho
+#' @title Tempo de Casa ao Trabalho em 3 Percursos
#' @description Foi cronometrado o tempo transcorrido desde o momento em
#' que o ônibus passa por uma ponte no trajeto até a hora que o
-#' pesquisador chega à seu destino final.
-#' @format Um \code{data.frame} com 32 observações e 5 variáveis, em que
+#' pesquisador chega à seu destino final. Os dados possem registros
+#' do dia da semana e do percurso que foi feito.
+#' @format Um \code{data.frame} com 32 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Número do ensaio.}
+#' \item{\code{sai}}{Variável que indica o horário de saída do
+#' pesquisador rumo ao destino final.}
#'
-#' \item{\code{sai}}{Fator de 25 níveis referentes aos horários de
-#' saída do pesquisador.}
+#' \item{dia}{Fator de 5 níveis referentes aos dias da semana em que o
+#' pesquisador realizou o trajeto.}
#'
-#' \item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
-#' realizou o trajeto.}
-#'
-#' \item{perc}{Fator de e níveis referentes ao percurso realizado.}
-#'
-#' \item{tem}{Tempo de viagem do pesquisador.}
+#' \item{perc}{Fator de 3 níveis referentes ao percurso (trajeto)
+#' realizado.}
+#'
+#' \item{tem}{Tempo até chegar os destino final, em minutos.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+#' @keywords RM
+#' @source NETO et al. (2010), Tabela 2A.1, pág. 86.
#' @examples
#'
#' data(NetoTb2A.1)
#' str(NetoTb2A.1)
#'
-#' plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
-#' xlab = "Ensaio", ylab = "Tempo",
-#' main = "Tempo de Viagem")
+#' library(lattice)
+#'
+#' NetoTb2A.1$hora <- as.POSIXct(NetoTb2A.1$sai, format = "%H:%M")
+#' NetoTb2A.1$hora <- as.numeric(difftime(NetoTb2A.1$hora,
+#' min(NetoTb2A.1$hora),
+#' units = "mins"))
+#'
+#' addmargins(xtabs(~dia + perc, data = NetoTb2A.1))
#'
+#' xyplot(tem ~ hora | perc,
+#' type = "p",
+#' groups = dia,
+#' auto.key = TRUE,
+#' par.settings = list(superpose.symbol = list(pch = 19)),
+#' data = NetoTb2A.1,
+#' xlab = "Ensaio",
+#' ylab = "Tempo",
+#' main = "Tempo de Viagem")
#'
NULL
diff --git a/R/NetoTb2A.3.R b/R/NetoTb2A.3.R
index 2bbd899a..c01352a2 100644
--- a/R/NetoTb2A.3.R
+++ b/R/NetoTb2A.3.R
@@ -1,36 +1,39 @@
#' @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.
+#' @title Bioequivalencia de Medicamentos Genéricos e de Marca
+#' @description Foram ministrados dois medicamentos distintos, um
+#' genérico e um de marca, em 21 voluntários e observou-se a área
+#' abaixo da curva de concentração do princípio ativo no sangue, em
+#' função do tempo, 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{vol}}{Número do voluntário que foi submetido aos dois
+#' medicamentos.}
#'
-#' \item{\code{A}}{Resultados da aplicação do medicamento A.}
+#' \item{\code{A}}{Valor da área abaixo da curva da concentração do
+#' princípio ativo no sangue no período de 8 horas do medicamento
+#' genérico.}
#'
-#' \item{\code{B}}{Resultados da aplicação do medicamento B.}
+#' \item{\code{B}}{Valor da área abaixo da curva da concentração do
+#' princípio ativo no sangue no período de 8 horas do medicamento de
+#' referência.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+#' @keywords pareado
+#' @source NETO et al. (2010), Tabela 2A.3, pág. 93.
#' @examples
#'
#' data(NetoTb2A.3)
#' str(NetoTb2A.3)
#'
-#' par(mfrow = 1:2)
+#' library(lattice)
#'
-#' plot(A ~ vol, type = "o", xlab = "Voluntário",
-#' ylab = "Área sob a Curva",
-#' main = "Medicamento A",
-#' col = "blue", data = NetoTb2A.3)
+#' dotplot(reorder(vol, B) ~ A + B,
+#' data = NetoTb2A.3,
+#' auto.key = TRUE,
+#' xlab = "Área abaixo da curva",
+#' ylab = "Voluntários\n(ordenados pelo medicamento de referência)",
+#' par.settings = list(superpose.symbol = list(pch = 19)))
#'
-#' 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
+NULL
diff --git a/R/NetoTb2A.5.R b/R/NetoTb2A.5.R
index 4d4a54cd..8671481e 100644
--- a/R/NetoTb2A.5.R
+++ b/R/NetoTb2A.5.R
@@ -1,28 +1,32 @@
#' @name NetoTb2A.5
-#' @title Produtividade de algas marinhas
-#' @description Teor de Agar-agar de algas retiradas de 2 locais.
+#' @title Produtividade de Algas Marinhas
+#' @description Teor de agar-agar de algas retiradas de 2 locais com
+#' diferentes níveis de atividade industrial.
#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
-#'
-#' \item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
+#' \item{\code{local}}{Local de onde foram extraídas as amostras de
+#' alga: A - local com pouca atividade urbana mas com atividade
+#' industrial, B - local com muita atividade urbana mas sem
+#' atividade industrial.}
+#'
+#' \item{\code{teor}}{Teor de agar-agar observado (\%) da alga.}
+#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+#' @keywords AAS
+#' @source NETO et al. (2010), Tabela 2A.5, pág. 97.
#' @examples
#'
#' data(NetoTb2A.5)
#' str(NetoTb2A.5)
#'
-#' par(mfrow = c(1,2))
-#'
-#' plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(%)",
-#' main = "Teor de agar no local A", col = "blue")
-#'
-#' plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(%)",
-#' main = "Teor de agar no local B", col = "red")
+#' library(lattice)
#'
+#' bwplot(teor ~ local, data = NetoTb2A.5,
+#' par.settings = list(box.dot = list(pch = "|"),
+#' box.umbrella = list(lty = 1, col = 1),
+#' box.rectangle = list(col = 1,
+#' fill = "gray50")))
#'
NULL
diff --git a/R/NetoTb3.3.R b/R/NetoTb3.3.R
index f4beb05d..f52c66e8 100644
--- a/R/NetoTb3.3.R
+++ b/R/NetoTb3.3.R
@@ -1,48 +1,46 @@
#' @name NetoTb3.3
-#' @title Um planejamento fatorial 2^3
-#' @description Resultado de um planejamento fatorial 2^3
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @title Rendimento de uma Reação em Função da Temperatura, Catalizador
+#' e Concentração
+#' @description Resultado de um planejamento fatorial \eqn{2^3}, em
+#' duplicata, que estudou o rendimento de uma reação em função dos
+#' níveis de temperatura, tipo de catalizador e níveis de
+#' concentação.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Número do ensaio.}
+#' \item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
#'
-#' \item{\code{f1}}{Níveis do fator temperatura.}
+#' \item{\code{f2}}{Tipo de catalisador (A e B).}
#'
-#' \item{\code{f2}}{Níveis do fator catalisador.}
-#'
-#' \item{\code{f3}}{Níveis do fator concentração.}
-#'
-#' \item{\code{rend}}{Percentual de rendimento observado.}
-#'
-#' \item{\code{ord}}{Ordem da realização do estudo.}
+#' \item{\code{f3}}{Concentração (1 e 1.5 M).}
+#'
+#' \item{\code{rend}}{Rendimento da reação (\%).}
+#'
+#' \item{\code{ord}}{Ordem da realização das corridas.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3.3, pág. 121.
#' @examples
#'
#' data(NetoTb3.3)
#' str(NetoTb3.3)
#'
-#' par(mfrow=c(1,3))
-#'
-#' attach(NetoTb3.3)
-#'
-#' interaction.plot(f1, f2, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre os Fatores 1 e 2",
-#' col = "blue")
-#'
-#' interaction.plot(f1, f3, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre os Fatores 1 e 3",
-#' col = "green")
-#'
-#' interaction.plot(f2, f3, rend,
-#' ylab = "Rendimento Médio",
-#' main = "Interação entre os Fatores 2 e 3",
-#' col = "red")
-#'
-#'
-NULL
\ No newline at end of file
+#' par(mfrow = c(1, 3))
+#' with(NetoTb3.3, {
+#' interaction.plot(f1, f2, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Temperatura x Catalizador",
+#' col = "blue")
+#' interaction.plot(f1, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Temperatura x Concentração",
+#' col = "green")
+#' interaction.plot(f2, f3, rend,
+#' ylab = "Rendimento Médio",
+#' main = "Catalizador x Concentração",
+#' col = "red")
+#' })
+#'
+NULL
diff --git a/R/NetoTb3.6.R b/R/NetoTb3.6.R
index 2bc96ccb..4f5b35c6 100644
--- a/R/NetoTb3.6.R
+++ b/R/NetoTb3.6.R
@@ -1,25 +1,25 @@
#' @name NetoTb3.6
-#' @title Influência de quatro fatores no rendimento de uma reação
-#' @description Resultado de um fatorial 2^4
-#' @format Um \code{data.frame} com 16 observações e 6 variáveis, em que
+#' @title Influência de Quatro Fatores no Rendimento de uma Reação
+#' @description Resultados de um experimento fatorial \eqn{2^4} que
+#' estudou o efeito de quatro fatores no rendimento de uma reação
+#' química.
+#' @format Um \code{data.frame} com 16 observações e 5 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{ens}}{Número do ensaio correspondente.}
+#' \item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
#'
-#' \item{\code{f1}}{Fator temperatura.}
-#'
-#' \item{\code{f2}}{Fator catalisador.}
-#'
-#' \item{\code{f3}}{Fator concentração.}
-#'
-#' \item{\code{f1}}{Fator PH.}
+#' \item{\code{f2}}{Tipo de catalisador (A e B).}
#'
-#' \item{res}{Resposta.}
+#' \item{\code{f3}}{Concentração (1 e 1.5 M).}
+#'
+#' \item{\code{f4}}{Acidez (pH 7 e 6).}
+#'
+#' \item{rend}{Rendimento de uma reação.}
#'
#' }
-#' @keywords DBC
-#' @source Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+#' @keywords FAT2K
+#' @source NETO et al. (2010), Tabela 3.6, pág. 130.
#' @examples
#'
#' library(lattice)
@@ -27,8 +27,10 @@
#' data(NetoTb3.6)
#' str(NetoTb3.6)
#'
-#' xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
-#' data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
-#'
+#' xyplot(res ~ f1 | f2,
+#' groups = interaction(f3, f4, sep = ":"),
+#' data = NetoTb3.6,
+#' type = c("p", "a"),
+#' auto.key = TRUE)
#'
NULL
diff --git a/data/NetoEx3.11.rda b/data/NetoEx3.11.rda
index c7edde745b2e29346252592224684ade58ee260b..02d7bb3b96275bf5b57749d2ecbaf383dafe0e8d 100644
GIT binary patch
delta 302
zcmcb`w4F)ODJsL#&@oaiI8vwe?*#^iegFUev#&YY@Y#y#Tw{TYKKn#Pk@_DUnIdPM
z6&M(J85kIteGS<J9;^BCxT*Cp83=PQGn!mn=GKs?6!OL8lfwlz2L>r4ULytuW*>!!
zB@;upJWF}l>oh5dD_LBv>Z@y0k1LyN>dE$fyBxBOzaRSQs2Fsbx9r2?yK{wA1DS=k
z9Wa`uzfqG}xrs}y>4X9Avx$+P|I|;+Jyj&6&~#HKEitvvv*1wC#G_TSCQs>C6Bp8t
zP%8QUUDUmHe&%XL&udL<mfM{0)8q-TIx7Ct>_WQg41rsY?Q0U|tk2xJq_oT<v|(B6
z!~>@S4PS1)vu2lLd$`H{#ScyQ9I%nDu+rc6_?%r)?88e2wF(}+DjQ60{}(TEwFsEN
H0ty-c_04~t
delta 337
zcmdnabc;#RDJsL#&@oaiI8w_gRfmD$+5i9l|NlAK@Y#y#Tw{TYzWPK(k@~L_j9krD
z9A7Ez@l`70vQI<i!U-2&8JeVIobg=VBGqx_OXF4(hRg*F42BF03=BMzW-+*d7#R!<
z3@phXn3NcsS~a;DUa~Uy2JkpZG;->cH@r*S<)hVpT7qr&d;hdr!)>#>67EKwDNd`H
z#BOCj`(_FgbHE3M)1`Ofa!#bwJN7WRaCmYrWbkk@R#Z(8SaqqpO-q=;$zekS!$rg8
z4c!YOCj=;H7{3Y8`!wULYtFZj*o=p<-?fatvhF<Yo?Mi9_4ZM<sR@2&0r$3O9C-H2
z@RUnTT$J<rM;b2TIqPb492Y$>ys<S%z3cX)*Tr4tJ7+d(n2H`|zqwga^2s0ft?K-b
rxnHm>(sXHFmGQJMRc2C8v{U8*A<>xmAsU@)Vo!=ZbaGh9Ib{O?Z>Nnb
diff --git a/data/NetoTb2.4.rda b/data/NetoTb2.4.rda
index 0ae74aedc5e8cb5e6c772dab3b7df22340e81d9f..1cd85f94faf26d1f1bc0b0aa2445a42fa4df338f 100644
GIT binary patch
delta 258
zcmZ3&)Wf9c6qR9V=oqOM99eT^Ni+jPW&Qtu<}r*6i84%I4w|^wvrkkMso%-$8^pMP
z0R-4)I4;ZLGfFwxapVB!WR??*i#ZMm958Ze>u~@{^D;0<i7*F9wmjxxi`G)s-Vm=7
zUwNHT_=4@mhzktK3p4qaU2GC_n8e_~&B5QWK}$z1)u{28ke`0&^-Mu7CN3w9O9r#E
z1%=Bi{;0Mbes9KZXz7|7A#0z0=rQwBhhm$VPhKc%2UoswH!_ntch;7B+d-a}US_wC
zb?X}?%S`JHong!M;7Ub`_xtaPzn9qj-Y<Olh{>x7iyI}%If5p7EEW8D!SSEoldgh=
K3O`qRYy$vG^<s4Z
delta 282
zcmeBSTEe906qR9V=oqOM9C=X0u$6(K`~Uxc<}r*6i84%I4w|^wyH8XUslS%cw9Ii?
z1M?LI6Df%X#${RTD_^cqbelEPKut}}&2fPwv*WT^CJYQIi&CT*E-)}IkdiWCFv(z8
z!r<{~L8l*!h|MKYkt0n~oZDulv!CA_BFNq&(3e~^gGqG?kAmLu^DB$Q7!D{Xs7_)1
zu!1Ynp-)3eZ=nj?pF5#TI9i!lv<nnpR7}@e(7e2v?*!}ek6XTOU$*kA^jAN7(OptE
z-3pbSJnt|u^`3nA;pP^-1Gz@$ezNfOMt}C7kr0<GlJfn|scRAOGmThMnv<@?b|@Wi
om@)A~txA)KhKC>1FT<uOTA~`wpBNhUckfi1qv4UzC2^<$0A5gUmH+?%
diff --git a/data/NetoTb2A.1.rda b/data/NetoTb2A.1.rda
index 13161cdea851970dffa916b4556af6366ca4696f..2f246448f0a7ab27001fec5008088e8d3ce88c4e 100644
GIT binary patch
literal 616
zcmZ>Y%CIzaj8qGb?6qE7#lUp8{_p?){~x#))_<&FHA$?0|Nm$JgM)zs0|$cxn<E1Q
z;{hhU+ssBAE(&|uOzfN~rM`lfcj5{ow#MZP85k~KVqdvs-h#_6%a=LLVqjoaU|`5#
zU|?Xdbv*3s<|}2Axp3lyLkuSvCuA;QU~@RZq$=RK@)i5ag_FNJJ1{UV;N=fsxa`)z
zAGlCX@u&JNr!cn{A!?Iju1s7TBYo%bB>B}-=cjeM+~V9C#8v1n+H*<d;L*YyO)n3x
zAc=xJ_n^a)rJn?*WX>upOrN>Xfbm`DigkiPNv=@~m-4%C3NdDQng;W5-P(~I@GtRY
zxRG(L=;u{7cW32UCb37BtmN3;V;<7LlH1Yj+`c+MCn@Wzt>~dY_j`0*geNli6bk*h
zXWM(tr?qz8+u0?bo~g9-^r&?1bS~if(CDe6z&ZEUqPBOMA8aNpTDmghf}V$thuDcj
zmzZ80S)<?7sIcOV^J$?q43iHFoJ_s>rqJn$>7!Yd#g9$YmM@!f((BS;x5$O-b|`m#
z2w5>fG2nD=ukWlj#c8aJx4sq>x9?S0RN5$dZ1$l&;tTv1UcYgnc+RRVoji#tSC$mE
zyYJ(@C8ZItL?gl3Anc@Gs;j%Q>?auyh33Esj*@H<9D<7K6-PG<E>oGpX0EbTg|#u_
zn8l4={{z8m{bo+eC{1k3`h2iLupwxgw&Crp|DsaswBF?fcs-r&yFg{dM@#R<nn|-w
zSLFI`zBEH|jgV4<vsXyE=Q{O8J;ka&S{TB+p7zZCRUOdGmh7OrP4$37>+c0dzgbRB
bzGEWr=A-V*BPIPmc2Ckg)Y6i9H~Rtri+v6{
literal 586
zcmZ>Y%CIzaj8qGbWVv^xgn{W;{oDWl|NlQ;SpT7hRm8!5`TqkB3=9Sw3=C|J3=E71
z7(W&$@^Yvx`DzpRN;>#dMut&U!v!hE1q^HrUrw?un|wjzudB(4Ln$X1B;0)38V)fq
zNU}>B`0}*5x%u)kWEdGVWSC@5IAX%!vM4LnKiJpSaRLLwi42CMTxZV3S1vHVlKXXA
zVJ16oMDrt)DLonI0yQSN%1Ah7M+&H}UF4Bw!?}*_`viqRw~f-g%Q_aweBYVBWZQAI
zRuz>Du3%XWAGQU4Y&~XXk<2+e6beF4{(OAOO317%{PI5m1y{e8K)W*Im@k{2Ki!sk
z=GL{Gvz<&|OiH%A^<v#wr)8K_o#G%`kf7?<wl!d9_u5;R@9o;Nb}r8~mf$dr$6eFk
z{Q74#_wQZrmG9gAC$974l$7ukcKLH)Tb50Tz|~Nd7KPQniZ2NFvpg_c=yo!3ai`Ko
z<xGi)CaJ(R`W*_-`XX8*IF;CXa|6mJ+;1v2s{5cn*LPR2thRTrW;u6l<%<XJLRL&r
z3^<uRYmO)nTZ{<1-LrcyyM<eMxe{5}xt&a;J;Wz`{t`TG>mp^IL%kPQ_Uk;=d9})+
zO+Z5;Xks{TmXnj~mZLvHAMXA&{X?DHS<MyU<|}v>UNO4z<cqX;yr|RWrA;&9Bo6F5
zaX?4aZLM{!lBLSC+Qyb!@AV8+9-dlL#<}Bpv#1fjS~}n2&KH&!6E98^+Owi3FFTGw
u+%b0EdU^M~Tb!JB1{%F?{oCXF@qEw!m|1yFN9!NG^H|O$#4!6-UjqO}_5RcV
diff --git a/data/NetoTb2A.5.rda b/data/NetoTb2A.5.rda
index ce2d3c36f491304cbf5dbd2b6bf697cd8bb20d9f..62f8bfd17b0849ecb77d356f1f69f1097fc1c766 100644
GIT binary patch
literal 333
zcmZ>Y%CIzaj8qGbJlW1%!@zLn|NsBS8H@~$x4QldZgH{a|J&fi&|t*Dz~CUjrm(<)
z$C+^h!;gkbic5GLW;nK7zVcOqVP0pi<Ex69>MMWETTwV!txZ|jjZuQLg|T5)#${y(
zgNa`AC#tVFa)FnZ!BCRfS=oVsZC2vXYi%hLd_ptNZ8~vO)2diF<kXVpRpq^t)}FrJ
z*P?KEz1y3Gby;UsbgsEB-}6Z$sY6$#ZQ`Q~n`h`(EaH$Bd+^eW$#q%7vtKUeH`TiG
zgbyd5*xSi}cuB~;2iiT4ODc2N*wv)=mZ?Two5wM+b=u)yH=J{%_Z)b}a<XA-;;g$2
zWu`wIckZj7@MJ<-m)c&rBF`v`zA5~!ZmYiBkD0Jli!Eu(xyF#lCw(UV0e0oQPM<F=
sS+1ut_pkcwl}8R}EY$q^@Rg(CN-gOrhEfN;|LHyHDp;sEnUC!U05ScRrvLx|
literal 296
zcmZ>Y%CIzaj8qGb^vy80WMF8o|Nn1u1|x&xt*-xqTU_k<|1=z8XfTpsU~mv%Q&`}@
z<IK2$;o5<W3A1<_d>qcIFAzA9xa7!zQ`G^PFPS~nS1xwz4`B8+VK6b_mEvh&V31U4
zU|^79U~6EIVqjojzQ>^CfRoFLevucUKYT7WwoSEKVpr=T;Bqvt(vPDna^a$oh}O<N
zFD8qHO$~i-83II_EV35ymZ&6r3gMAG%yOk$KrATU_`g$H<$+bkO&7`~44M-6{xjGa
z{V_^KwRKts>#c}CJqia65`q_;d6y8~SbsNi*;0f4??0kuauyWVh<m0*=TB`=Jm33x
z8sFCQ?m>$>=BcJU`R`$|K!xLUV)5@n7p1#0UV?ii$~S4TFu&7#(p9ifVb+DbA^-#;
BcvJuY
diff --git a/data/NetoTb3.3.rda b/data/NetoTb3.3.rda
index e3d98e6edcd78cde83228568f39f2e9b806d3689..a3dfece9b5268a807959ab0e69fd7dab12e008fa 100644
GIT binary patch
literal 247
zcmZ>Y%CIzaj8qGbbo7wj&cN`f{=onLCm0wQ_oSx^in;7(pVQ#L;J~<n;p#LgO}T{=
zCsg(H$}OlAR$!33B9%4El*fI6FV8F~US3{?iwited~FpNm=zc<@G{sl7_=%KFc9ZD
z(CX2}*puY2Z9bd!*%cO70=5|nPJYtcnP&8GXU=2A(2%6{-CK>?cAi@{@5HwW3fcy9
z6h0+5sivf+s;(1scNJ8$aaQooX0VXpcu+J$l0!A)MnfWt{_9`D2ma-~=Mdg#dVhlS
z@`8@WpZ{M5E%bJix71bBP`s=1(Px`?`N8{aD{g8Sa5TPj*|1Rk$L>j*hgzDr9Nz8#
E0NJf!>i_@%
literal 333
zcmZ>Y%CIzaj8qGb?EKp&&cImr|G@wMCm0wK|36O^6m!|nKDWVv!GUoDqm*y6h*rh2
z%O};RTwHLWs(rEAvIhPD^QAm>%a&ZeVq%hHXviy}?AR#9GmB%Ysrr<YPkEUgE-;v6
zNHH+~;O;VQIo!1BY3qwqy24hk=W6RLnvtu;bYkDkr3JIv536Nz`3pSw-Ez}>(}Hhi
z%T5PJde2zmo_Blh!^e5^W^cWnJKN0tvrG<);M04DTsvY_a}TpIF`6z&bzu9pKkr$C
zO!=$m4Z0uVHhQvobjSucEote_SrR@)L95W|#)al8C8w<oIWui?&rEr@*23~!am9W!
z!FQ857UimGO;Y+YQ-Fhohk+%beSO%o{u~KqyA{1x|JSBZ@_gLA>z1;8;q{Z<`jsV8
rn!-=d2VGqheN{%EccJgByQ~Zf4GKn&@?BN`={@NxSg0ucTSgB6I%$%P
diff --git a/data/NetoTb3.6.rda b/data/NetoTb3.6.rda
index d9812838162bedcf9b19e21ba500aa221e646f06..96c867fd76fa901bd079a61f3793c219b3f0cdc7 100644
GIT binary patch
literal 219
zcmZ>Y%CIzaj8qGb{C9GqHUq=u`UC&WJXjbQZ3A5u#SYrD&uMUAaA4fPuxr6lB|`?e
z$!=LD87UW}H4;oxOe7pkn0*--Ciw<#HTmMeV3NVWP{%Z#JDDYNvRK3njgmR43JaI|
z#L6WXPGM;YKYQthlvb%<@nUhuFG3v07ABi5;$&RW6>zs|@Ajn5h84~X)0Qzb7zOVU
zO*rH|<wK!Ba>{jQfp4mDNl9Cot7OX`3T*qv;l%j<;AMvszZ|Y}ajTwJ&djgt@Dcer
a*TQ9zXv!~F75na;N^>+k>QhckZ2$mp#Z(di
literal 245
zcmZ>Y%CIzaj8qGb3>N(|g@NIB{el1gPp~jB+6KBRiXF6PpVQ#L;J~<n;noxrFS+GY
zE_`XoTwuP6t>J=nRvQE30tTZD1_l!*S5aflU!5<_8id`185m~FYuGBVAkjGU(yL7g
zJwaU>3+%EEtnp{syE2e7ie-kKcOJh{n{vjnLoybNR|<CtwYY3jTD?V3Aahlz^K2)N
zT}NlOdP|iiZnRQko#UM2Aisu*;ewX|ufmb$>d8t5?pst3Uv*w-{anKC7}sKvv$2im
zma&Ek_SVPk?6ER#Y)w<MRd};0WlNjpMDF?W;cSzf|9DsXZvGQ{QskkNqfhvy007(a
BV8Q?Z
diff --git a/man/NetoEx3.11.Rd b/man/NetoEx3.11.Rd
index d632eca0..d8219900 100644
--- a/man/NetoEx3.11.Rd
+++ b/man/NetoEx3.11.Rd
@@ -3,54 +3,49 @@
\name{NetoEx3.11}
\alias{NetoEx3.11}
\title{Síntese de Polipirrol}
-\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
+\format{Um \code{data.frame} com 16 observações e 4 variáveis, em que
\describe{
-\item{\code{i}}{Número do ensaio.}
-
\item{\code{t}}{Tempo da reação.}
\item{\code{C}}{Concentração de oxidante.}
\item{\code{P}}{Tamanho da partícula.}
+\item{\code{rend}}{Rendimento da reação (\%).}
+
}}
\source{
-Barros Neto, Benício de (2010), (Exercício 3.11, pág. 126)
+NETO et al. (2010), Exercício 3.11, pág. 126.
}
\description{
Como exercício num curso de quimioterapia, foram
- analisados dados obtidos por um pesquisador numa série de
- experimentos de síntese de polipirrol numa matriz de EPDM.
+ analisados dados obtidos por um pesquisador numa série de
+ experimentos de síntese de polipirrol numa matriz de EPDM. O
+ plano fatorial é um \eqn{2^3} com duas repetições.
}
\examples{
data(NetoEx3.11)
str(NetoEx3.11)
-par(mfrow=c(1,3))
-
-attach(NetoEx3.11)
-
-interaction.plot(t, C, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre Tempo de Reação e
- Concentração de Oxidante",
- col = "blue")
-
-interaction.plot(t, P, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre Tempo de Reação e Tamanho da
- Partícula",
- col = "green")
-
-interaction.plot(C, P, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre Concentração de Oxidente e
- Tamanho da Partícula",
- col = "red")
+par(mfrow = c(1,3))
+with(NetoEx3.11, {
+ interaction.plot(t, C, rend,
+ ylab = "Rendimento Médio",
+ main = "Tempo de Reação x Conc. de Oxidante",
+ col = "blue")
+ interaction.plot(t, P, rend,
+ ylab = "Rendimento Médio",
+ main = "Tempo de Reação x Tamanho da Partícula",
+ col = "green")
+ interaction.plot(C, P, rend,
+ ylab = "Rendimento Médio",
+ main = "Conc. de Oxidente x Tamanho da Partícula",
+ col = "red")
+})
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb2.2.Rd b/man/NetoTb2.2.Rd
index 659effa7..cd5e94d3 100644
--- a/man/NetoTb2.2.Rd
+++ b/man/NetoTb2.2.Rd
@@ -5,10 +5,10 @@
\title{Pesos de Caroços Extraídos de um Pacote de Feijão}
\format{Um \code{vetor} numérico com 140 observações.}
\source{
-Barros Neto, Benício de (2010), (Tabela 2.2, pág. 32)
+NETO et al. (2010), Tabela 2.2, pág. 32.
}
\description{
-Pesos individuais de 140 caroços retirados
+Pesos individuais de 140 caroços retirados
aleatoriamente de um pacote contendo 1 kg de feijão preto.
}
\examples{
@@ -16,10 +16,13 @@ Pesos individuais de 140 caroços retirados
data(NetoTb2.2)
str(NetoTb2.2)
-hist(NetoTb2.2, xlab = "Peso", ylab = "Frequência",
- main = "Pesos dos Caroços", col = "grey", prob = TRUE)
-
-lines(density(NetoTb2.2), lwd = 2)
+hist(NetoTb2.2,
+ xlab = "Peso",
+ ylab = "Frequência",
+ main = "Pesos dos Caroços",
+ col = "grey",
+ prob = TRUE)
+lines(density(NetoTb2.2), lwd = 2)
}
\keyword{AAS}
diff --git a/man/NetoTb2.4.Rd b/man/NetoTb2.4.Rd
index 9908034d..7ca55037 100644
--- a/man/NetoTb2.4.Rd
+++ b/man/NetoTb2.4.Rd
@@ -2,39 +2,54 @@
% Please edit documentation in R/NetoTb2.4.R
\name{NetoTb2.4}
\alias{NetoTb2.4}
-\title{Comparação de resultados obtidos por 2 químicos}
-\format{Um \code{data.frame} com 5 observações e 4 variáveis, em que
+\title{Comparação de Titulação de Viangre por 2 Químicos}
+\format{Um \code{data.frame} com 5 observações e 3 variáveis, em que
\describe{
-\item{\code{fator}}{Fator de 2 níveis qualitativos.}
+\item{\code{Arr}}{Teores de ácido acético determinados pelo Químico
+ Arrhenius.}
-\item{\code{fabricantes}}{Fator de 5 níveis qualitativos que são os 5
- diferentes fabricantes de vinagre.}
+\item{\code{Ber}}{Teores de ácido acético determinados pelo Químico
+ Berzelius.}
-\item{\code{concentração}}{Concentração de vinagre obtida.}
+\item{\code{d}}{Diferença de concentação obtida entre os químicos
+ para a amostra de vinagre do mesmo fabricante.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2.4, pág. 79)
+NETO et al. (2010), Tabela 2.4, pág. 79.
}
\description{
-Dois químicos, Arrhenius e Berzelius foram encarregados
- de analisar lotes de vinagre de 5 diferentes fabricantes, cada
- um obteve 5 diferentes resultados. O experimento contém um único
- fator com dois níveis (os químicos) e uma resposta (a
- concentração).
+Dois químicos, Arrhenius e Berzelius, foram encarregados
+ de analisar lotes de vinagre de 5 diferentes fabricantes. O
+ experimento contém um único fator com dois níveis (os químicos) e
+ uma resposta (o teor de acído acético, em \%). As medidas são
+ pareadas, ou seja, os dois quimícos avaliam cada um dos vinagres
+ gerando, para cada vinagre, um par de valores da resposta.
}
\examples{
library(lattice)
+library(latticeExtra)
data(NetoTb2.4)
str(NetoTb2.4)
-xyplot(Arrh + Ber ~ Amo, data = NetoTb2.4, type = "o",
- xlab = "Amostra", ylab = "Resposta ")
+dotplot(1:length(d) ~ Arr + Ber,
+ data = NetoTb2.4,
+ auto.key = TRUE,
+ xlab = "Teor de ácido acético (\%)",
+ ylab = "Fabricantes")
+
+xyplot(Arr ~ Ber,
+ data = NetoTb2.4,
+ aspect = "iso",
+ grid = TRUE,
+ xlab = "Berzelius",
+ ylab = "Arrhenius") +
+ layer(panel.abline(a = 0, b = 1, lty = 2))
}
-\keyword{DBC}
+\keyword{pareada}
diff --git a/man/NetoTb2A.1.Rd b/man/NetoTb2A.1.Rd
index 6ccd6398..99848a5f 100644
--- a/man/NetoTb2A.1.Rd
+++ b/man/NetoTb2A.1.Rd
@@ -2,42 +2,56 @@
% Please edit documentation in R/NetoTb2A.1.R
\name{NetoTb2A.1}
\alias{NetoTb2A.1}
-\title{De casa para o trabalho}
-\format{Um \code{data.frame} com 32 observações e 5 variáveis, em que
+\title{Tempo de Casa ao Trabalho em 3 Percursos}
+\format{Um \code{data.frame} com 32 observações e 4 variáveis, em que
\describe{
-\item{\code{ens}}{Número do ensaio.}
+\item{\code{sai}}{Variável que indica o horário de saída do
+ pesquisador rumo ao destino final.}
-\item{\code{sai}}{Fator de 25 níveis referentes aos horários de
- saída do pesquisador.}
+\item{dia}{Fator de 5 níveis referentes aos dias da semana em que o
+ pesquisador realizou o trajeto.}
-\item{dia}{Fator de 5 níveis referentes aos dias em que o pesquisador
- realizou o trajeto.}
-
-\item{perc}{Fator de e níveis referentes ao percurso realizado.}
+\item{perc}{Fator de 3 níveis referentes ao percurso (trajeto)
+ realizado.}
-\item{tem}{Tempo de viagem do pesquisador.}
+\item{tem}{Tempo até chegar os destino final, em minutos.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2A.1, pág. 86)
+NETO et al. (2010), Tabela 2A.1, pág. 86.
}
\description{
Foi cronometrado o tempo transcorrido desde o momento em
que o ônibus passa por uma ponte no trajeto até a hora que o
- pesquisador chega à seu destino final.
+ pesquisador chega à seu destino final. Os dados possem registros
+ do dia da semana e do percurso que foi feito.
}
\examples{
data(NetoTb2A.1)
str(NetoTb2A.1)
-plot(tem ~ ens, type = "o", col = "blue", data = NetoTb2A.1,
- xlab = "Ensaio", ylab = "Tempo",
- main = "Tempo de Viagem")
+library(lattice)
+NetoTb2A.1$hora <- as.POSIXct(NetoTb2A.1$sai, format = "\%H:\%M")
+NetoTb2A.1$hora <- as.numeric(difftime(NetoTb2A.1$hora,
+ min(NetoTb2A.1$hora),
+ units = "mins"))
+
+addmargins(xtabs(~dia + perc, data = NetoTb2A.1))
+
+xyplot(tem ~ hora | perc,
+ type = "p",
+ groups = dia,
+ auto.key = TRUE,
+ par.settings = list(superpose.symbol = list(pch = 19)),
+ data = NetoTb2A.1,
+ xlab = "Ensaio",
+ ylab = "Tempo",
+ main = "Tempo de Viagem")
}
-\keyword{DBC}
+\keyword{RM}
diff --git a/man/NetoTb2A.3.Rd b/man/NetoTb2A.3.Rd
index 809f31ba..304dcad7 100644
--- a/man/NetoTb2A.3.Rd
+++ b/man/NetoTb2A.3.Rd
@@ -2,43 +2,46 @@
% Please edit documentation in R/NetoTb2A.3.R
\name{NetoTb2A.3}
\alias{NetoTb2A.3}
-\title{Bioequivalencia de medicamentos}
+\title{Bioequivalencia de Medicamentos Genéricos e de Marca}
\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{vol}}{Número do voluntário que foi submetido aos dois
+ medicamentos.}
-\item{\code{A}}{Resultados da aplicação do medicamento A.}
+\item{\code{A}}{Valor da área abaixo da curva da concentração do
+ princípio ativo no sangue no período de 8 horas do medicamento
+ genérico.}
-\item{\code{B}}{Resultados da aplicação do medicamento B.}
+\item{\code{B}}{Valor da área abaixo da curva da concentração do
+ princípio ativo no sangue no período de 8 horas do medicamento de
+ referência.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2A.3, pág. 93)
+NETO et al. (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.
+Foram ministrados dois medicamentos distintos, um
+ genérico e um de marca, em 21 voluntários e observou-se a área
+ abaixo da curva de concentração do princípio ativo no sangue, em
+ função do tempo, dos indivíduos no período de 8 horas.
}
\examples{
data(NetoTb2A.3)
str(NetoTb2A.3)
-par(mfrow = 1:2)
+library(lattice)
-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)
+dotplot(reorder(vol, B) ~ A + B,
+ data = NetoTb2A.3,
+ auto.key = TRUE,
+ xlab = "Área abaixo da curva",
+ ylab = "Voluntários\\n(ordenados pelo medicamento de referência)",
+ par.settings = list(superpose.symbol = list(pch = 19)))
}
-\keyword{DBC}
+\keyword{pareado}
diff --git a/man/NetoTb2A.5.Rd b/man/NetoTb2A.5.Rd
index 7881f9b5..2a3ffb33 100644
--- a/man/NetoTb2A.5.Rd
+++ b/man/NetoTb2A.5.Rd
@@ -2,35 +2,39 @@
% Please edit documentation in R/NetoTb2A.5.R
\name{NetoTb2A.5}
\alias{NetoTb2A.5}
-\title{Produtividade de algas marinhas}
+\title{Produtividade de Algas Marinhas}
\format{Um \code{data.frame} com 10 observações e 2 variáveis, em que
\describe{
-\item{\code{A}}{Teor de Agar-agar observado em algas do local A.}
+\item{\code{local}}{Local de onde foram extraídas as amostras de
+ alga: A - local com pouca atividade urbana mas com atividade
+ industrial, B - local com muita atividade urbana mas sem
+ atividade industrial.}
+
+\item{\code{teor}}{Teor de agar-agar observado (\%) da alga.}
-\item{\code{B}}{Teor de Agar-agar observado em algas do local B.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 2A.5, pág. 97)
+NETO et al. (2010), Tabela 2A.5, pág. 97.
}
\description{
-Teor de Agar-agar de algas retiradas de 2 locais.
+Teor de agar-agar de algas retiradas de 2 locais com
+ diferentes níveis de atividade industrial.
}
\examples{
data(NetoTb2A.5)
str(NetoTb2A.5)
-par(mfrow = c(1,2))
-
-plot(NetoTb2A.5$A, xlab = "Local A", ylab = "(\%)",
- main = "Teor de agar no local A", col = "blue")
-
-plot(NetoTb2A.5$B, xlab = "Local B", ylab = "(\%)",
- main = "Teor de agar no local B", col = "red")
+library(lattice)
+bwplot(teor ~ local, data = NetoTb2A.5,
+ par.settings = list(box.dot = list(pch = "|"),
+ box.umbrella = list(lty = 1, col = 1),
+ box.rectangle = list(col = 1,
+ fill = "gray50")))
}
-\keyword{DBC}
+\keyword{AAS}
diff --git a/man/NetoTb3.3.Rd b/man/NetoTb3.3.Rd
index ba2ef129..989768a7 100644
--- a/man/NetoTb3.3.Rd
+++ b/man/NetoTb3.3.Rd
@@ -2,55 +2,53 @@
% Please edit documentation in R/NetoTb3.3.R
\name{NetoTb3.3}
\alias{NetoTb3.3}
-\title{Um planejamento fatorial 2^3}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\title{Rendimento de uma Reação em Função da Temperatura, Catalizador
+ e Concentração}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Número do ensaio.}
+\item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
-\item{\code{f1}}{Níveis do fator temperatura.}
+\item{\code{f2}}{Tipo de catalisador (A e B).}
-\item{\code{f2}}{Níveis do fator catalisador.}
+\item{\code{f3}}{Concentração (1 e 1.5 M).}
-\item{\code{f3}}{Níveis do fator concentração.}
+\item{\code{rend}}{Rendimento da reação (\%).}
-\item{\code{rend}}{Percentual de rendimento observado.}
-
-\item{\code{ord}}{Ordem da realização do estudo.}
+\item{\code{ord}}{Ordem da realização das corridas.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3.3, pág. 121)
+NETO et al. (2010), Tabela 3.3, pág. 121.
}
\description{
-Resultado de um planejamento fatorial 2^3
+Resultado de um planejamento fatorial \eqn{2^3}, em
+ duplicata, que estudou o rendimento de uma reação em função dos
+ níveis de temperatura, tipo de catalizador e níveis de
+ concentação.
}
\examples{
data(NetoTb3.3)
str(NetoTb3.3)
-par(mfrow=c(1,3))
-
-attach(NetoTb3.3)
-
-interaction.plot(f1, f2, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre os Fatores 1 e 2",
- col = "blue")
-
-interaction.plot(f1, f3, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre os Fatores 1 e 3",
- col = "green")
-
-interaction.plot(f2, f3, rend,
- ylab = "Rendimento Médio",
- main = "Interação entre os Fatores 2 e 3",
- col = "red")
-
+par(mfrow = c(1, 3))
+with(NetoTb3.3, {
+ interaction.plot(f1, f2, rend,
+ ylab = "Rendimento Médio",
+ main = "Temperatura x Catalizador",
+ col = "blue")
+ interaction.plot(f1, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Temperatura x Concentração",
+ col = "green")
+ interaction.plot(f2, f3, rend,
+ ylab = "Rendimento Médio",
+ main = "Catalizador x Concentração",
+ col = "red")
+})
}
-\keyword{DBC}
+\keyword{FAT2K}
diff --git a/man/NetoTb3.6.Rd b/man/NetoTb3.6.Rd
index df755f32..de3ee42e 100644
--- a/man/NetoTb3.6.Rd
+++ b/man/NetoTb3.6.Rd
@@ -2,29 +2,29 @@
% Please edit documentation in R/NetoTb3.6.R
\name{NetoTb3.6}
\alias{NetoTb3.6}
-\title{Influência de quatro fatores no rendimento de uma reação}
-\format{Um \code{data.frame} com 16 observações e 6 variáveis, em que
+\title{Influência de Quatro Fatores no Rendimento de uma Reação}
+\format{Um \code{data.frame} com 16 observações e 5 variáveis, em que
\describe{
-\item{\code{ens}}{Número do ensaio correspondente.}
+\item{\code{f1}}{Temperatura (40 e 60\eqn{^\circ}C).}
-\item{\code{f1}}{Fator temperatura.}
+\item{\code{f2}}{Tipo de catalisador (A e B).}
-\item{\code{f2}}{Fator catalisador.}
+\item{\code{f3}}{Concentração (1 e 1.5 M).}
-\item{\code{f3}}{Fator concentração.}
+\item{\code{f4}}{Acidez (pH 7 e 6).}
-\item{\code{f1}}{Fator PH.}
-
-\item{res}{Resposta.}
+\item{rend}{Rendimento de uma reação.}
}}
\source{
-Barros Neto, Benício de (2010), (Tabela 3.6, pág. 130)
+NETO et al. (2010), Tabela 3.6, pág. 130.
}
\description{
-Resultado de um fatorial 2^4
+Resultados de um experimento fatorial \eqn{2^4} que
+ estudou o efeito de quatro fatores no rendimento de uma reação
+ química.
}
\examples{
@@ -33,10 +33,12 @@ library(lattice)
data(NetoTb3.6)
str(NetoTb3.6)
-xyplot(res ~ f1, groups = interaction(f2, f3, f4, sep = ":"),
- data = NetoTb3.6, type=c("p", "a"), auto.key = TRUE)
-
+xyplot(res ~ f1 | f2,
+ groups = interaction(f3, f4, sep = ":"),
+ data = NetoTb3.6,
+ type = c("p", "a"),
+ auto.key = TRUE)
}
-\keyword{DBC}
+\keyword{FAT2K}
--
GitLab