R/variations.R

In TSTr: Ternary Search Tree for Auto-Completion and Spell Checking

variations <- function(vector, useUpper){
  bucket<-c()
  for(word in vector){
    x <- append(deletion1(word),transpose(word))
    x <- append(x, replace(word, useUpper))
    x <- append(x, insertion(word, useUpper))
    x <- unique(x)
    bucket<-append(bucket,x)
  }
  bucket
}