# NOT RUN {
x <- ModelMatrix(SSBtoolsData("z2"), formula = ~fylke + kostragr * hovedint - 1)
GaussIndependent(x)
GaussRank(x)
GaussRank(t(x))
# }
# NOT RUN {
# 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