Commit 71508b1a by Walmes Marques Zeviani

### 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!