# Define a matrix of blocks
blocks <- matrix(1:15,ncol=3, byrow=TRUE)
# define the item-to-factor relation
itf <- rep(1:3,5)
# Get the extra blocks for a partially linked design
get.xblocks.any(blocks, itf, FALSE)
Run the code above in your browser using DataLab