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(str0)) 
    head((1:1000)[-str0], Rank) else 1:Rank,
    Ainit = NULL, Alpha = 0.5, Bestof = 1, Cinit = NULL,
    Etamat.colmax = 10,
    sd.Ainit = 0.02, sd.Cinit = 0.02, str0 = NULL,
    noRRR = ~1, Norrr = NA,
    noWarning = FALSE,
    trace = FALSE, Use.Init.Poisson.QO = FALSE, 
    checkwz = TRUE, Check.rank = 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.vglm.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.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, data = pneumo, Rank = 1, Index.corner = 2)
constraints(fit)
vcov(fit)
summary(fit)Run the code above in your browser using DataLab