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)
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)
```
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