# NOT RUN {
(p <- mp("(x + y)^2"))
swap(p, "x", "t")
## the meta data is retained
(p <- bernstein(3, 5))
(p2 <- swap(p, "x", "t"))
is.bernstein(p2)
(p <- chebyshev(3))
(p2 <- swap(p, "x", "t"))
is.chebyshev(p2)
# }
Run the code above in your browser using DataLab