# NOT RUN {
# create an mpoly object to work with (requires library mpoly) (not run)
# t0 <- mpoly::mpoly(list(c(coef=3,x1=2),c(coef=2,x1=1,x2=3),
# c(coef=-4,z=2),c(coef=1,x1=1,x2=2,z=1)))
# convert from mpoly to list representation (not run)
# t1 <- convert.mpoly(t0)
# convert from list representation to a multipol object(not run)
# t2 <- convert.multipol(t1)
# convert back to a list representation (not run)
# t3 <- convert.multipol(t2)
# }
Run the code above in your browser using DataLab