Define cada apresentação de dados como subseção

docs/cap03_materiais-e-metodos.Rnw

@@ -30,13 +30,14 @@ unidades de medidas e 3) descrição de suas características potencialmente
 contempladas por modelos alternativos ao Poisson.
 
 %% {\normalsize \textsc{Capulhos de Algodão em Função de Desfolha}}
-\datatitle{Capulhos de Algodão em Sob Efeito de Desfolha Artificial}
+\subsubsection{Capulhos de Algodão em Sob Efeito de Desfolha Artificial}
+\label{sec:cottonBolls}
 
-<<data-cottonBolls, include=FALSE>>=
+<<data-cottonBolls, include=FALSE, echo=FALSE>>=
 
 data(cottonBolls, package = "tccPackage")
 
-niveis.des <- paste0(paste(unique(cottonBolls$des)*100,
+niveis.des <- paste0(paste(unique(cottonBolls$des) * 100,
                            collapse = ", "), "\\%")
 niveis.est <- paste(unique(cottonBolls$est), collapse = ", ")
 
@@ -77,7 +78,7 @@ xy1 <- xyplot(ncap ~ des | est,
               xlim = extendrange(c(0:1), f = 0.15),
               spread = 0.08,
               panel = panel.beeswarm,
-              par.settings = ps.sub,)
+              par.settings = ps.sub)
 
 ## Média e variância amostral para cada unidade experimental
 mv <- aggregate(ncap ~ est + des, data = cottonBolls,
@@ -105,10 +106,11 @@ fonte.xy("Fonte: Traduzido de Zeviani et al. (Figura 2)")
 
 @
 
-\datatitle{Avaliação da Exposição à Mosca-branca na produção da cultura
+\subsubsection{Avaliação da Exposição à Mosca-branca na produção da cultura
   de algodão}
+\label{sec:cottonBolls2}
 
-<<data-cottonBolls2, include=FALSE>>=
+<<data-cottonBolls2, include=FALSE, echo=FALSE>>=
 
 data(cottonBolls2, package = "tccPackage")
 
@@ -218,10 +220,11 @@ mv <- cbind(mvr[1:6, 1], mv[1:6, ], mv[7:12, ], mv[13:18, ])
 \end{tablenotes}
 \end{table}
 
-\datatitle{Avaliação de Umidade do Solo e Doses de Potássio na Cultura
+\subsubsection{Avaliação de Umidade do Solo e Doses de Potássio na Cultura
   da Soja}
+\label{sec:soyaBeans}
 
-<<data-soyaBeans, include=FALSE>>=
+<<data-soyaBeans, include=FALSE, echo=FALSE>>=
 
 data(soyaBeans, package = "tccPackage")
 soyaBeans <- soyaBeans[-74, ] ## outlier identificado
@@ -252,11 +255,11 @@ xyplot(ngra + nvag ~ K | umid,
        data = soyaBeans,
        xlab = "Nível de adubação potássica",
        ylab = "Contagem",
-       type = c("p", "g", "smooth"),
+       type = c("p", "g", "a"),
        key = key,
        layout = c(NA, 1),
        strip = strip.custom(
-           strip.names = TRUE, var.name = "Umidade s"),
+           strip.names = TRUE, var.name = "Umidade"),
        par.settings = ps.sub)
 
 fonte.xy("Fonte: Elaborado pelo autor.")
@@ -339,9 +342,10 @@ fonte.xy("Fonte: Elaborado pelo autor.")
 
 @
 
-\datatitle{Ocorrência de Ninfas de Mosca-Branca em Lavoura de Soja}
+\subsubsection{Ocorrência de Ninfas de Mosca-Branca em Lavoura de Soja}
+\label{sec:whiteFly}
 
-<<data-whiteFly, include=FALSE>>=
+<<data-whiteFly, include=FALSE, echo=FALSE>>=
 
 data(whiteFly, package = "tccPackage")
 
@@ -408,12 +412,12 @@ fonte.xy("Fonte: Elaborado pelo autor")
 
 @
 
-\datatitle{Peixes Capturados por Pescadores em um Parque Estadual}
+\subsubsection{Peixes Capturados por Pescadores em um Parque Estadual}
+\label{sec:fish}
 
-<<data-fish, include=FALSE>>=
+<<data-fish, include=FALSE, echo=FALSE>>=
 
 data(fish, package = "tccPackage")
-str(fish)
 
 @
 
@@ -473,12 +477,12 @@ suppressWarnings({
 
 @
 
-\datatitle{Número de Nematóides em Raízes de Feijoeiro}
+\subsubsection{Número de Nematóides em Raízes de Feijoeiro}
+\label{sec:nematodes}
 
-<<data-nematodes, include=FALSE>>=
+<<data-nematodes, include=FALSE, echo=FALSE>>=
 
 data(nematodes, package = "tccPackage")
-str(nematodes)
 
 @