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