从列表中逐个读取字符

Question

我有一个很大的字符列表(250*5000)，我需要一次读7个字符。所以我想读1-7，然后是2-8，3-9等等，这样我就可以把它们和我的向量进行比较。到目前为止我的代码是这样的

library("affy")
? ReadAffy
list<-seq5000
##list<-read.table("C:\\Users\\user\\Desktop\\mike\\seq5000.txt")
##list
a<-c(list)

Answer 1

一个基于猜测的脚本，可能会有所帮助，如果没有，则需要更多细节！

simu <- paste(letters[sample(1:26, 250*5, replace = T)], collapse = "")
stri <- unlist(strsplit(simu, split=""))

for (i in 1:(length(stri)-6)){
  val7 <- stri[i+0:6]
  print(val7)
  print(paste(val7, collapse = ""))
}