R/rust_peach.R

In walmes/RDASC: Reproducible Data Analysis of Cientific Cooperations

#' @name rust_peach
#' @title Progresso da Ferrugem em Folhas de Pessegueiro
#' @description Avaliação semanal da severidade (\% de lesão no limbo
#'     foliar por meio de escala) da ferrugem (\emph{Tranzschelia
#'     discolor}) em folhas de pessegueiro (\emph{Prunus persica}).
#'     Foram marcados 2 ramos por árvore (em lados opostos na planta)
#'     contendo 10 folhas marcadas em cada um.  Foram testadas também 7
#'     doses de nitrogênio em combinação com tratamentos de poda.  O
#'     delineamento foi de blocos casualizados e o ensaio foi repetido
#'     em 3 safras no mesmo pomar. As plantas foram as mesmas nas 3
#'     safras, no entanto, os ramos foram diferentes.
#' @format Um \code{data.frame} com 30240 linhas e 8 colunas, em que
#'
#' \describe{
#'
#' \item{\code{safra}}{Fator categórico que representa cada uma das 3
#'     safras nas quais o experimento foi conduzido.}
#'
#' \item{\code{dia}}{Dia de avaliação. Foi do dia 0 ao dia 84, com
#'     intervalos de 7 dias, perfazento um total de 12 níveis.}
#'
#' \item{\code{folha}}{Folhas marcadas em 2 ramos por árvore (em lados
#'     opostos). As foram eram observadas a cada 7 dias, portanto, os
#'     registros em uma folha são no máximo 12 de forma longitudinal. A
#'     indentificação das folhas é única.}
#'
#' \item{\code{nitro}}{Nitrogênio aplicado em 7 doses (0, 40, 80,
#'     120, 160, 200, 240 kg ha\eqn{^{-1}}.}
#'
#' \item{\code{lado}}{Fator que representa o lado da planta no qual
#'     estava o ramo, sendo que 1 = sul e 2 = norte.}
#'
#' \item{\code{poda}}{Números de poda aplicado nas plantas, sedo que 1 =
#'     1 poda e 2 = 4 podas.}
#'
#' \item{\code{bloco}}{Fator categórico que representa os blocos do
#'     experimento.}
#'
#' \item{\code{sever}}{Severidade medida ao longo do tempo em cada
#'     uma das folhas, em porcentagem de área com lesão de acordo com a
#'     escala diagramática adotada. Depois que a folha cai do ramo, não
#'     há como determinar a severidade, então os valores perdidos para
#'     as datas porteriores a queda da folha são representados com
#'     \code{NA}.}
#'
#' }
#'
#' @source Dolinski,
#'     M. A. (\url{http://lattes.cnpq.br/5554247933578584}), May De Mio,
#'     L. L. (\url{http://lattes.cnpq.br/5306520242222948}).
#'     Universidade Federal do Paraná, SCA, Laboratório de Epidemiologia
#'     para Manejo Integrado de Doenças em plantas (LEMID).
#'
#' @examples
#'
#' data(rust_peach)
#' str(rust_peach)
#'
#' # Combinações entre poda x nitrogênio em cada safra.
#' ftable(xtabs(~safra + poda + nitro, data = rust_peach))
#'
#' # Combinações entre bloco x dia em cada safra.
#' ftable(xtabs(~safra + bloco + dia, data = rust_peach))
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' # Ver resultados da safra 1.
#' useOuterStrips(
#'     xyplot(sever ~ dia | nitro + bloco,
#'            groups = poda,
#'            data = subset(rust_peach, safra == "1"),
#'            type = c("p", "smooth"),
#'            xlab = "Dia de avaliação",
#'            ylab = "Severidade (%)"))
#'
#' xyplot(sever ~ dia | folha, type = "l",
#'        data = subset(rust_peach, safra == "1" &
#'                                  bloco == "I" &
#'                                  nitro == 0 &
#'                                  poda == 1 &
#'                                  lado == 1),
#'        xlab = "Dia de avaliação",
#'        ylab = "Severidade (%)")
#'
#' # As 10 folhas de um ramo.
#' subset(rust_peach, safra == "1" &
#'                    bloco == "I" &
#'                    nitro == 0 &
#'                    poda == 1 &
#'                    lado == 1)
#'
NULL