From c99f458c4666b6919e78d5d2434dd28e49129772 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 12 May 2016 15:31:21 -0300
Subject: [PATCH] =?UTF-8?q?Adiciona=20c=C3=B3digo=20da=20sess=C3=A3o=20exe?=
 =?UTF-8?q?mplos=20do=20nematoide.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/nematoide.R    | 27 +++++++++++++++++
 man/nematoide.Rd | 75 ++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 102 insertions(+)
 create mode 100644 man/nematoide.Rd

diff --git a/R/nematoide.R b/R/nematoide.R
index 1a5ba01..661bf0a 100644
--- a/R/nematoide.R
+++ b/R/nematoide.R
@@ -38,3 +38,30 @@
 #' O nome das cultivares, a espécie do nematóide e outras informações
 #'     não foram dadas para preservar a originalidade da Pesquisa.
 #' @examples
+#'
+#' m0 <- glm(nema ~ offset(log(off)) + cult,
+#'           data = nematoide,
+#'           family = poisson)
+#'
+#' # Diagnóstico.
+#' par(mfrow = c(2, 2))
+#' plot(m0); layout(1)
+#'
+#' # Estimativas dos parâmetros.
+#' summary(m0)
+#'
+#' # Quadro de deviance.
+#' anova(m0, test = "Chisq")
+#'
+#' library(bbmle)
+#'
+#' # Poisson Generalizada.
+#' m1 <- pgnz(formula(m0), data = nematoide)
+#'
+#' # Diferença de deviance.
+#' 2 * diff(c(logLik(m0), logLik(m1)))
+#'
+#' # Estimativas dos parâmetros.
+#' summary(m1)
+#'
+NULL
diff --git a/man/nematoide.Rd b/man/nematoide.Rd
new file mode 100644
index 0000000..f789c7c
--- /dev/null
+++ b/man/nematoide.Rd
@@ -0,0 +1,75 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/nematoide.R
+\name{nematoide}
+\alias{nematoide}
+\title{Número de Nematóides em Raízes de Feijoeiro}
+\format{Um \code{data.frame} com 94 observações e 4 variáveis.
+
+\describe{
+
+\item{\code{cult}}{Fator categórico que indica a linhagem de
+    feijoeiro semeada em vasos com solo contaminado com nematóide.}
+
+\item{\code{mfr}}{Massa fresca de raízes (g) produzida por parcela
+    (duas plantas) que foi lavada, triturada, peneirada e diluída
+    para fazer a contagem dos nematóides.}
+
+\item{\code{vol}}{Volume (ml) usado para diluir a massa fresca de
+    raízes. Esse volume foi agitado para homogeneização e depois uma
+    alíquota de 1 ml foi extraída e colocada em uma lâmina de
+    contagem.}
+
+\item{\code{nema}}{Número de nematóides na alíquota de 1 ml,
+    determinado por contagem direta na lâmina.}
+
+\item{\code{off}}{É o offset da contagem, o equivalente em massa de
+    fresca de raízes de uma aliquota de 1 ml, ou seja, é
+    \code{off = mfr/vol}.}
+
+}}
+\source{
+Cedido para fins acadêmicos por Andressa Cristina Zamboni
+    Machado, pesquisadora do Instituto Agronômico do Paraná (IAPAR),
+    e pelo técnico agrícola do IAPAR Santino Aleandro da Silva.
+
+O nome das cultivares, a espécie do nematóide e outras informações
+    não foram dadas para preservar a originalidade da Pesquisa.
+}
+\description{
+Resultados de um experimento em casa de vegetação que
+    estudou a reprodução de nematóides em cultivares/linhagens de
+    feijoeiro. O solo dos vasos foi inicialmente contaminado com
+    namatóides e as parcelas tiveram duas plantas. Ao final do
+    experimento, as raízes das duas plantas por parcela foram
+    lavadas, trituradas, peneiradas e diluídas para fazer a contagem
+    dos nematóides em aliquotas dessa solução.
+}
+\examples{
+
+m0 <- glm(nema ~ offset(log(off)) + cult,
+          data = nematoide,
+          family = poisson)
+
+# Diagnóstico.
+par(mfrow = c(2, 2))
+plot(m0); layout(1)
+
+# Estimativas dos parâmetros.
+summary(m0)
+
+# Quadro de deviance.
+anova(m0, test = "Chisq")
+
+library(bbmle)
+
+# Poisson Generalizada.
+m1 <- pgnz(formula(m0), data = nematoide)
+
+# Diferença de deviance.
+2 * diff(c(logLik(m0), logLik(m1)))
+
+# Estimativas dos parâmetros.
+summary(m1)
+
+}
+
-- 
GitLab