mot.chop: function to cut a sequence into all the possible n mers it...
In muhligs/Regmex: Motif discovery in ranked lists of sequences

1	mot.chop(seq, mers, unique = TRUE)

`seq`
`mers`
`unique`

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (seq, mers, unique = TRUE) 
{
    starts <- 1:(nchar(seq) - mers + 1)
    ends <- mers:nchar(seq)
    return(if (unique) unique(substring(seq, starts, ends)) else substring(seq, 
        starts, ends))
  }