# NOT RUN {
if (has_4ti2()) {
varlvls <- rep(2, 2)
facets <- list(1, 2)
genmodel(varlvls, facets)
genmodel(varlvls, facets, quiet = FALSE)
varlvls <- rep(3, 3)
facets <- list(1:2, 2:3, c(3,1))
genmodel(varlvls, facets)
# compare this to algstat's hmat function
}
# }
Run the code above in your browser using DataCamp Workspace