# NOT RUN {
test <- matrix(rnorm(5000), 100, 50)
test[11:20,11:20] <- rnorm(100, 3, 0.1)
test[17:26,21:30] <- rnorm(100, 3, 0.1)
#Run FABIA
set.seed(1)
FabiaRes1 <- fabia(test)
#construct BiclustSet object from FABIA output
FabiabiclustSet <- BiclustSet(FabiaRes1)
FabiabiclustSet
# }
Run the code above in your browser using DataLab