# NOT RUN {
(mat <- matrix(sample(9), 3, 3))
format_latte(mat)
cat(format_latte(mat))
(file <- file.path(tempdir(), "foo.hrep"))
write_latte(mat, file)
file.show(file)
read_latte(file)
read_latte(file, "Ab")
attr(mat, "linearity") <- c(1, 3)
attr(mat, "nonnegative") <- 2
mat
format_latte(mat)
cat(format_latte(mat))
write_latte(mat, file)
file.show(file)
read_latte(file)
file.remove(file)
# }
Run the code above in your browser using DataLab