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(rqubic.example.blocks)
print(fcFilter(rqubic.example.blocks,feat.min=10))
print(fcFilter(rqubic.example.blocks,cond.min=2))
print(fcFilter(rqubic.example.blocks,feat.min=10, cond.min=2))
Run the code above in your browser using DataLab