## Not run:
#
#
#
#
#
# spec <- c("x + y <= 10", "x >= 1", "y >= 1")
# count(spec)
# count(spec, opts = "--dilation=10")
# count(spec, opts = "--homog")
#
# # by default, the output from LattE is in
# list.files(tempdir())
# list.files(tempdir(), recursive = TRUE)
#
# # ehrhart polynomials
# count(spec, opts = "--ehrhart-polynomial")
# count(spec, opts = "--ehrhart-polynomial", mpoly = FALSE)
#
# # ehrhart series (raw since mpoly can't handle rational functions)
# count(spec, opts = "--ehrhart-series")
#
# # simplified ehrhart series - not yet implemented
# #count(spec, opts = "--simplified-ehrhart-polynomial")
#
# # first 3 terms of the ehrhart series
# count(spec, opts = "--ehrhart-taylor=3")
#
# # multivariate generating function
# count(spec, opts = "--multivariate-generating-function")
#
#
# # the number of tables with the same marginals
# data(politics)
# count(c(
# "x11 + x12 == 10",
# "x21 + x22 == 10",
# "x11 + x21 == 9",
# "x12 + x22 == 11",
# "x11 >= 0", "x21 >= 0", "x12 >= 0", "x22 >= 0"
# ))
# countTables(politics)
#
#
# # by vertices
# spec <- list(c(1,1),c(10,1),c(1,10),c(10,10))
# count(spec)
# count(spec, opts = "--vrep")
#
# code <- "
# 5 3
# 1 -1 0
# 1 0 -1
# 1 -1 -1
# 0 1 0
# 0 0 1
# "
# count(code)
#
#
#
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace