Finalizado Documentacao Tb1.(1-2) e Documentado Tb1.3

R/BorgesTb1.1.R

@@ -24,6 +24,26 @@
 #'  
 #'  @example 
 #'  
+#'  ## Carregando pacotes necessrios ----------------------------------
+#'  
 #'  library(lattice)
+#'  
+#'  ## Carregando o banco de dados -------------------------------------
+#'  
 #'  data(BorgesTb1.1)
 #'  
+#'  ## Plotando o grfico ----------------------------------------------
+#'  
+#'  xyplot(fd ~ fo, data = BorgesTb1.1,
+#'      main = "Orgnico VS Disponvel",
+#'      xlab = "Fsforo Orgnico",
+#'      ylab = "Fsforo Disponvel",
+#'      panel = function(x, y) {
+#'          panel.xyplot(x, y)
+#'          panel.abline(lm(y ~ x), col=3)
+#'      })
+#'      
+#'  ## Verificando Significncia ---------------------------------------
+#'  
+#'  summary(lm(fd ~ fo, data=BorgesTb1.1))
+#'  
\ No newline at end of file

R/BorgesTb1.2.R

@@ -25,6 +25,26 @@
 #'  
 #'  @example 
 #'  
+#'  ## 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))
+#'  
\ No newline at end of file

R/BorgesTb1.3.R

+#'  @name BorgesTb1.2
+#'  @title Tensiômetro
+#'  
+#'  @description Foi observado a construção de um tensiômetro de leitura
+#'  direta, obtendo-se os resultados de altura da câmara e tensão da 
+#'  água no solo.
+#'  
+#'  @format Um data.frame de 9 linhas e 2 colunas.
+#'  
+#'  \describe{
+#'  
+#'      \item{\code{altura}}{ Altura da câmara do tensiômetro medida 
+#'      em milímetros (mm). }
+#'      
+#'      \item{\code{tensao}}{ Tensão da água no solo medida em mb }
+#'  
+#'  }
+#'  
+#'  @keywords tensiômetro
+#'  
+#'  @source Borges, C. G., Demétrio, & Zocchi, S. S. (2011). 
+#'  Modelo de Regressão. Piracicaba, SP: USP.
+#'  
+#'  @example 
+#'  
+#'  ## Carregando pacotes necessários ----------------------------------
+#'  
+#'  library(lattice)
+#'  
+#'  ## Carregando o banco de dados -------------------------------------
+#'  
+#'  data(BorgesTb1.3)
+#'  
+#'  ## Plotando o gráfico ----------------------------------------------
+#'  
+#'  xyplot(tensao ~ altura, data = BorgesTb1.3,
+#'      main = "Altura VS Tensão",
+#'      xlab = "Altura do Tensiômetro",
+#'      ylab = "Tensão da Água")
+#'      
+#'  ## Medidas de Posição ----------------------------------------------
+#'  
+#'  summary(BorgesTb1.3)
+#'  
\ No newline at end of file