# NOT RUN {
<!-- %loma<-matrix(sample(c(0,1),1600,replace=TRUE),40,40) -->
# }
# NOT RUN {
test <- matrix(rnorm(5000), 100, 50)
test[11:20,11:20] <- rnorm(100, 3, 0.1)
loma <- binarize(test,2)
res <- biclust(x=loma, method=BCBimax(), minr=4, minc=4, number=10)
res
# }
Run the code above in your browser using DataLab