# Define 30 items divided by ten triplets as blocks
blocks <- matrix(c(1:30), ncol = 3)
# Add one block to link the first three blocks.
blocks <- rbind(blocks,c(1,2,3))
# Find mata blocks
metablock(blocks)
Run the code above in your browser using DataLab