# NOT RUN {
data("synthetic")
bc <- biclustermd(synthetic, col_clusters = 3, row_clusters = 2,
miss_val = mean(synthetic, na.rm = TRUE),
miss_val_sd = sd(synthetic, na.rm = TRUE),
col_min_num = 2, row_min_num = 2,
col_num_to_move = 1, row_num_to_move = 1,
max.iter = 10)
bc
autoplot(bc)
autoplot(bc, axis.text = c('x', 'row')) +
ggplot2::scale_fill_distiller(palette = "Spectral", na.value = "white")
# Complete shading
autoplot(bc, axis.text = c('col', 'row'), cell_alpha = 1)
# Transformed values and no shading
autoplot(bc, transform_colors = TRUE, c = 1/20, cell_alpha = 0)
# Focus on row cluster 1 and column cluster 2
autoplot(bc, col_clusts = 2, row_clusts = 1)
# }
Run the code above in your browser using DataLab