
## examine found patterns:
manage.hyph.pat(hyph.en, word="frustrated")

# find entries:
manage.hyph.pat(hyph.en, get="so.")

# change/add entries:
manage.hyph.pat(hyph.en, set="3so.")


# or from a file:
hyph.corr <- read.hyph.pat("your_new_patterns.txt", "en")
hyph.cor.pattern <- rbind(hyph.en@pattern, hyph.corr@pattern)
hyph.cor.pattern <- hyph.cor.pattern[order(hyph.cor.pattern[,1]),]
hyph.cor.pattern <- hyph.cor.pattern[!hyph.cor.pattern[,"orig"] %in% c(<changed patterns, to be removed>),]
hyph.en@pattern <- hyph.cor.pattern


# Changes in hyph.en:
# hyph.en was completely replaced by a custom built pattern set in koRpus 0.04-17
#
# TODO:	wrong				correct
# 			=====				=======
#			the-m				them

