# NOT RUN {
data = matrix(sample(c(0,1), 2000, replace = TRUE), ncol = 2)
x = matrix(rnorm(nrow(data)*3, 2, 1), nrow = nrow(data))
data = cbind(x, data)
result<- reformat(data = data, capturelists = c(4,5))
# }
Run the code above in your browser using DataLab