R/nfirst2lower.R

In word.alignment: Computing Word Alignment Using IBM Model 1 (and Symmetrization) for a Given Parallel Corpus and Its Evaluation

nfirst2lower <-
function(x, n = 1, first = TRUE, second = FALSE)
{
if (first)  x = paste (tolower (substr (x, 1, n)), substring (x, n+1), sep = '')
       
if (second) x [substring (x, 2, 2) %in% LETTERS] = tolower (x [substring (x, 2, 2) %in% LETTERS])
      
return (x)
}