当前位置: 首页>>代码示例 >>用法及示例精选 >>正文


R invertPerm 排列向量的实用程序


R语言 invertPerm 位于 Matrix 包(package)。

说明

invertPermsignPerm 计算长度-n 排列向量的倒数和符号。 isPerm 测试长度为 n 的整数向量是否是有效的排列向量。 asPerm 将长度 m 转置向量强制转换为长度 n 置换向量,其中 m <= n

用法

invertPerm(p, off = 1L, ioff = 1L)
signPerm(p, off = 1L)
isPerm(p, off = 1L)
asPerm(pivot, off = 1L, ioff = 1L, n = length(pivot))

invPerm(p, zero.p = FALSE, zero.res = FALSE)

参数

p

长度为 n 的整数向量。

pivot

长度为 m 的整数向量。

off

整数偏移量,指示 poff+0:(n-1) 的排列,或者 pivot 包含从 off+0:(n-1) 替换采样的 m 值。

ioff

整数偏移量,指示结果应该是 ioff+0:(n-1) 的排列。

n

大于或等于 m 的整数,表示结果的长度。转置应用于初始化为 seq_len(n) 的置换向量。

zero.p

一个合乎逻辑的。相当于 off=0 if TRUEoff=1 if FALSE

zero.res

一个合乎逻辑的。相当于 ioff=0 if TRUEioff=1 if FALSE

细节

对于 off 的所有值,invertPerm(p, off, ioff=1) 相当于 order(p)sort.list(p)。对于默认值 off=1 ,它返回 p[p] <- seq_along(p) 之后的 p 的值。

invPerminvertPerm 的简单包装器,保留用于向后兼容。

默认情况下,即使用 off=1ioff=1

invertPerm(p) 返回长度为 length(p) 的整数向量,使得 p[invertPerm(p)]invertPerm(p)[p] 都是 seq_along(p) ,即恒等排列。

如果 p 是偶数排列,signPerm(p) 返回 1,否则 -1 返回 1(即,如果 p 是奇数)。

如果pseq_along(p) 的排列,则isPerm(p) 返回TRUE,否则返回FALSE

asPerm(pivot) 返回初始化为 seq_len(n) 的置换向量的元素 ipivot[i] 的转置结果,对于 seq_along(pivot) 中的 i

例子

p <- sample(10L) # a random permutation vector
ip <- invertPerm(p)
s <- signPerm(p)

## 'p' and 'ip' are indeed inverses:
stopifnot(exprs = {
    isPerm(p)
    isPerm(ip)
    identical(s, 1L) || identical(s, -1L)
    identical(s, signPerm(ip))
    identical(p[ip], 1:10)
    identical(ip[p], 1:10)
    identical(invertPerm(ip), p)
})

## Product of transpositions (1 2)(2 1)(4 3)(6 8)(10 1) = (3 4)(6 8)(1 10)
pivot <- c(2L, 1L, 3L, 3L, 5L, 8L, 7L, 8L, 9L, 1L)
q <- asPerm(pivot)
stopifnot(exprs = {
    identical(q, c(10L, 2L, 4L, 3L, 5L, 8L, 7L, 6L, 9L, 1L))
    identical(q[q], seq_len(10L)) # because the permutation is odd:
    signPerm(q) == -1L
})

invPerm # a less general version of 'invertPerm'

也可以看看

置换矩阵的pMatrix 类。

相关用法


注:本文由纯净天空筛选整理自R-devel大神的英文原创作品 Utilities for Permutation Vectors。非经特殊声明,原始代码版权归原作者所有,本译文未经允许或授权,请勿转载或复制。