Complementa documentação e simplifica exemplo na tabela 1.4

R/BorgesTb1.4.R

 #' @name BorgesTb1.4
 #' @title Concentração de Fósforo
 #' 
-#' @description Foram medidas as concentrações de fósforo inorgânico e 
-#' orgânico no solo. Posteriormente mediu-se o conteúdo de fósforo nas
-#' plantas crescidas no local.
+#' @description Dados referentes a medidas de concentrações de fósforo
+#'     inorgânico e orgânico no solo, onde posteriormente mediu-se o
+#'     conteúdo de fósforo nas plantas crescidas no local. O objetivo do
+#'     experimento é estudar a relação existente entre o conteúdo de
+#'     fósforo na planta e as duas fontes do elemento no solo.
 #'
-#'  O objetivo do experimento é estudar a relação existente entre o 
-#'  conteúdo de fósforo na planta e duas fontes do elemento no solo.
-#' 
-#' @format Um \code{data.frame} de 18 linhas e 3 colunas.
+#' @format Um \code{data.frame} com 18 linhas e 3 colunas.
 #' 
 #' \describe{
 #' 
@@ -28,44 +27,21 @@
 #' 
 #' @examples
 #' 
-#' ## Carregando pacotes necessários -----------------------------------
-#' 
-#' library(lattice)
-#' 
-#' ## Carregando o banco de dados --------------------------------------
-#' 
 #' data(BorgesTb1.4)
 #' 
-#' ## Plotando o gráfico -----------------------------------------------
+#' pairs(BorgesTb1.4, main = "Dispersão em Pares")
 #'
-#' pairs(~ cfi + cfo + conteudo, data = BorgesTb1.4,
-#'     main = "Dispersão em Pares")
+#' library(lattice)
 #' 
 #' xyplot(conteudo ~ cfi, data = BorgesTb1.4, 
 #'        main = "Fósforo Inorgânico VS Conteúdo",
 #'        xlab = "Fósforo Inorgânico",
 #'        ylab = "Conteúdo na Planta",
-#'         panel = function(x, y){
-#'         panel.xyplot(x, y)
-#'         panel.abline(lm(y ~ x), col = 3)
-#'     })
+#'        type = c("p", "r"), col.line = 3)
 #' 
 #' xyplot(conteudo ~ cfo, data = BorgesTb1.4,
 #'        main = "Fósforo Orgânico VS Conteúdo",
 #'        xlab = "Fósforo Orgânico",
 #'        ylab = "Conteúdo na Planta", 
-#'     panel = function(x, y){
-#'         panel.xyplot(x, y)
-#'         panel.abline(lm(y ~ x), col = 3)
-#'     })
-#'     
-#' ## Medidas de Posição -----------------------------------------------
-#' 
-#' summary(BorgesTb1.4)
-#' 
-#' ## Verificação de Significância -------------------------------------
-#' 
-#' summary(lm(conteudo ~ cfi , data = BorgesTb1.4))
-#' summary(lm(conteudo ~ cfo , data = BorgesTb1.4))
-#'
+#'        type = c("p", "r"), col.line = 3)
 NULL