# NOT RUN {
# Data
dat <- matrix(runif(800), ncol = 4)
xlims <- quantile(dat[, 3])
ylims <- quantile(dat[, 4])
# Assigning blocks
datb <- assign_blocks(dat, variable_1 = 3, variable_2 = 4, n_cols = 10,
xlb = xlims, ylb = ylims, block_type = "equal_area")
# }
Run the code above in your browser using DataLab