Skip to content
Snippets Groups Projects
Commit 71508b1a authored by Walmes Marques Zeviani's avatar Walmes Marques Zeviani
Browse files

Remove chunck do pacote VGAM.

parent c99f458c
Branches
No related tags found
No related merge requests found
Pipeline #
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -26,6 +26,7 @@ library(plyr)
library(car)
library(doBy)
library(multcomp)
library(MRDCr)
```
## Função Densidade ##
......@@ -715,16 +716,16 @@ linearHypothesis(model = m0,
# Por causa do offset, não tem como usar a LSmatrix.
pred <- unique(subset(soja, select = c("umid", "K")))
str(pred)
pred <- list(pois = pred, quasi = pred, pgen = pred)
X <- model.matrix(formula(m0)[-2],
data = cbind(nvag = 1, bloc = soja$bloc[1], pred))
i <- grep(x = colnames(X), pattern = "^bloc")
X[, i] <- X[, i] * 0 + 1/(length(i) + 1)
head(X)
pred <- list(pois = pred, quasi = pred, pgen = pred)
# Quantil normal.
qn <- qnorm(0.975) * c(lwr = -1, fit = 0, upr = 1)
......@@ -939,7 +940,7 @@ update(p1, type = "p", layout = c(NA, 1),
## Número de Nematóides em Linhagens de Feijão
```{r}
```{r, eval=FALSE}
data(nematoide, package = "MRDCr")
str(nematoide)
......@@ -1101,20 +1102,3 @@ xyplot(nema/off ~ cult, data = nematoide,
scale = FALSE),
panel = panel.cbH))
```
## Pacote VGAM ##
```{r, eval=FALSE}
#-----------------------------------------------------------------------
# http://finzi.psych.upenn.edu/library/VGAM/html/genpoisson.html
library(VGAM)
m1 <- vglm(ncap ~ est * (des + I(des^2)),
data = capdesfo, family = genpoisson, trace = TRUE)
coef(m1, matrix = TRUE)
summary(m1)
logLik(m1)
```
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment