QR Factorization Formula for R