# NOT RUN {
mat <- matrix(rnorm(200*100),ncol=200) # standard matrix
bmat <- as.big.matrix(mat) # big.matrix
ii1 <- uniform.select(bmat,.05,rows=TRUE) # thin down to 5% of the rows
ii2 <- uniform.select(bmat,45,rows=FALSE,random=TRUE) # thin down to 45 columns
prv(ii1,ii2)
# }
Run the code above in your browser using DataLab