# NOT RUN {
#compute sensitivity for BiMAX biclusters
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)
testBin <- binarize(test,2)
res <- biclust(x=testBin, method=BCBimax(), minr=4, minc=4, number=10)
BiMaxBiclustSet <- BiclustSet(res)
SensitivityMatr<- similarity(BiMaxBiclustSet,index="sensitivity", type="rows")
SensitivityMatr
# }
Run the code above in your browser using DataLab