# NOT RUN {
#combine output of two biclust objects
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)
set.seed(1)
PlaidRes1 <- biclust(x=test, method=BCPlaid())
set.seed(2)
PlaidRes2 <- biclust(x=test, method=BCPlaid())
combinedRes <- combine(PlaidRes1,PlaidRes2)
summary(combinedRes)
# }
Run the code above in your browser using DataLab