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