if (FALSE) {
# make list object containing the arguments
args <- list(
  name = c("element_1", "element_2", "element_3", "element_4"),
  l.name = c("left_1", "left_2", "left_3"),
  r.name = c("right_1", "right_2", "right_3"),
  scores = c(
    1, 0, 1, 0,
    1, 1, 1, 0,
    1, 0, 1, 0
  )
)
# make grid object
x <- makeRepgrid(args)
x
}
Run the code above in your browser using DataLab