# NOT RUN {
x <- 1:10
## 'x' has NULL exponents, representing the default exponents
exponents(x)
## using 'exponents<-' on an object that is not
## a polynomial coerces the object to polynomial
exponents(x) <- 9:0
is.polynomial(x)
x
# }
Run the code above in your browser using DataLab