查找和计算重复发生

Question

我希望做一个函数，它将接受三个参数（起始位置，结束位置，长度），并通过该函数，我希望找出每个不同模式的多少次那个特定长度出现，然后我希望提取最大长度。听起来很混乱。

Answer 1

试试这个：

countSubstring<-function(string,start,end,len) { 
     startChar<-seq(start,end,by=len) 
     table(substring(string,startChar,startChar+(len-1))) 
    } 

    string<-"aabaaaabaaaacaaaabaaaabaa" 

    countSubstring(string,start=1,end=15,len=5) 

    aabaa aacaa 
     2  1