diff --git a/R/AndradeTb2.38.R b/R/AndradeTb2.38.R index ef28482d7a021eb07ab51c6a4d58c22fc883d5fd..aea419ffc4f68ed52d69da0bfc0659d01e5f90ac 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 1eca3e7c052dbd4930541a3244fcb06ce6e11f71..8e235384800dc80d4ca0d1b433b869da8bc501ea 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 48e7823ab3bba98e6863dcd320a2dc19ca6e2fca..46a3d974def92f54dd44268c2b671200e71607ea 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 2ee000098e614c8ed5c9ed92dfd16d0a286e5718..a07767da750f55f6636ac82464eaa975399ccd97 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 Binary files a/data/AndradeTb2.47.rda and b/data/AndradeTb2.47.rda differ diff --git a/man/AndradeTb2.38.Rd b/man/AndradeTb2.38.Rd index 285b1c7fbef445be052a46ab5e4fbdf97b1e91fb..7a7f660f001998e6c6227d4cac4bd1d558f666bb 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 0c7e1c144b173220774001e92894bca990676c7d..54c967e482c1261ad0e6cb80601e8098019b4a8c 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 57cd13fc379f85c0b3b35904de12ce042ab7d6f9..f71204b011267128ecefed969d993b0dd09423df 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}