confint.default: re-fix case of unnamed vcov, without breaking other cases this time....

git-svn-id: https://svn.r-project.org/R/trunk@88811 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: pd

src/library/stats/R/confint.R

@@ -164,14 +164,18 @@ confint.default <- function (object, parm, level = 0.95, ...)
     pnames <- names(cf)
     if(missing(parm)) parm <- pnames
     else if(is.numeric(parm)) parm <- pnames[parm]
-    parm_num <- match(parm, pnames) # in case names are missing from vcov
+    V <- vcov(object)
+    ### Fixup for cases where V is not named
+    ### Will break if dimensions don't match between cf and V,
+    ### but without names, you can't really tell how things line up
+    if (is.null(dimnames(V))) dimnames(V) <- list(pnames,pnames)
     a <- (1 - level)/2
     a <- c(a, 1 - a)
     pct <- .format_perc(a, 3)
     fac <- qnorm(a)
     ci <- array(NA, dim = c(length(parm), 2L),
 		dimnames = list(parm, pct))
-    ses <- sqrt(diag(vcov(object)))[parm_num]
+    ses <- sqrt(diag(V))[parm]
     ci[] <- cf[parm] + ses %o% fac
     ci
 }