library("strucchange")
X <- cbind(1, rnorm(100))
solveCrossprod(X) [,1] [,2]
[1,] 0.0100063596 0.0002520616
[2,] 0.0002520616 0.0099904270
[,1] [,2]
[1,] 0.0100063596 0.0002520616
[2,] 0.0002520616 0.0099904270