### R code from vignette source 'freegroup.Rnw'

###################################################
### code chunk number 1: freegroup.Rnw:72-74
###################################################
library("freegroup")
options(freegroup_symbols=letters) # should not be necessary


###################################################
### code chunk number 2: freegroup.Rnw:137-138
###################################################
(M <- rbind(c(1,2,3,3,1),c(2,-3,2,3,-2)))


###################################################
### code chunk number 3: freegroup.Rnw:144-146
###################################################
library("freegroup")
(x <- free(M))


###################################################
### code chunk number 4: freegroup.Rnw:155-156
###################################################
(y <- as.free("aabbbcccc"))


###################################################
### code chunk number 5: freegroup.Rnw:163-164
###################################################
x + y


###################################################
### code chunk number 6: freegroup.Rnw:193-194
###################################################
x*5


###################################################
### code chunk number 7: freegroup.Rnw:199-200
###################################################
x*(0:3)


###################################################
### code chunk number 8: freegroup.Rnw:205-206
###################################################
abc(1:9)


###################################################
### code chunk number 9: freegroup.Rnw:211-212
###################################################
rfree(10,4)


###################################################
### code chunk number 10: freegroup.Rnw:217-220
###################################################
(p <- rfree(10,4))
-p
p-p


###################################################
### code chunk number 11: freegroup.Rnw:226-227
###################################################
sum(p)


###################################################
### code chunk number 12: freegroup.Rnw:234-237
###################################################
p
a <- alpha(26)
p^a


###################################################
### code chunk number 13: freegroup.Rnw:243-244
###################################################
sum(p^a) == sum(p)^a


###################################################
### code chunk number 14: freegroup.Rnw:250-255
###################################################
x <- rfree()
y <- rfree()
z <- rfree()
(x*y)^z == x^z * y^z
x^(y*z) == (x^y)^z


###################################################
### code chunk number 15: freegroup.Rnw:265-267
###################################################
x * c(y, z) == c(x*y, x*z)
c(x, y) * z == c(x*z, y*z)


###################################################
### code chunk number 16: freegroup.Rnw:274-275
###################################################
.[p,a]


###################################################
### code chunk number 17: freegroup.Rnw:280-281
###################################################
alpha(1:30)


###################################################
### code chunk number 18: freegroup.Rnw:287-289
###################################################
options(freegroup_symbols = state.abb)
alpha(1:30)


###################################################
### code chunk number 19: freegroup.Rnw:300-301
###################################################
options(freegroup_symbols=letters)