Displaying 1 result from an estimated 1 matches for "corstrv".
Did you mean:
corstr
2010 Jun 17
0
Modifyiing R working matrix within "gee" source code
...s.integer(match(c(family$link), links, -1))
famv <- match(family$family, fams, -1)
if (famv < 1)
stop("unknown family")
if (famv <= 4)
varfunv <- famv
else varfunv <- match(family$varfun, varfuns, -1)
varfunv <- as.integer(varfunv)
corstrv <- as.integer(match(corstr, corstrs, -1))
if (linkv < 1)
stop("unknown link.")
if (varfunv < 1)
stop("unknown varfun.")
if (corstrv < 1)
stop("unknown corstr.")
naivvar <- matrix(rep(0, p * p), nrow = p)
robvar...