Corrige documentação e simplifica exemplo na tabela 1.2

R/BorgesTb1.2.R

 #' @name BorgesTb1.2
 #' @title Irrigação em Batata
 #' 
-#' @description Foram medidas as lâminas de água a diferentes 
-#'  disntâncias do aspersor. O objetivo foi mensurar a produtividade, 
-#'  já que, no tipo de solo utilizado no experimento (solo argiloso),
-#'  espera-se que o excesso de água diminua a produtividade.
+#' @description Este experimento refere-se a irrigação em batata
+#'     plantada em terra roxa estruturada. Foram medidas as lâminas de
+#'     água a diferentes distâncias do aspersor. O objetivo foi mensurar
+#'     a produtividade, já que, no tipo de solo utilizado no experimento
+#'     (solo argiloso), espera-se que o excesso de água diminua a
+#'     produtividade.
 #' 
-#' @format Um \code{data.frame} de 12 linhas e 2 colunas.
+#' @format Um \code{data.frame} com 12 linhas e 2 colunas.
 #' 
 #' \describe{
 #' 
@@ -25,27 +27,13 @@
 #' 
 #' @examples
 #' 
-#' ## Carregando pacotes necessários -----------------------------------
-#' 
 #' library(lattice)
 #' 
-#' ## Carregando o banco de dados --------------------------------------
-#' 
 #' data(BorgesTb1.2)
 #' 
-#' ## Plotando o gráfico -----------------------------------------------
-#' 
 #' xyplot(prod ~ lamina, data = BorgesTb1.2,
 #'        main = "Produção VS Lâmina de Água",
-#'     xlab = "Lâmina",
-#'     ylab = "Produção",
-#'     panel = function(x, y) {
-#'         panel.xyplot(x, y)
-#'         panel.abline(lm(y ~ x), col = 3)
-#'     })
-#'     
-#' ## Verificando Significância ----------------------------------------
-#' 
-#' summary(lm(prod ~ lamina, data = BorgesTb1.2))
-#'
+#'        xlab = "Lâmina de água (mm)",
+#'        ylab = "Produção (t/ha)",
+#'        type = c("p", "r"), col.line = 3)
 NULL