# NOT RUN {
# Data
data("m_matrix", package = "biosurvey")
# Creating blocks
m_blocks <- make_blocks(m_matrix, variable_1 = "PC1",
variable_2 = "PC2", n_cols = 10, n_rows = 10,
block_type = "equal_area")
plot_blocks_EG(master = m_blocks, block_ID = TRUE)
plot_blocks_E(master = m_blocks)
plot_blocks_G(master = m_blocks)
# Defining your own colors
n_blocks <- length(m_blocks$data_matrix$Block)
your_palette <- sample(heat.colors(n_blocks), n_blocks)
block_factor <- as.factor(m_blocks$data_matrix$Block)
your_colors <- your_palette[block_factor]
plot_blocks_EG(master = m_blocks, block_ID = TRUE, col_all = your_colors)
# }
Run the code above in your browser using DataLab