Remove chunck do pacote VGAM.

parent c99f458c
Pipeline #4374 failed with stage
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
...@@ -26,6 +26,7 @@ library(plyr) ...@@ -26,6 +26,7 @@ library(plyr)
library(car) library(car)
library(doBy) library(doBy)
library(multcomp) library(multcomp)
library(MRDCr)
``` ```
## Função Densidade ## ## Função Densidade ##
...@@ -715,16 +716,16 @@ linearHypothesis(model = m0, ...@@ -715,16 +716,16 @@ linearHypothesis(model = m0,
# Por causa do offset, não tem como usar a LSmatrix. # Por causa do offset, não tem como usar a LSmatrix.
pred <- unique(subset(soja, select = c("umid", "K"))) pred <- unique(subset(soja, select = c("umid", "K")))
str(pred)
pred <- list(pois = pred, quasi = pred, pgen = pred)
X <- model.matrix(formula(m0)[-2], X <- model.matrix(formula(m0)[-2],
data = cbind(nvag = 1, bloc = soja$bloc[1], pred)) data = cbind(nvag = 1, bloc = soja$bloc[1], pred))
i <- grep(x = colnames(X), pattern = "^bloc") i <- grep(x = colnames(X), pattern = "^bloc")
X[, i] <- X[, i] * 0 + 1/(length(i) + 1) X[, i] <- X[, i] * 0 + 1/(length(i) + 1)
head(X) head(X)
pred <- list(pois = pred, quasi = pred, pgen = pred)
# Quantil normal. # Quantil normal.
qn <- qnorm(0.975) * c(lwr = -1, fit = 0, upr = 1) qn <- qnorm(0.975) * c(lwr = -1, fit = 0, upr = 1)
...@@ -939,7 +940,7 @@ update(p1, type = "p", layout = c(NA, 1), ...@@ -939,7 +940,7 @@ update(p1, type = "p", layout = c(NA, 1),
## Número de Nematóides em Linhagens de Feijão ## Número de Nematóides em Linhagens de Feijão
```{r} ```{r, eval=FALSE}
data(nematoide, package = "MRDCr") data(nematoide, package = "MRDCr")
str(nematoide) str(nematoide)
...@@ -1101,20 +1102,3 @@ xyplot(nema/off ~ cult, data = nematoide, ...@@ -1101,20 +1102,3 @@ xyplot(nema/off ~ cult, data = nematoide,
scale = FALSE), scale = FALSE),
panel = panel.cbH)) 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)
```
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment