# NOT RUN {
## Dummy example (mimicking how zargs are built internally)
set.seed(271)
n <- 100
x <- list(matrix(rnorm(n*2), ncol = 2), matrix(rnorm(n*3), ncol = 3))
n2dplots <- 5 - 1
pathLayout <- unfold(n2dplots)
path <- pathLayout$path
Layout <- pathLayout$layout
zargs2d <- list(x = x,
turns = path$turns,
orientations = Layout$orientations,
vars = Layout$vars,
lim = "individual",
labs = list(group = "G", var = "V", sep = " "),
width1d = 1,
width2d = 10,
num = 2,
ispace = 0)
## Calling extract_2d()
str(extract_2d(zargs2d))
# }
Run the code above in your browser using DataLab