R函数将列表映射到列表列表
R function to map list to list-of-lists
我看到这个答案获取一个数字列表并将一个函数应用于每个元素以生成修改后的列表：
给出这样的列表：
# x <- sample(seq(1, 91, 10))
x <- c(1, 61, 81, 51, 41, 71, 31, 21, 11, 91)
我如何应用一个函数/使用列表理解来获取每个元素，然后 "add-in" 接下来的 9 个数字，为上面的列表返回这个：
c(1:10, 61:70, 81:90, 51:60, 41:50, 71:80, 31:40, 21:30, 11:20, 91:100)
我正在使用它来滚动我自己的采样以一次获得十个块：前十个，然后是 60 年代，然后是 80 年代，...。我一直在尝试使用这样的函数：
f1 <- function(x) {seq(x,x+10)}
此外，是否有用于这种采样的内置工具 - 您还可以在其中进行采样替换？
您可以使用
as.vector(mapply(seq, from = x, to = x+9))
或者你也可以
c(matrix(x+rep(0:9,each=length(x)),ncol=10, byrow=TRUE))
我看到这个答案获取一个数字列表并将一个函数应用于每个元素以生成修改后的列表：
给出这样的列表：
# x <- sample(seq(1, 91, 10))
x <- c(1, 61, 81, 51, 41, 71, 31, 21, 11, 91)
我如何应用一个函数/使用列表理解来获取每个元素，然后 "add-in" 接下来的 9 个数字，为上面的列表返回这个：
c(1:10, 61:70, 81:90, 51:60, 41:50, 71:80, 31:40, 21:30, 11:20, 91:100)
我正在使用它来滚动我自己的采样以一次获得十个块：前十个，然后是 60 年代，然后是 80 年代，...。我一直在尝试使用这样的函数：
f1 <- function(x) {seq(x,x+10)}
此外，是否有用于这种采样的内置工具 - 您还可以在其中进行采样替换？
您可以使用
as.vector(mapply(seq, from = x, to = x+9))
或者你也可以
c(matrix(x+rep(0:9,each=length(x)),ncol=10, byrow=TRUE))