aggregation_factor_name <- c("Year", "Bloc")
weights_factor = TAD::AB[, c("Year", "Plot", "Treatment", "Bloc")]
aggregation_factor <- as.data.frame(
weights_factor[, aggregation_factor_name]
)
random_matrix <- TAD::generate_random_matrix(
weights = TAD::AB[, 5:102],
aggregation_factor = aggregation_factor,
randomization_number = 100,
seed = 1312
)
head(random_matrix)
Run the code above in your browser using DataLab