lm(): что такое qraux, возвращаемое разложением QR в LINPACK / LAPACK

Question

rich.main3 является линейной моделью в R. Я понимаю остальные элементы списка, но я не понимаю, что qraux является. В документации говорится, что это

вектор длины ncol(x), который содержит дополнительную информацию о \bold{Q}".

Какая дополнительная информация это означает?

str(rich.main3$qr)

qr   : num [1:164, 1:147] -12.8062 0.0781 0.0781 0.0781 0.0781 ...


..- attr(*, "dimnames")=List of 2
  .. ..$ : chr [1:164] "1" "2" "3" "4" ...
  .. ..$ : chr [1:147] "(Intercept)" "S2" "S3" "x1" ...
  ..- attr(*, "assign")= int [1:147] 0 1 1 2 3 4 5 6 7 8 ...
  ..- attr(*, "contrasts")=List of 3
  .. ..$ S    : chr "contr.treatment"
  .. ..$ ID   : chr "contr.treatment"
  .. ..$ Block: chr "contr.treatment"
 $ qraux: num [1:147] 1.08 1.06 1.16 1.21 1.27 ...
 $ pivot: int [1:147] 1 2 3 4 5 6 7 8 10 11 ...
 $ tol  : num 1e-07
 $ rank : int 21
 - attr(*, "class")= chr "qr"

Answer 1

Предположительно, вы не знаете, как вычисляется QR-факторизация. Я написал следующее в LaTeX, которое может помочь вам прояснить это. Конечно, на сайте программирования мне нужно показать вам некоторый код. В конце я предлагаю вам игрушечную R-функцию, вычисляющую отражение Домохозяина.

---

Матрица отражения домохозяина

Преобразование домохозяина

QR-факторизация домохозяина (без поворота)

Компактное хранение QR и масштабирование

---

Вспомогательная программа LAPACK dlarfg выполняет преобразование Домохозяина. Я также написал следующую игрушку R функцию для демонстрации:

dlarfg <- function (x) {
  beta <- -1 * sign(x[1]) * sqrt(as.numeric(crossprod(x)))
  v <- c(1, x[-1] / (x[1] - beta))
  tau <- 1 - x[1] / beta
  y <- c(beta, rep(0, length(x)-1L))
  packed_yv <- c(beta, v[-1])
  oo <- cbind(x, y, v, packed_yv)
  attr(oo, "tau") <- tau
  oo
  }

Предположим, у нас есть входной вектор

set.seed(0); x <- rnorm(5)

моя функция дает:

dlarfg(x)
#              x         y           v   packed_yv
#[1,]  1.2629543 -2.293655  1.00000000 -2.29365466
#[2,] -0.3262334  0.000000 -0.09172596 -0.09172596
#[3,]  1.3297993  0.000000  0.37389527  0.37389527
#[4,]  1.2724293  0.000000  0.35776475  0.35776475
#[5,]  0.4146414  0.000000  0.11658336  0.11658336
#attr(,"tau")
#[1] 1.55063