查找并计算重复发生的次数

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