# NOT RUN {
library(Matrix)
x <- Matrix(rnorm(9), 3, 3)
# }
# NOT RUN {
qrx <- qr(x) # QR factorization of x
y <- rnorm(3)
facmul( qr(x), factor = "Q", y) # form Q y
# }
Run the code above in your browser using DataCamp Workspace