# create a matrix
m1 <- mat_apply(hexagon(), hrules = "lty", vrules = "size")
# draw the matrix
draw(m1)
# draw the responses
draw(response_list(m1))
# change the difference distractor by changing the random seed
draw(response_list(m1, seed = 8))
# create a matrix
m1 <- mat_apply(hexagon(), hrules = "lty", vrules = "size")
# draw the matrix
draw(m1)
# draw the responses
draw(response_list(m1))
# change the difference distractors by changing the random seed
draw(response_list(m1, seed = 8))
Run the code above in your browser using DataLab