Rozkład QR różni się w lm i biglm?

Próbuję odzyskać macierz R z rozkładu QR użytego w biglm. W tym celu używam części kodu w vcov.biglm i umieszczam go w takiej funkcji: