Last chance! 50% off unlimited learning
Sale ends in
predict.qrrvglm(object, newdata=NULL,
type=c("link", "response", "lv", "terms"),
se.fit=FALSE, deriv=0, dispersion=NULL,
extra=object@extra, varlvI = FALSE, reference = NULL, ...)
"qrrvglm"
.predict.vglm
.Coef.qrrvglm
.predict.vglm
.cqo
.data(hspider)
hspider[,1:6]=scale(hspider[,1:6]) # Standardize the environmental variables
set.seed(1234)
p1 = cqo(cbind(Alopacce, Alopcune, Alopfabr, Arctlute, Arctperi, Auloalbi,
Pardlugu, Pardmont, Pardnigr, Pardpull, Trocterr, Zoraspin) ~
WaterCon + BareSand + FallTwig + CoveMoss + CoveHerb + ReflLux,
fam=poissonff, data=hspider, Crow1positive=FALSE, ITol=TRUE)
sort(p1@misc$deviance.Bestof) # A history of all the iterations
predict(p1)[1:3,]
# The following should be all zeros
max(abs(predict(p1, new=hspider[1:3,]) - predict(p1)[1:3,]))
max(abs(predict(p1, new=hspider[1:3,], type="res") - fitted(p1)[1:3,]))
Run the code above in your browser using DataLab