Displaying 2 results from an estimated 2 matches for "qr_qy_cmplx".
2004 Mar 01
0
se.contrast ....too hard??? .... Too easy????? .....too trivial???? ...... Too boring.....too????????
...ve"),data=ddata)
debugging in: qr.qty(e.qr, contrast)
debug: {
if (!is.qr(qr))
stop("argument is not a QR decomposition")
if (is.complex(qr$qr)) {
y <- as.matrix(y)
if (!is.complex(y))
y[] <- as.complex(y)
return(.Call("qr_qy_cmplx", qr, y, 1, PACKAGE = "base"))
}
a <- attr(qr, "useLAPACK")
if (!is.null(a) && is.logical(a) && a)
return(.Call("qr_qy_real", qr, as.matrix(y), 1, PACKAGE =
"base"))
n <- nrow(qr$qr)
k <- as.integer(q...
2002 May 30
0
se.contrast: matrix contrast.obj doesn't work as documented (PR#1613)
...,1), reading.df)
debugging in: qr.qty(object$qr, contrast)
debug: {
if (!is.qr(qr))
stop("argument is not a QR decomposition")
if (is.complex(qr$qr)) {
y <- as.matrix(y)
if (!is.complex(y))
y[] <- as.complex(y)
return(.Call("qr_qy_cmplx", qr, y, 1, PACKAGE = "base"))
}
n <- nrow(qr$qr)
p <- ncol(qr$qr)
k <- as.integer(qr$rank)
ny <- NCOL(y)
if (NROW(y) != n)
stop("qr and y must have the same number of rows")
storage.mode(y) <- "double"
.Fort...