# NOT RUN {
(x <- clifford(list(1,2,1:4),1:3)) # Formal creation method
(y <- as.1vector(4:2))
(z <- rcliff(include.fewer=TRUE))
terms(x+100)
coeffs(z)
## Clifford objects may be added and multiplied:
x + y
x*y
## They are associative and distributive:
(x*y)*z == x*(y*z) # should be true
x*(y+z) == x*y + x*z # should be true
## Other forms of manipulation are included:
coeffs(z) <- 1999
# }
Run the code above in your browser using DataLab