freegroup
The DESCRIPTION file: freegroup freegroup
# NOT RUN { a <- rfree(10,6,3) x <- as.free('x') a+x a^x sum(a) abelianize(a) discard(a+x,'a') # }
Run the code above in your browser using DataLab