rrvglm
are set
using this function.rrvglm.control(Rank = 1, Algorithm = c("alternating", "derivative"),
Corner = TRUE, Uncorrelated.latvar = FALSE,
Wmat = NULL, Svd.arg = FALSE,
Index.corner = if (length(szero))
head((1:1000)[-szero], Rank) else 1:Rank,
Ainit = NULL, Alpha = 0.5, Bestof = 1, Cinit = NULL,
Etamat.colmax = 10,
sd.Ainit = 0.02, sd.Cinit = 0.02, szero = NULL,
noRRR = ~1, Norrr = NA,
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 constraint does noAlpha
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 valueIndex.corner
, and
be a subset of the vector Use.Init.Poisson.QO = FALSE
.noRRR
specifes which explanatory variables
are in the $x_1$ vector of rrvglm
,
anoRRR
.
Use of Norrr
will become an error soon..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.control
summary
of RR-VGLM objects.rrvglm
,
rrvglm.optim.control
,
rrvglm-class
,
vglm
,
vglm.control
,
cqo
.set.seed(111)
pneumo <- transform(pneumo, let = log(exposure.time),
x3 = runif(nrow(pneumo))) # x3 is random noise
fit <- rrvglm(cbind(normal, mild, severe) ~ let + x3,
multinomial, pneumo, Rank = 1, Index.corner = 2)
constraints(fit)
vcov(fit)
summary(fit)
Run the code above in your browser using DataLab