# apply the size rule on a triangle for creating a matriks with 9 cell
my_mat <- mat_apply(triangle(), mat.type = 9, hrule = "size")
# draw the matriks without the correct response
draw(my_mat, hide = TRUE)
# add the correct response
draw(correct(my_mat))
# apply the rotate rule on a pacman for creating a matriks with 4 cells
my_mat <- mat_apply(pacman(), mat.type = 4,
vrule = "rotate")
# draw the matriks without the correct response
draw(my_mat, hide = TRUE)
# add the correct response
draw(correct(my_mat))
# apply the size rule on a triangle for creating a matriks with 9 cell
my_mat <- mat_apply(triangle(), mat.type = 9, hrule = "size")
# draw the matriks without the correct response
draw(my_mat, hide = TRUE)
# add the correct response
draw(correct(my_mat))
# apply the rotate rule on a pacman for creating a matriks with 4 cells
my_mat <- mat_apply(pacman(), mat.type = 4,
vrule = "rotate")
# draw the matriks without the correct response
draw(my_mat, hide = TRUE)
# add the correct response
draw(correct(my_mat))
Run the code above in your browser using DataLab