x <- ModelMatrix(SSBtoolsData("z2"), formula = ~fylke + kostragr * hovedint - 1)
GaussIndependent(x)
GaussRank(x)
GaussRank(t(x))
if (FALSE) {
# For comparison, qr-based rank may not work
rankMatrix(x, method = "qr")
# Dense qr works
qr(as.matrix(x))$rank
}
Run the code above in your browser using DataLab