# NOT RUN {
a <- as.freealg("x+xyx")
b <- as.freealg("4x +XyX") # upper-case interpreted as inverse
a+b
stopifnot(a+b==b+a) # should be TRUE
a*b ==b*a # FALSE; noncommutative algebra
as.freealg("1+X+xy")^3
rfalg()
rfalg()^2
# }
Run the code above in your browser using DataCamp Workspace