Description Details Author(s) References See Also Examples
Plot a 2D or 3D hierarchical biclustering with respectively, hbiclust.plot and forestogram.
TESTING DESCRIPTION.
Mohammad Sajjad Ghaemi
~~ Literature or other references for background information ~~
~~ <pkg>
~~
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | set.seed(150)
row=3
col=3
a=cbind2(matrix( rnorm(row*col,mean=0,sd=1), row, col) , matrix( rnorm(row*col,mean=5,sd=1), row, col));
a=cbind2(a, matrix( rnorm(row*col,mean=5,sd=1), row, col));
b=cbind2(matrix( rnorm(row*col,mean=-15,sd=1), row, col) , matrix( rnorm(row*col,mean=0,sd=1), row, col));
b=cbind2(b, matrix( rnorm(row*col,mean=15,sd=1), row, col));
d=cbind2(matrix( rnorm(row*col,mean=-25,sd=1), row, col) , matrix( rnorm(row*col,mean=0,sd=1), row, col));
d=cbind2(d, matrix( rnorm(row*col,mean=25,sd=1), row, col));
c=rbind2(a,b);
c=rbind2(c,d);
row=9
col=9
b<-hbiclust(c, method="ward")
forestogram(b, cut_height = b$hcut,
line_width = 3.0,
interpolate_tree_colors = FALSE,
cut_base_alpha = 0.4,
draw_only_from_cut =FALSE);
cutforest(b, k=9)
hbiclust.plot(b, cut_height = b$hcut);
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.