Verifica documentação e adiciona tabela RamalhoTb3.1 ao pacote.

R/RamalhoTb3.1.R

+#' @name RamalhoTb3.1
+#' @title Número de nematóides por vasos.
+#' @description Experimento do número de nematóides (vermes que estão 
+#'     presentes no solo) por vasos infectando plantas de figo em 
+#'     diferentes idades de inoculação, experimento com 4 repetições.
+#' @format data.frame com 16 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{dias}{Idade de inoculação, tratamento.}
+#' 
+#' \item{rep}{Número que indica as repetições de cada tratamento.}
+#'
+#' \item{nemat}{Número de nematóides por vaso coletado.}
+#'
+#' }
+#' @keywords figo nematóides
+#' @source Ramalho, M. A. P., Ferreira, D. F. & Oliveira, A. C. (2005). 
+#'     Experimentação em Genética e Melhoramento de Plantas (2th ed.). 
+#'     Lavras: UFLA. (pg 43)
+#'
+#' @examples
+#'
+#' library(lattice)
+#' 
+#' data(RamalhoTb3.1)
+#' 
+#' # Dados originais
+#' 
+#' aggregate(nemat ~ dias, data = RamalhoTb3.1,
+#'          FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#' 
+#' plot(nemat ~ dias, data = RamalhoTb3.1, 
+#'     ylab = "Número de Nematóides")
+#' 
+#' # Dados aplicando logaritmo 
+#' 
+#' aggregate(log(nemat) ~ dias, data = RamalhoTb3.1,
+#'       FUN = function(x) { c(mean = mean(x), var = var(x)) })
+#' 
+#' plot(log(nemat) ~ dias, data = RamalhoTb3.1)
+#' 
+NULL

data-raw/RamalhoTb3.1.txt

+dias	rep	nemat
+90	1	10925
+180	1	192
+270	1	87
+360	1	29
+90	2	1147
+180	2	151
+270	2	77
+360	2	23
+90	3	1564
+180	3	241
+270	3	183
+360	3	40
+90	4	1390
+180	4	141
+270	4	118
+360	4	30