Mod(rcliff())
# Perwass, p68, asserts that if A is a k-blade, then (in his notation)
# AA == A*A.
# In package idiom, A*A == A %star% A:
A <- rcliff()
Mod(A*A - A %star% A) # meh
A <- rblade()
Mod(A*A - A %star% A) # should be small
Run the code above in your browser using DataLab