Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
MRDCr
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
leg
MRDCr
Commits
c99f458c
Commit
c99f458c
authored
May 12, 2016
by
Walmes Marques Zeviani
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Adiciona código da sessão exemplos do nematoide.
parent
f47d0eb8
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
102 additions
and
0 deletions
+102
-0
R/nematoide.R
R/nematoide.R
+27
-0
man/nematoide.Rd
man/nematoide.Rd
+75
-0
No files found.
R/nematoide.R
View file @
c99f458c
...
...
@@ -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
man/nematoide.Rd
0 → 100644
View file @
c99f458c
% 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)
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment