as.function.permutation: Coerce a permutation to a function

Description Usage Arguments Note Author(s) Examples

View source: R/permfuns.R

Description

Coerce a permutation to an executable function

Usage

1
2
## S3 method for class 'permutation'
as.function(x, ...)

Arguments

x

permutation

...

further arguments (currently ignored)

Note

Multiplication of permutations loses associativity when using functional notation; see examples

Author(s)

Robin K. S. Hankin

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
x <- cyc_len(3)
y <- cyc_len(5)

xfun <- as.function(x)
yfun <- as.function(y)

stopifnot(xfun(yfun(2)) == as.function(y*x)(2)) # note transposition of x & y

# written in postfix notation one has the very appealing form x(fg) = (xf)g

# it's vectorized:
as.function(rperm(10,9))(1)   
as.function(as.cycle(1:9))(sample(9))

permutations documentation built on Nov. 13, 2020, 1:14 a.m.