From 4d1e69866be6a2cf21bb624d8ef8ecfb77382984 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Tue, 15 Nov 2016 16:32:00 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20adequa=C3=A7oes=20informadas=20no=20M?=
=?UTF-8?q?R!136?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/AndradeTb2.38.R | 3 ++-
R/AndradeTb2.46.R | 5 ++--
R/AndradeTb2.47.R | 49 +++++++++----------------------------
data-raw/AndradeTb2.47.txt | 38 ++++++++++++++--------------
data/AndradeTb2.47.rda | Bin 333 -> 259 bytes
man/AndradeTb2.38.Rd | 3 ++-
man/AndradeTb2.46.Rd | 5 ++--
man/AndradeTb2.47.Rd | 47 +++++++++--------------------------
8 files changed, 51 insertions(+), 99 deletions(-)
diff --git a/R/AndradeTb2.38.R b/R/AndradeTb2.38.R
index ef28482d..aea419ff 100644
--- a/R/AndradeTb2.38.R
+++ b/R/AndradeTb2.38.R
@@ -32,7 +32,8 @@
#' ylab = "Temperatura (ºC)")
#'
#' # Agrupando os dados de condutividade, provinientes no dataset
-#' # AndradeTb2.46 [VERIFICAR SE É VÁLIDO]
+#' # AndradeTb2.46
+#' # help(AndradeTb2.46)
#' (da <- merge(AndradeTb2.38, AndradeTb2.46))
#' splom(da, type = c("g", "p", "r"))
#'
diff --git a/R/AndradeTb2.46.R b/R/AndradeTb2.46.R
index 1eca3e7c..8e235384 100644
--- a/R/AndradeTb2.46.R
+++ b/R/AndradeTb2.46.R
@@ -1,5 +1,5 @@
#' @name AndradeTb2.46
-#' @title Condutividade e Salinidade da Lagoa da Conceição
+#' @title Condutividade e Salinidade na Região III da Lagoa da Conceição
#' @description Estudo com o objetivo de verificar se existe correlação
#' entre a condutividade e a salinidade na região III da Lagoa da
#' Conceição, Florianópolis, SC.
@@ -30,7 +30,8 @@
#' ylab = "Condutividade (mho)")
#'
#' # Agrupando os dados de temperaturas, provinientes do dataset
-#' # AndradeTb2.38 [VERIFICAR SE É VÁLIDO]
+#' # AndradeTb2.38
+#' # help(AndradeTb2.38)
#' (da <- merge(AndradeTb2.46, AndradeTb2.38))
#' splom(da, type = c("g", "p", "r"))
#'
diff --git a/R/AndradeTb2.47.R b/R/AndradeTb2.47.R
index 48e7823a..46a3d974 100644
--- a/R/AndradeTb2.47.R
+++ b/R/AndradeTb2.47.R
@@ -4,37 +4,28 @@
#' moído. Cafés estocados durante nove dias foram submetidos a
#' sessões de avaliação, realizadas por uma equipe de provadores
#' treinados. Ocorreram seis sessões de avaliação com intervalos de
-#' mais ou menos sete dias com início no nono dia de estocagem. [SE
-#' É O MESMO PRODUTO AVALIADO EM DIFERENTES TEMPOS] ***Três produtos
-#' selecionados ao acaso foram avaliados simultaneamente, para cada
-#' período de estocagem, por seis provadores que os avaliaram quanto
-#' ao seu aroma, em uma escala descritiva de 6 pontos (6 =
-#' excelente; 5 = bom; 4 = aceitável; 3 = pouco aceitável; 2 =
-#' inaceitável e 1 = não bebível). Ao final de cada sessão foram
-#' registrados as notas médias das seis avaliações.*** [SE A CADA
-#' SESSÃO SÃO DIFERENTES AMOSTRAS SELECIONADAS] ***Em cada sessão
-#' seis provadores avaliaram simultaneamente três amostras obtidas
-#' ao acaso, quanto ao seu aroma, em uma escala descritiva de 6
-#' pontos (6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
-#' aceitável; 2 = inaceitável e 1 = não bebível). Ao final de cada
-#' sessão foram registrados as notas médias das seis avaliações.***
+#' mais ou menos sete dias com início no nono dia de estocagem.
+#'
+#' Para cada sessão três amostras foram obtidas ao acaso e seis
+#' provadores as avaliaram simultaneamente, quanto ao seu aroma, em
+#' uma escala descritiva de 6 pontos (6 = excelente; 5 = bom; 4 =
+#' aceitável; 3 = pouco aceitável; 2 = inaceitável e 1 = não
+#' bebível). Ao final de cada sessão foram registrados as notas
+#' médias das seis avaliações.
#' @format Um \code{data.frame} com 18 observações e 4 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{tempo}}{Tempo de estocagem, em dias.}
#'
-#' \item{\code{amostra}}{Fator de 3 níveis que identificam as amostras
-#' (pacotes de café). [SE SÃO DIFERENTES PACOTES SELECIONADOS EM
-#' CADA TEMPO DEVE-SE EXCLUIR ESSA VARIÁVEL.]}
+#' \item{\code{rept}}{Identifica a unidade amostral em cada sessão
+#' realizada.}
#'
#' \item{\code{result}}{Resultado médio das avaliações da equipe de
#' provadores.}
#'
#' }
-#' @keywords
-#' longitudinal[SE-FOR-OS-MESMOS-PRODUTOS-EM-DIFERENTES-TEMPOS]
-#' RS[SE-FOREM-PRODUTOS-DIFERENTES] sensorial
+#' @keywords RS sensorial
#' @source Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
#' ciências agrárias e biológicas com noções de experimentação (2nd
#' ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.47, pág. 149)
@@ -44,24 +35,6 @@
#' str(AndradeTb2.47)
#'
#' library(lattice)
-#' # [SE FOREM OS MESMOS PRODUTOS]
-#' xyplot(result ~ tempo, groups = amostra,
-#' data = AndradeTb2.47,
-#' type = c("g", "l"),
-#' alpha = 0.7,
-#' auto.key = list(
-#' column = 3,
-#' title = "Amostra", cex.title = 1,
-#' lines = TRUE, points = FALSE
-#' ),
-#' xlab = "Tempo de Estocagem (dias)",
-#' ylab = "Resultado das Avaliações",
-#' panel = function(x, y, ...) {
-#' panel.xyplot(x, y, ...)
-#' panel.xyplot(x, y, type = "a", col = 1, lwd = 2)
-#' })
-##
-#' # [SE FOREM PRODUTOS DIFERENTES]
#' xyplot(result ~ tempo,
#' data = AndradeTb2.47,
#' type = c("g", "p", "r"),
diff --git a/data-raw/AndradeTb2.47.txt b/data-raw/AndradeTb2.47.txt
index 2ee00009..a07767da 100644
--- a/data-raw/AndradeTb2.47.txt
+++ b/data-raw/AndradeTb2.47.txt
@@ -1,19 +1,19 @@
-sessao tempo amostra result
-a 9 y1 4.8
-b 14 y1 4
-c 22 y1 3.7
-d 29 y1 3.2
-e 36 y1 3.7
-f 43 y1 2.5
-a 9 y2 4.7
-b 14 y2 4.7
-c 22 y2 3.7
-d 29 y2 3.5
-e 36 y2 3
-f 43 y2 2.8
-a 9 y3 4.7
-b 14 y3 4.8
-c 22 y3 3.5
-d 29 y3 3.2
-e 36 y3 3.3
-f 43 y3 2.7
+rept tempo result
+1 9 4.8
+2 9 4.7
+3 9 4.7
+1 14 4
+2 14 4.7
+3 14 4.8
+1 22 3.7
+2 22 3.7
+3 22 3.5
+1 29 3.2
+2 29 3.5
+3 29 3.2
+1 36 3.7
+2 36 3
+3 36 3.3
+1 43 2.5
+2 43 2.8
+3 43 2.7
diff --git a/data/AndradeTb2.47.rda b/data/AndradeTb2.47.rda
index 19774bb8d0ce2bbb7fe258807997eb39955671a8..bd3977c7e25063bc59f3b8170db2de895ae7f371 100644
GIT binary patch
literal 259
zcmZ>Y%CIzaj8qGb<UY`|k%8fC{nP*DkxVR{G7TvVA`bTK_Zl1+7z`NL7#JBCH!$3A
zT(rzos%ri!h7-2J3ev%jo3eP=8ZI!f&EjRaz}6_VEac2&VYe%c3v3;j-IR867pHI4
z&D53Iu9mf&<!HZEEc3nAw(h6i-F)ial^rwkt}kGCb$4@YK&(NeMJ3nYh^u@pEeV|)
z%C>OvS=3ChKCx3dB9TE+g-vcpP!Gp}iOLZXytdmO{n%06Z|}4AV?zNO|J<@oeb+X9
z`0zaTv)EPJpwj|Yj)}X{52nsD*~fii&B}|i%Dwzik36MLGcw9E_DDOLG%VR5{+hA*
PpWc(Mf`tm=jgm<K;Yek%
literal 333
zcmZ>Y%CIzaj8qGb+#>7xkAcyr{^|ekkxVR{HVr8ZA`bTK_ZK)YFc>hfF)%VPZeX<Z
zXj$Z|wtVHURFioNY}HrT3M*gv==f`K#)ZSq4h#$#3=9m6LY*vMF7n#?GB7YMV4N)H
zY^FO$Q`c|?hiAcqMee#QlV`IYl<cw&S?10?b5nEaQ(mi;%Dy>z`MlSi_xzgm_Rk)d
zeH_lKFD?$)-&<k6@5Tux#iS<T6)pG8A9l~(UEP1xx998X0^UFc<}U6(R<ngxxJgeu
zud>8FPh!E(1451yR2<v)MO~dHu$W1sX|YIxO8?^%v)A?sKREts2h*Ze&sHtEyU*<P
zF{|&<5r>s53T|IKn4EBYQ_XC%f{f=EO}JaRBxBF4wsM^G>dBp#nwPdu3SIisZt2S2
sg`3xGat<`q>sL77a53Sf3EvdUS@!!Jmuy>FfAr2oKM@sO_Q3iE0Eu^zrT_o{
diff --git a/man/AndradeTb2.38.Rd b/man/AndradeTb2.38.Rd
index 285b1c7f..7a7f660f 100644
--- a/man/AndradeTb2.38.Rd
+++ b/man/AndradeTb2.38.Rd
@@ -37,7 +37,8 @@ xyplot(temp ~ salin,
ylab = "Temperatura (ºC)")
# Agrupando os dados de condutividade, provinientes no dataset
-# AndradeTb2.46 [VERIFICAR SE É VÁLIDO]
+# AndradeTb2.46
+# help(AndradeTb2.46)
(da <- merge(AndradeTb2.38, AndradeTb2.46))
splom(da, type = c("g", "p", "r"))
diff --git a/man/AndradeTb2.46.Rd b/man/AndradeTb2.46.Rd
index 0c7e1c14..54c967e4 100644
--- a/man/AndradeTb2.46.Rd
+++ b/man/AndradeTb2.46.Rd
@@ -2,7 +2,7 @@
% Please edit documentation in R/AndradeTb2.46.R
\name{AndradeTb2.46}
\alias{AndradeTb2.46}
-\title{Condutividade e Salinidade da Lagoa da Conceição}
+\title{Condutividade e Salinidade na Região III da Lagoa da Conceição}
\format{Um \code{data.frame} com 6 observações e 3 variáveis, em que
\describe{
@@ -35,7 +35,8 @@ xyplot(cond ~ salin,
ylab = "Condutividade (mho)")
# Agrupando os dados de temperaturas, provinientes do dataset
-# AndradeTb2.38 [VERIFICAR SE É VÁLIDO]
+# AndradeTb2.38
+# help(AndradeTb2.38)
(da <- merge(AndradeTb2.46, AndradeTb2.38))
splom(da, type = c("g", "p", "r"))
diff --git a/man/AndradeTb2.47.Rd b/man/AndradeTb2.47.Rd
index 57cd13fc..f71204b0 100644
--- a/man/AndradeTb2.47.Rd
+++ b/man/AndradeTb2.47.Rd
@@ -9,9 +9,8 @@
\item{\code{tempo}}{Tempo de estocagem, em dias.}
-\item{\code{amostra}}{Fator de 3 níveis que identificam as amostras
- (pacotes de café). [SE SÃO DIFERENTES PACOTES SELECIONADOS EM
- CADA TEMPO DEVE-SE EXCLUIR ESSA VARIÁVEL.]}
+\item{\code{rept}}{Identifica a unidade amostral em cada sessão
+ realizada.}
\item{\code{result}}{Resultado médio das avaliações da equipe de
provadores.}
@@ -27,20 +26,14 @@ Estudo sobre vida de prateleira de café torrado e
moído. Cafés estocados durante nove dias foram submetidos a
sessões de avaliação, realizadas por uma equipe de provadores
treinados. Ocorreram seis sessões de avaliação com intervalos de
- mais ou menos sete dias com início no nono dia de estocagem. [SE
- É O MESMO PRODUTO AVALIADO EM DIFERENTES TEMPOS] ***Três produtos
- selecionados ao acaso foram avaliados simultaneamente, para cada
- período de estocagem, por seis provadores que os avaliaram quanto
- ao seu aroma, em uma escala descritiva de 6 pontos (6 =
- excelente; 5 = bom; 4 = aceitável; 3 = pouco aceitável; 2 =
- inaceitável e 1 = não bebível). Ao final de cada sessão foram
- registrados as notas médias das seis avaliações.*** [SE A CADA
- SESSÃO SÃO DIFERENTES AMOSTRAS SELECIONADAS] ***Em cada sessão
- seis provadores avaliaram simultaneamente três amostras obtidas
- ao acaso, quanto ao seu aroma, em uma escala descritiva de 6
- pontos (6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
- aceitável; 2 = inaceitável e 1 = não bebível). Ao final de cada
- sessão foram registrados as notas médias das seis avaliações.***
+ mais ou menos sete dias com início no nono dia de estocagem.
+
+ Para cada sessão três amostras foram obtidas ao acaso e seis
+ provadores as avaliaram simultaneamente, quanto ao seu aroma, em
+ uma escala descritiva de 6 pontos (6 = excelente; 5 = bom; 4 =
+ aceitável; 3 = pouco aceitável; 2 = inaceitável e 1 = não
+ bebível). Ao final de cada sessão foram registrados as notas
+ médias das seis avaliações.
}
\examples{
@@ -48,23 +41,6 @@ data(AndradeTb2.47)
str(AndradeTb2.47)
library(lattice)
-# [SE FOREM OS MESMOS PRODUTOS]
-xyplot(result ~ tempo, groups = amostra,
- data = AndradeTb2.47,
- type = c("g", "l"),
- alpha = 0.7,
- auto.key = list(
- column = 3,
- title = "Amostra", cex.title = 1,
- lines = TRUE, points = FALSE
- ),
- xlab = "Tempo de Estocagem (dias)",
- ylab = "Resultado das Avaliações",
- panel = function(x, y, ...) {
- panel.xyplot(x, y, ...)
- panel.xyplot(x, y, type = "a", col = 1, lwd = 2)
- })
-# [SE FOREM PRODUTOS DIFERENTES]
xyplot(result ~ tempo,
data = AndradeTb2.47,
type = c("g", "p", "r"),
@@ -72,7 +48,6 @@ xyplot(result ~ tempo,
ylab = "Resultado das Avaliações")
}
-\keyword{RS[SE-FOREM-PRODUTOS-DIFERENTES]}
-\keyword{longitudinal[SE-FOR-OS-MESMOS-PRODUTOS-EM-DIFERENTES-TEMPOS]}
+\keyword{RS}
\keyword{sensorial}
--
GitLab