rrvglm are set
using this function.rrvglm.control(Rank = 1, Algorithm = c("alternating", "derivative"),
Corner = TRUE, Uncor = FALSE, Wmat = NULL, Svd.arg = FALSE,
Index.corner = if (length(Structural.zero))
((1:1000)[-Structural.zero])[1:Rank] else 1:Rank,
Alpha = 0.5, Bestof = 1, Cinit = NULL,
Etamat.colmax = 10,
SD.Cinit = 0.02, Structural.zero = NULL,
Norrr = ~1, trace = FALSE, Use.Init.Poisson.QO = FALSE,
checkwz = TRUE, wzepsilon = .Machine$double.eps^0.75, ...)TRUE, Index.corner specifies the $R$ rows
of the constraint matrices that are use as the corner constdiag(Rank), i.e., unit variance and uncorrelated. This conAlpha below.Bestof models fitted is
returned. This argument helps guard against local solutions by
(hopefully) finding the global solution from many fits. The
argument works only when the function generates its own initiaRank. Controls the amount
of memory used by .Init.Poisson.QO(). It is the maximum
number of columns allowed for the pseudo-response and its weights.
In general, the larger the valueUse.Init.Poisson.QO = FALSE..Init.Poisson.QO() should
be used to obtain initial values for the C. The function
uses a new method that can work well if the data are Poisson counts
coming from an equal-tolerances QRR-VGLMwzepsilon. If not,
any values less than wzepsilon are replacvglm.control. If the derivative algorithm is used, then
...are also passed into rrvglm.optim.controlsummary of RR-VGLM objects.rrvglm,
rrvglm.optim.control,
rrvglm-class,
vglm,
vglm.control,
cqo.data(pneumo)
set.seed(111)
pneumo = transform(pneumo, let=log(exposure.time),
x1 = runif(nrow(pneumo))) # x1 is some unrelated covariate
fit = rrvglm(cbind(normal, mild, severe) ~ let + x1,
multinomial, pneumo, Rank=1, Index.corner=2)
constraints(fit)
vcov(fit)
summary(fit)Run the code above in your browser using DataLab