r - 使用粘贴来组合字母或循环。右

Question

我是 R 的新手，但我正在尝试在 R 中制作滑动窗口。

使用循环我可以像这样，但这变得非常低效。

results=c(1:7)
letters=c("A","B","C","D","E","F","G","H","I","J")
for(i in 1:7){
results[i]=paste(letters[i:(i+3)],collapse="")
}

如何使用 apply 函数获得相同的输出？

Answer 1

与 Ramnath 的答案略有不同:

lets <- LETTERS[1:10]
substring(paste(lets,collapse=""),1:7,4:10)
#[1] "ABCD" "BCDE" "CDEF" "DEFG" "EFGH" "FGHI" "GHIJ"