powered by
qrBlockApply(x, y = NULL, blockSize = NULL)
ff
crossprod(x)
y
biglars.fit
data(diabetes) qrx <- qr(diabetes$x) list(R = qr.R(qrx), Qty = crossprod(qr.Q(qrx), diabetes$y)) qrBlockApply( diabetes$x, diabetes$y, blockSize = 34)
Run the code above in your browser using DataLab