-
Notifications
You must be signed in to change notification settings - Fork 0
/
teca_cra.R
48 lines (48 loc) · 1.6 KB
/
teca_cra.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#' @name teca_cra
#' @title Vari\enc{á}{a}veis F\enc{í}{i}sico-H\enc{í}{i}dricas do Solo
#' em S\enc{í}{i}tio Cultivados com Teca
#' @description Valores de variáveis físico-hídricas de 3 camadas do
#' solo em 50 sítios cultivados com teca (\emph{Tectona grandis}) e
#' dados de produção de madeira.
#' @format Um \code{data.frame} com 1650 observações e 9 variáveis, em
#' que
#'
#' \describe{
#'
#' \item{\code{loc}}{Indentifica o sítio, do total de 50, de onde a
#' amostra foi extraída.}
#'
#' \item{\code{cam}}{Fator que indica a profundidade (cm) da camada da
#' qual foi extraída a amostra de solo. Todas as amostras de uma
#' mesma localização são de camadas no mesmo ponto.}
#'
#' \item{\code{tens}}{Tensão matricial aplicada à amostra de solo para
#' determinação da umidade (kPa).}
#'
#' \item{\code{umid}}{Correspondente umidade (m\eqn{3} m\eqn{-3}) de
#' equilíbrio do solo a determinada tensão.}
#'
#' \item{\code{ds}}{Densidade do solo (Mg m\eqn{-3}).}
#'
#' }
#' @examples
#'
#' library(lattice)
#' library(latticeExtra)
#'
#' xtabs(~cam + tens, data = teca_cra)
#'
#' xyplot(umid ~ tens | factor(loc),
#' data = teca_cra,
#' groups = cam,
#' type = c("o"),
#' as.table = TRUE,
#' strip = TRUE,
#' layout = c(NA, 5),
#' scales = list(x = list(log = 10)),
#' xscale.components = xscale.components.log10ticks,
#' auto.key = list(title = "Camada (cm)", cex.title = 1.1),
#' ylab = expression("Umidade do solo" ~ (m^{3} ~ m^{-3})),
#' xlab = expression(log[10] ~ "Tensão" ~ (kPa)))
#'
NULL