r-生成具有一个函数和一个参数的两个序列

Question

我想生成这两个序列：

A = c(0.25,0.50,0.75,1,0.25,0.50,0.75,0.25,0.50,0.25)
B = c(0.33,0.66,1,0.33,0.66,0.33)

具有一个功能。我已经有了这个：

X = 5
X = 4
rep(seq(1/(X-1),1,1/(X-1)), X-1)

但是，我仍然需要删除一些值，我是这样做的，但这不是真正正确的方式：

rep(seq(1/(X-1),1,1/(X-1)), X-1)[-c(8,11,12,14,15,16)]
rep(seq(1/(X-1),1,1/(X-1)), X-1)[-c(6,8,9)]

有没有一种方法可以在一个函数中写这个？

Answer 1

实现这一点的一种方法是sequence(x:1)/x，x取所需值。

> f = function(x) sequence(x:1)/x
> f(4)
# [1] 0.25 0.50 0.75 1.00 0.25 0.50 0.75 0.25 0.50 0.25
> f(3)
# [1] 0.3333333 0.6666667 1.0000000 0.3333333 0.6666667 0.3333333

(这是假设sequence算作一个函数，即我们不包括:和/等。(

Answer 2

@user20650的sequence方法已经是一个非常优雅的选项。下面是另一个，但不是那么简洁的

f <- function(x) unlist(sapply(x:1, seq)) / x

使得

> f(3)
[1] 0.3333333 0.6666667 1.0000000 0.3333333 0.6666667 0.3333333
> f(4)
[1] 0.25 0.50 0.75 1.00 0.25 0.50 0.75 0.25 0.50 0.25