powered by
dropvar(x, tol=1e-07, LAPACK=FALSE, silent=FALSE)
qr
drop.coef
ordinal
isat
set.seed(1) x <- matrix(rnorm(20), 5) dropvar(x) #full rank, none are dropped x[,4] <- x[,1]*2 dropvar(x) #less than full rank, last column dropped
Run the code above in your browser using DataLab