# NOT RUN {
# Data
data("m_matrix", package = "biosurvey")
# Making blocks for analysis
m_blocks <- make_blocks(m_matrix, variable_1 = "PC1",
variable_2 = "PC2", n_cols = 10, n_rows = 10,
block_type = "equal_area")
# Checking column names and values in variables to define initial distance
colnames(m_blocks$data_matrix)
summary(m_blocks$data_matrix[, c("PC1", "PC2")])
# Selecting blocks uniformly in E space
block_sel <- block_sample(m_blocks, expected_blocks = 10,
selection_type = "uniform")
head(block_sel$data_matrix)
# }
Run the code above in your browser using DataLab