#' @name np_carobinha
#' @title Efeito da \enc{É}{E}poca de Colheita e Aduba\enc{çã}{ca}o
#' Nitro-Fosfatada na Carobinha
#' @description Resultados de um experimento realizado para estudar o
#' efeito da época de colheita e níveis de adubação nitro-fosfatada
#' sobre a produção e teores de nutrientes na carobinha
#' (subsp. \emph{Symmetrifoliolata}).
#'
#' O experimento foi instalado em ambiente protegido em maio/2012. 4
#' vasos preenchidos com Latossolo vermelho distroférrico muito
#' argiloso, com peso de 5.5 kg, foram adubados com nitrogênio (5
#' níveis, kg ha^{-1}) e fósforo (5 níveis, kg ha^{-1}). Um total de
#' 25 combinações de N e P resultam do cruzamento completo dos
#' níveis. No entanto, para reduzir a dimensão do experimento,
#' utilizou-se 9 combinações ao considerar a matriz experimental de
#' Pan Plueba III. O delineamento experimental foi de blocos
#' casualizados (DBC). Cada unidade experimental foi constituida de
#' 4 plantas, contendo 2 plantas úteis por parcela.
#'
#' Colheram-se duas plantas em janeiro/2013 (259 dias após o
#' transplantio - DAT) e em junho/2016 (770 DAT), quando as
#' produções foram mensuradas. Posteriormente, determinou-se o teor
#' de nutrientes das folhas e raízes.
#'
#' @format Um \code{data.frame} com 72 observações e 7 variáveis, em que
#'
#' \describe{
#'
#' \item{\code{epoc}}{Época de colheita da carobinha e determinação das
#' variáveis resposta, em dias após o transplantio.}
#'
#' \item{\code{bloc}}{Fator categórico que indica os blocos do
#' experimento, TODO formado pelas parcelas no mesmo canteiro.}
#'
#' \item{\code{N}}{Nível de nitrogênio aplicado na adubação, kg
#' ha\eqn{^{-1}}.}
#'
#' \item{\code{P}}{Nível de fósforo aplicado na adubação, kg
#' ha\eqn{^{-1}}.}
#'
#' \item{\code{msf}}{Massa fresca das folhas, g.}
#'
#' \item{\code{Kraiz}}{Teor de potássio nas raízes, TODO grandeza.}
#'
#' \item{\code{Kfolh}}{Teor de potássio nas folhas, TODO grandeza.}
#'
#' }
#' @examples
#'
#' data(np_carobinha)
#' str(np_carobinha)
#'
#' library(lattice)
#'
#' # Níveis de N e P.
#' unique(sort(np_carobinha$N))
#' unique(sort(np_carobinha$P))
#'
#' # Combinações presentes no experimento.
#' cbn <- unique(np_carobinha[, c("N", "P")])
#' cbn
#'
#' # Desenho simétrico.
#' xyplot(N ~ P, data = cbn, aspect = 1)
#'
#' xtabs(~epoc + bloc, data = np_carobinha)
#' xtabs(~N + P, data = np_carobinha)
#'
#' xyplot(msf ~ N | P, data = np_carobinha, groups = epoc)
#' xyplot(msf ~ P | N, data = np_carobinha, groups = epoc)
#'
#' # Codificar os níveis de N e P para mesma escala centrada.
#' cod <- function(x) {
#' u <- unique(x)
#' stopifnot(length(u) == 5)
#' u <- sort(u)
#' m <- u[3]
#' d <- diff(u[c(2, 4)])/2
#' z <- (x - m)/d
#' return(z)
#' }
#'
#' # Criando versões codificadas de N e P.
#' np_carobinha <- transform(np_carobinha,
#' nn = cod(N),
#' pp = cod(P))
#' cbn <- unique(np_carobinha[, c("nn", "pp")])
#' round(cbn, 3)
#'
NULL
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.