data(sample.ExpressionSet, package="Biobase")
rqubic.example.discret <- quantileDiscretize(sample.ExpressionSet, rank=2L)
rqubic.example.sel.seeds <- generateSeeds(rqubic.example.discret, minColWidth=2L)
rqubic.example.blocks <- quBicluster(rqubic.example.sel.seeds,
rqubic.example.discret,
report.no=200L,
filter.proportion=0.1)
## print features in each bicluster
BCfeatures(rqubic.example.blocks)
Run the code above in your browser using DataLab