set.seed(1)
n <- 10; p <- 4
X <- matrix(rnorm(n * p), n, p)
y <- rnorm(n)
res1 <- fastQR::qr_lse_Qty(X, y)
## reference computation
res2 <- crossprod(base::qr.Q(base::qr(X), complete = TRUE), y)
max(abs(res1 - drop(res2)))
Run the code above in your browser using DataLab