1 |
X |
|
coef |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (X, coef = FALSE)
{
q <- qr(X)
sel <- q$pivot[seq_len(q$rank)]
ret <- X[, sel]
attr(ret, "cols") <- sel
if (coef)
attr(ret, "R") <- qr.coef(qr(ret), mat)
colnames(ret) <- colnames(X)[sel]
ret
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.